Spalten ergänzen
09.05.2018 15:07:34
Goeschl
Ich muss zu dem Thema noch eine Frage stellen.
Und zwar möchte ich in einer Spalte die leeren Zellen mit dem oberen Wert der Spalte ergänzen.
Ich habe dazu den unten stehenden Code.
Kann man den so abändern das die Spalte nicht bis A18000 ändert sondern nur die wo was drinsteht?
Vielen Dank!
Code :
allo!
Ich habe dazu nun folgenden Code:
Der füllt mir jetzt den letzten Wert bis nach A18000 auf!
Kann ich dem irgendwie sagen das er nur die vorhandenen Zeilen nimmt?
Vielen Dank!
Sub Leerzellen()
Dim Bereich As Range, Zelle As Range
Set Bereich = Range("A4:A18000")
For Each Zelle In Bereich.SpecialCells(xlCellTypeBlanks)
Zelle = Zelle.Offset(-1, 0)
Next Zelle
End Sub