Nicht zusammenhängender Spaltenbereich bearbeiten
Peter
Ich habe einen nicht zusammenhängenden Spaltenbereich. Nun möchte ich jede Zelle zwei Zellen rechts von diesem Bereich mit dem Zellinhalt zwei Zellen links davon abfüllen.
Mit nachfolgendem Code funktioniert das, allerdings etwas langsam.
Lässt sich das beschleunigen?
Gruss, Peter
Sub Test()
Dim rngZelle As Range
For Each rngZelle In Range("SpaltenBereichNichtZusammenhaengend")
rngZelle.Offset(0, 2) = rngZelle.Offset(0, -2)
Next rngZelle
End Sub