Heute musste ich eine ziemlich umfangreiche Excel Datei in Werte wandeln. Normalerweise w\u00fcrde ich das einfach mittels Copy-Paste machen und die Daten als Werte einf\u00fcgen. Bei der Menge an Daten kam Excel aber leider ganz sch\u00f6n ins schnaufen (bzw. ist mehrmals abgest\u00fcrzt), darum habe ich das mittels VBA gel\u00f6st.<\/p>\n
Die Zeilen einzeln zu kopieren funktioniert zwar ganz gut, ist aber leider extrem langsam. Vielleicht gibt es noch eine bessere M\u00f6glichkeit.<\/p>\n
Ich hatte auch einmal einen Export nach *.csv oder *.txt versucht und einen anschlie\u00dfenden Import nach Excel, leider gingen hier bei Telefonummern die mit +43 begonnen haben die Formate verloren…<\/p>\n
Generell scheint das ein h\u00e4ufigeres Problem zu sein, ich habe dazu auch diesen Beitrag gefunden:<\/p>\n
https:\/\/stackoverflow.com\/questions\/36272285\/fastest-method-to-copy-large-number-of-values-in-excel-vba<\/a><\/p>\n https:\/\/www.xylos.com\/en\/learning\/blog\/tip-1-save-time-processing-data-excel-vba-copy-cells<\/a><\/p>\n Im Code werden die & leider als & dargestellt, darum habe ich sie durch A-N-D angef\u00fchrt. Beim kopieren des Codes einfach die A-N-D durch & ersetzen.<\/p>\n Heute musste ich eine ziemlich umfangreiche Excel Datei in Werte wandeln. Normalerweise w\u00fcrde ich das einfach mittels Copy-Paste machen und die Daten als Werte einf\u00fcgen. […]<\/a><\/p>\n<\/div>","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[35,36],"_links":{"self":[{"href":"http:\/\/www.schmalzl.tirol\/wp\/wp-json\/wp\/v2\/posts\/1546"}],"collection":[{"href":"http:\/\/www.schmalzl.tirol\/wp\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.schmalzl.tirol\/wp\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.schmalzl.tirol\/wp\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.schmalzl.tirol\/wp\/wp-json\/wp\/v2\/comments?post=1546"}],"version-history":[{"count":15,"href":"http:\/\/www.schmalzl.tirol\/wp\/wp-json\/wp\/v2\/posts\/1546\/revisions"}],"predecessor-version":[{"id":1561,"href":"http:\/\/www.schmalzl.tirol\/wp\/wp-json\/wp\/v2\/posts\/1546\/revisions\/1561"}],"wp:attachment":[{"href":"http:\/\/www.schmalzl.tirol\/wp\/wp-json\/wp\/v2\/media?parent=1546"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.schmalzl.tirol\/wp\/wp-json\/wp\/v2\/categories?post=1546"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.schmalzl.tirol\/wp\/wp-json\/wp\/v2\/tags?post=1546"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}\n\nSub Grosse_Datei_als_Werte()\n\n Application.ScreenUpdating = False\n Application.DisplayAlerts = False\n \n 'Inhalte in Tabellenblatt "Werte" l\u00f6schen\n Sheets("Werte").Select\n Cells.Select\n Selection.ClearContents\n \n 'Anzahl Zeilen in Tabellenblatt "CUSTTABLE" ermitteln\n Sheets("CUSTTABLE").Select\n loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)\n \n 'Kopieren und einf\u00fcgen aller Zeilen von Tabellenblatt "CUSTTABLE" nach Tabellenblatt "Werte"\n For loi = 1 To loletzte\n \n Sheets("CUSTTABLE").Select\n Rows(loi A-N-D ":" A-N-D loi).Select\n Selection.Copy\n Sheets("Werte").Select\n Rows(loi A-N-D ":" A-N-D loi).Select\n Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False\n \n If (loi Mod 500) = 0 Then\n \n Application.CutCopyMode = False\n ActiveWorkbook.Save\n \n End If\n \n Next loi\n\n Application.ScreenUpdating = True\n Application.DisplayAlerts = True\n\nEnd Sub\n\n\n\n<\/pre>\n","protected":false},"excerpt":{"rendered":"