leere zeilen mit makro ausfüllen
10.08.2005 17:48:49
maik
ich habe folgendes Problem:
in Spalte 1 meines Tabellenblattes stehen in unregelmäßigen Abständen ab Zeile 4 Werte. Diese Werte sollen nun in alle darunterliegenden bis zum nächsten Eintrag geschrieben werden.
Hat jemand eine Idee?
Vielen Dank
Maik
anbei noch mein (fehlerhafter) Makroversuch:
Sub auffüllen()
Dim i As Integer
Dim letztezeile As Integer
Dim wert As Integer
letztezeile = ActiveSheet.Cells(65536, 3).End(xlUp).Row
For i = 4 To letztezeile
If Not Cells(i, 1).Value = "" Then
Set Cells(i, 1).Value = wert
Else
If Cells(i, 1).Value = "" Then
Set Cells(i, 1).Value = wert
End If
End If
Next i
End Sub
Anzeige