Zellen in Spalte A auffüllen
07.09.2020 09:50:17
xtian
ich benötige einmal Hilfe für ein Makro. Das Makro sucht zunächst in der Spalte E bis wohin der letzte Eintrag
gemacht wurde. Dann soll das Makro in der Spalte A den jeweiligen Text nehmen und solange kopieren bis
der nächste Wert kommt.
Ausgangssituation:
SpalteA ..SpalteE
11111... ...Text
... ..Text
22222... ......Text
............ ... .Text
............ ... .Text
Das soll das Makro machen:
SpalteA ..SpalteE
11111... ...Text
11111... ...Text
22222... ......Text
22222... ......Text
22222... ......Text
Leider kommt eine Fehlermeldung und das Makro funktioniert nicht. Sieht vielleicht jemand den Fehler?
Sub AuffuellenA()
Dim Bereich As Variant
Dim Zaehler As Long
Dim LastRow As Long
LastRow = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
Bereich = Range("A1:A" & LastRow).Value
For Zaehler = 1 To LastRow
If IsEmpty(Bereich(Zaehler, 1)) Then Bereich(Zaehler, 1) = Bereich(Zaehler - 1, 1)
Next
Range("A1:A" & LastRow) = Bereich
End Sub