ich habe in einem Arbeitsblatt in Spalte 1 Texte stehen. (100 Zeilen)
Wenn ich die Texte möglichst schnell in die Spalten dahinter exportieren will, gibt es da eine schnellere Möglichkeit als
For y=1 To 100
v0 = Cells(y,1)
For x = 1 To Len(v0)
Cells(y, x+1) = Mid(v0, x, 1)
Next x
Next y
Das geht einwandfrei, dauert aber etwas, geht das schneller?Tommi