Hallo zusammen,
uiuiui - Anfängerschwierigkeiten.
Folgendes Problem:
Ich habe den Bereich B12 bis J12 als Tabelle formatiert. Über eine Userform möchte ich jetzt die Liste nach und nach aufbauen lassen. Das funktioniert auch soweit, das Problem ist nur, dass der erste Eintrag immer in Zeile B26 beginnt.
Mein "Button-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
-----------------------------------------------------
Über Kommentare würde ich mich riesig freuen!
VG |