Letzte beschriebene Zelle

Question

Hallo,

ich habe ein Tabellenblatt mit mehreren Datenblöcken, die durch eine Leerzeile jeweils voneinander getrennt sind.
z.B. A1:C30 und weiter A32:D50
Gibt es einen Code, der mir die letzte beschriebene Zeile "30" des ersten Blockes ermittelt.
Danke und Gruß Andreas

Answer 1

Hallo Andreas,

versuch mal den folgenden Code:

Sub letzte_Leere()

Dim Zeile As Long
Dim lZeile As Long

For Zeile = 30 To 1 Step -1
'Hier wird der Arbeitsbereich (Anzahl der Spalten) angegeben
With Range(Cells(Zeile, 1), Cells(Zeile, 3))
If Application.WorksheetFunction.CountBlank(.Cells) <> .Cells.Count Then
lZeile = Zeile + 1
Exit For
End If
End With
Next

MsgBox "Die erste leere Zeile im Bereich ist die Zeile " & lZeile

End Sub

Aber Achtung: leere Zeile zwischen beschriebenen Zeilen werden nicht gefunden.

Gruß

M.O.