Private Sub CommandButton1_Click()
lastrow = Worksheets("Drehmaschine").Range("B65536").End(xlUp).Row
Worksheets("Drehmaschine").Range(lastrow, 2) = "Test"
End Sub
Um die erste leere Zeile in Excel mit VBA zu finden, kannst Du folgende Schritte befolgen:
Öffne die Excel-Datei, in der Du das Makro erstellen möchtest.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
Kopiere und füge den folgenden Code ein:
Sub ErsteLeereZeileFinden()
Dim lastrow As Long
lastrow = Worksheets("Tabelle1").Range("B65536").End(xlUp).Row + 1
MsgBox "Die erste leere Zeile ist: " & lastrow
End SubPasse den Namen "Tabelle1" und den Spaltenbuchstaben nach Deinen Bedürfnissen an.
Führ das Makro aus, um die erste leere Zeile zu finden.
Problem: Der Code findet nicht die erste leere Zeile.
+ 1 zu der lastrow-Variable hinzufügst, um die erste leere Zeile nach der letzten gefüllten Zeile zu ermitteln.Problem: Der Code gibt einen Fehler zurück.
Wenn Du VBA nicht verwenden möchtest, kannst Du auch die Excel-Funktion =VERGLEICH() nutzen, um die erste leere Zelle in einer Spalte zu finden. Diese Methode ist jedoch weniger effizient für große Datenmengen.
Hier ist ein Beispiel, wie Du in die nächste leere Zeile schreiben kannst:
Sub InNächsteLeereZeileSchreiben()
Dim lastrow As Long
lastrow = Worksheets("Tabelle1").Range("B65536").End(xlUp).Row + 1
Worksheets("Tabelle1").Cells(lastrow, 2).Value = "Neuer Eintrag"
End SubDieser Code sucht die nächste leere Zeile in Spalte B und fügt "Neuer Eintrag" ein.
Cells(lastrow, Spaltenindex) anstelle von Range, um den Code flexibler zu gestalten.Application.ScreenUpdating = False vor dem Code und Application.ScreenUpdating = True danach, um die Performance zu verbessern.1. Wie finde ich die letzte leere Zeile in einer Spalte?
Du kannst den folgenden Code verwenden:
lastrow = Worksheets("Tabelle1").Cells(Rows.Count, "B").End(xlUp).Row2. Kann ich die erste leere Zelle in einer Zeile finden?
Ja, das ist möglich. Verwende dazu:
Dim firstEmptyCell As Range
Set firstEmptyCell = Worksheets("Tabelle1").Rows(1).Find(What:="", LookIn:=xlValues)Dieser Code findet die erste leere Zelle in der ersten Zeile.