Makro Eintrag Tabelle

Private Sub CommandButton_cancel_Click()
'Eingabefenster schließen'
Unload UserForm1
End Sub

Private Sub CommandButton_submit_Click()
'Eingabefenster übernehmen und Eingaben in die Datenbank speichern'
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(x1Up).Row + 1
ActiveSheet.Cells(last, 1).Value = UserForm1.Text_name.Value
End Sub

Private Sub UserForm_Click()
End Sub

Private Sub UserForm_Initialize()
'Dateneingabe in die Schaltflächen'
UserForm1.Text_name.Value = "Name"
End Sub