versuch's mal so:
Option Explicit
Sub Leerzeile()
Dim Bereich As Range
Dim zeile As Range
Dim z As Range
Dim leer As Boolean
Dim lz As Long
lz = 0 ' Nummer der Leerzeile
Set Bereich = Range("B2:K100")
For Each zeile In Bereich.Rows
leer = True
For Each z In zeile.Cells
If Not IsEmpty(z.Value) Then
leer = False
Exit For
End If
Next z
If leer Then
lz = zeile.Row
Exit For
End If
Next
End Sub
Gruß
Alfred
was hältst Du hiervon:
Viel Erfolg wünscht
WernerB.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen