Thema: Makro für ISTLEER...Dann.... | Herbers Excel-Forum

Hallo,
ich brächte Hilfe bei folgendem makro
Im Tabellenblatt "Datenbasis" soll in Zelle S1 die Überschrift "Abdeckung" eingefügt werden.
Anschließend soll in der Zelle S2 eine 1 eingetragen werden wenn in Spalte P 2 nichts steht
Steht in Spalte P2 irgendwas dann soll S leer bleiben.
Das dann für alle Werte in den Spalten P
Die soll bis zur letzten gefüllten Zeile gemacht werden. (prüfung letzte Zeile in Spalte A)
Kann mir da jemand helfen?

Hi.

Sub ausFuellen()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Datenbasis")
.Cells(1, 19).Value = "Abdeckung"
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(i, 19).Value = IIf(.Cells(i, 16).Value = "", 1, "")
Next
End With
Application.ScreenUpdating = True
End Sub

Gruss, Jogy

Genial vielen Dank!