|
Hallo!
Wie gesagt habe noch Excel2003 - da gibt es keine formatierten Tabellen (finde das zumindest nicht). Kann es deshalb nicht testen. FAlls in Spalte B ab Ziele 12 immer aufeinanderfolgend WErte stehen - keine Leerzeichen dazwischen - müsste es mit folgendem Code gehen. Da ich keine Excelinterne Lösung kenne/gefunden habe geht der Code halt alle Zeilen durch, bis eine leere Zeile kommt. Dauert länger und fügt nur dann am Ende ein, wenn vorher nichts frei war. 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
.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
|