erste bzw nächste Leere Zeile
18.07.2022 13:37:29
Tim
ich scheitere gerade an einer vermeintlichen Kleinigkeit. Ich möchte gern Einträge aus einer Listbox, in ein Tabellenblatt schreiben und das in die erste/nächste freie Zeile.
An sich funktioniert es, jedoch werden leere Zeilen zwischendrin ausgelassen und die Daten an das Ende geschrieben.
Wie kann man das umsetzen, dass die Einträge aus der Listbox in die nächste freie Zeile geschrieben werden?
Sub neuer_Eintrag()
Dim Datenbank As Workbook
Dim DB_Blatt As Worksheet
Dim i As Long, letzteZeile As Long
Dim Pfad As String
Pfad = "c:\Test.xlsx"
Set Datenbank = Workbooks("Test.xlsx")
Set DB_Blatt = Datenbank.Worksheets("Tabelle1")
letzteZeile = DB_Blatt.Cells(DB_Blatt.Rows.Count, 1).End(xlUp).Row
With UserForm3.Test_Übersicht
For i = 0 To .ListCount - 1
DB_Blatt.Cells(letzteZeile, 1) = .List(i, 0)
letzteZeile = letzteZeile + 1
End If
Next
End With
End Sub