Hallo Peter, vielleicht noch eine allerletzte bitte
„ich versprech’s“.
Ich versuche über den Commandbutton2 beim übernehmen der Daten
in die Tabelle, gleichzeitig ein Komplettes abspeichern der gesamten Tabbelenblätter auszuführen, bei den unten aufgeführten Befehle bekomme ich leider eine Fehlermeldung,
kann aber nicht den Grund herausbekommen.
Wie auch immer Danke ich dir trotzdem nochmals für deine Mühe
schöne Grüße
Achi
*************************************************************
Private Sub CommandButton2_Click()
Dim xZeile As Long
If TextBox1 = "" Then
Aciveworkbook.Save
Exit Sub
End If
If ComboBox1.ListIndex = 0 Then
xZeile = [A65536].End(xlUp).Row + 1
Else
xZeile = ComboBox1.ListIndex + 1
End If
Cells(xZeile, 1).Value = CDate(TextBox1.Text)
Cells(xZeile, 2).Value = CDate(TextBox3.Text)
Cells(xZeile, 3).Value = CDate(TextBox5.Text)