|
Hallo! Dein Code sieht so aus.
Private Sub Button_Übernehmen_Click()
Dim i As Integer
Dim tb As Object
With Worksheets("Bestandliste")
i = .UsedRange.Rows.Count + 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
Das Problem wird i = .UsedRange.Rows.Count + 1 sein. UsedRange nimmt nicht nur Zellen mit Werten sondern auch Zellen, die formatiert sind. Ich würde da an deiner Stelle i direkt zuweisen oder nur die belegten Zellen (Werte) einer Spalte oder Zeile nehmen. Weiß jetzt an HAnd des Codes nur nicht, in welcher Zeile du starten willst ( die 12te?). VG
|