|
Hallo! Es ist Freitag und ich habe hier eine neue ExcelVersion. Hab es getestet und es unterscheidet sich wirklich zur 2003 Version. Hier also jetzt die Version die ("eigentlich") gehen sollte. :-) Bitte mal probieren und falls es nicht klappt, nochmal melden. Habe morgen auch nochmal die Chance in einer modernen Excelumgebung zu arbeiten. Schönes Wochenende schonmal
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
.Cells(i - 1, 2).Select
Selection.ListObject.ListRows.Add (i - 11)
End If
.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
|