Spalten einfügen
03.02.2003 12:16:50
Cracker
ich hab eine Datei mit 40 Spalten und ca. 5000 Zeilen. Um Fehler in der Datei anzeigen zu können, will ich nach jeder Spalte eine Leerspalte einfügen. Ich hab das durch folgenden Code realisiert:
While durchlauf < 89
Columns(durchlauf).Select
Selection.Insert Shift:=xlToRight
durchlauf = durchlauf + 2
Wend
Das klappt auch, braucht aber ewig. Warum? Gibts eine schnellere Lösung?
MfG
Cracker