Spalte mit Wert Zeile löschen

Question

Hallo,
bräuchte mal Hilfe bei einem Makro.

Ist in der Spalte B ab Zeile 2 ein Wert enthalten,
dann soll die Zeile darüber gelöscht werden.

Gruß
fedjo

Answer 1

Hi,
funktioniet leider nicht.

Gruß
fedjo

Answer 2

Hi,
hab eine Lösung gefunden:

Private Sub CommandButton1_Click()
Dim s, F
s = 1
F = Cells(Rows.Count, s).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$" & F
ActiveSheet.PrintOut
End Sub

Danke noch mal für deine Hilfe.
Gruß
fedjo