kann mir bitte jemand helfen und sagen, was ich verändern muß, damit die Übernahme jeweils in die erste freie Zeile, wenn Spalte K leer ist, erfolgt.
Private Sub CommandButton23_Click()
Sheets("Tabelle1").Activate
LoLetzte = Sheets("Tabelle1").UsedRange.SpecialCells(x1CellTypeLastCell).Row
Cells(LoLetzte + 1, 6) = TextBox93
Cells(LoLetzte + 1, 7) = TextBox94
Cells(LoLetzte + 1, 8) = TextBox95
TextBox94.Text = ""
End Sub
Vielen Dank und Grüße
Georg