AW: AutoFill dauert ewig!
01.11.2012 11:38:35
Klaus
Hallo Snewi,
aus deinen Codefetzen sehe ich, dass du sehr viel Makrorekorder Code benutzt. Nützt ja auch nichts, wenn man ihn nicht selbst schreiben kann ... aber Rekordercode muss fast prinzipiell bereinigt werden. Faustregel: die Worte "select", "activate" und "selection" haben in einem Code nichts zu suchen² es sei denn du WILLST explizit selektieren oder aktivieren.
Viel besser als ich es je könnte erklärt es Peter Haserodt:
http://www.online-excel.de/excel/singsel_vba.php?f=78
Lies das mal komplett durch, es hilft!
Zu deiner Frage: Erstmal das select raus:
Columns("A:A").TextToColumns Destination:=Range( _
"Tabelle_Abfrage_von_sgarchi[[#Headers],[HEAT_NAME]]"), DataType:=xlDelimited _
, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Und dann vermute ich, dass es sehr lange dauert weil du tatsächlich die gesamte Spalte nimmst. Ungetestet, probiers mal so:
lRow = Range("A65536").end(xlup).row
Range("A1:A" & lRow).TextToColumns Destination:=Range( _
"Tabelle_Abfrage_von_sgarchi[[#Headers],[HEAT_NAME]]"), DataType:=xlDelimited _
, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Grüße,
Klaus M.vdT.
²ausnahmen gibt es natürlich immer