Hallo mabon!
Schreibe vor die Zeile
[code]Do While ActiveCell.Value <> ""[/code]
die Zeile
[code]Application.ScreenUpdating = False[/code]
Das bewirkt, dass die Bildschirmaktualisierung ausgeschaltet wird. Außerdem lass die Zeile
[code]ActiveCell.Offset(0, 1).Select
[/code]
weg. Die bewirkt doch gar nichts, außer dass Sie etwas markiert, was nicht notwendig ist. Außerdem kann man fast gänzlich auf[i] .Select [/i]verzichten.
MfG,
Oliver