Zeileninhalte auffüllen
15.01.2008 10:03:00
David
650
Leer
Leer
651
Leer
652
Leer
Leer
Leer
**
Leer
...
Immer dort, wo die Zelle leer ist, soll der Wert der darüber liegenden Zelle eingefügt werden.
Ich habe dazu folgendes Makro geschrieben, dass aber leider nicht funzt:
Sub Zeilen_auffüllen()
Dim Zeile As Long, inhalt As Integer, wks As Worksheet
Set wks = Worksheets("asset retirements")
With wks
'in Spalte A bis zur letzen Zeile alle Zellen prüfen
For Zeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If Cells(Zeile, 1).Value = "" Then Cells(Zeile, 1).Value = Cells(Zeile - 1, 1).Value
Next
End With
End Sub
Der Teil hinter dem "THEN" ist wohl falsch. Die Range-Methode kann ich leider nicht anwenden, da ich keine A1-Zellbezüge habe. Könnt ihr vielleicht meinen Fehler verbessern?
Danke.
Gruß
David