|
Arbeite noch mit excel2003. Kannst du ggf. ein Bild hochladen? Schau mal, ob in der Spalte b bis Zeile25 noch Text steht. Dann fügt er dort ein. Wenn du sicher bist, dass ab Zeile 12 eingefügt werden soll, dann kannman das auch gleich festlegen und nicht die zuletzt beschriebene Zeile suchen. Wäre dann so. VG
Private Sub Button_Übernehmen_Click()
Dim i As Integer
Dim tb As Object
With Worksheets("Bestandliste")
i = 12 ' fest vorgegebene Zeile
.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
|