Den VBA-Code bei leeren Zellen gibt es zu Hauf, aber wenn Formeln oder Verweise in den Zellen stehen klemmts. Kann mir bitte jemand helfen?
Dim lastRow as Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Do Until Cells(lastRow, 1).Value ""
lastRow = lastRow - 1
Loop
In diesem Beispiel wird die Variable "lastRow" mit der letzten nicht-leeren Zeile in Spalte A belegt. Diese Schleife geht durch die Spalte A rückwärts und prüft jede Zelle auf einen leeren Wert. Sobald eine nicht-leere Zelle gefunden wird, bricht die Schleife ab und gibt die Zeilennummer zurück.
lLastRow = Application.WorksheetFunction.CountIf(Range("A1:A99"), ">A")
Servus
Private Sub CommandButton1_Click()
'"zum letzten Wert" - Button
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Do Until Cells(lastRow, 1).Value ""
lastRow = lastRow - 1
Loop
End Sub
Private Sub CommandButton1_Click()
'"zum letzten Wert" - Button
Dim lastRow As Long
lastRow = Cells(Rows.Count, 2).End(xlUp).Row
Do Until Cells(lastRow, 2).Value ""
lastRow = lastRow - 1
Loop
End Sub
Oder du ermittelst die letzte Zeile anhand von Spalte C oder D, dann hast du das Problem mit den Formeln nicht.