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.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