Mit folgendem Makro aus dem Forum fülle ich rund 2000 Zellen aus. In ca. 750 Zellen steht ein Text.
For Each rng In ActiveSheet.UsedRange.Columns(1).Cells
If IsEmpty(rng) Then
rng.Value = rng.Offset(-1, 0).Value
End If
Next rng
Leider läuft das Makro sehr langsam, es dauert bis die 2000 Zeilen durchlaufen sind. Gibt es eine schnellere Variante?
Danke und Gruss
Gregor