|
Moin! Habe es nun in meinem Exel auch gefunden. :-) Habe mal getestet und würde es jetzt so machen. Einfach mal probieren. Er sucht jetzt die erste free Zelle und geht eins zurück ( da steht die Summe etc.). Die Zeile selektiert er dann, womit eigentlich deine Summe eins nach unten rutscht und man was eintragen kann. Hoffe das es klappt. VG
Private Sub Button_Übernehmen_Click()
Dim i As Integer
Dim tb As Object
With Worksheets("Bestandliste")
i = 12
While .Cells(i, 2) <> ""
i = i + 1
Wend
'beim ersten Eintrag = Zeile 12 ist die Liste leer, danach wird wohl autom. die Berechnung eingfügt, deshalb dann eins zurück
If i > 12 Then i = i - 1
.Cells(i, 2).Select
.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
|