|
Moin! Kein Problem wegen des Editors - passiert manchmal. Habe den Code mal angepasst. i wird jetzt als nächste Zeile nach der zuletzt beschriebenen in Spalte B festgelegt - du willst ja auffülen.
Private Sub Button_Übernehmen_Click()
Dim i As Integer
Dim tb As Object
With Worksheets("Bestandliste")
i = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(i, 2).Value = ComboBox_Auswahl
.Cells(i, 3).Value = TextBox_Art
.Cells(i, 4).Value = TextBox_Beschreibung
.Cells(i, 5).Value = TextBox_Datum
.Cells(i, 6).Value = TextBox_Woher
.Cells(i, 7).Value = TextBox_Neuwert
.Cells(i, 8).Value = TextBox_Zeitwert
.Cells(i, 9).Value = TextBox_Notizen
End With
For Each tb In Eingabeformular.Controls
If TypeName(tb) = "TextBox" Then tb.Text = ""
Next tb
MsgBox "Die Daten wurden übernommen"
End Sub
Falls du in einer anderen Spalte den letzten Wert haben willst, die 2 in der Zeile in die Spaltennummer ändern. Hier auf der Seite sind noch ein paar Hinweise dazu. http://www.excel-inside.de/vba-loesungen/zellen-a-bereiche/337-letzte-zeile-letzte-spalte-und-letzte-zelle-per-vba-ermitteln
VG
|