Hallo Leute, ich versuche gerade eine Kundenliste anzufertigen, die mit Hilfe einer Maske eine neue Zeile einfügt und mit den eingegebenen Informationen aus der Maske in die Tabelle einfügt.. Bisschen was hab ich schon selber hinbekommen, aber nun komme ich einfach nicht mehr weiter.

Das Programm soll eine fortlaufende Kundennummer haben im System: 0001, 0002, ...., 0010, 0011,...

Und die Maske soll per Schaltfläche sichtbar sein, aber das hab ich ja eigentlich schon hinbekommen..

Hier ist die Datei: http://workupload.com/file/yog9Mhg0

Spaltenüberschriften sind: Kd-Nr, Firma, Straße, PLZ, Ort, Land, Anrede+Kontaktperson, E-Mail, Telefon, Fax, Homepage, Hinweise

Beim "Hinzufügen" Button hab ich das stehen:

Private Sub CommandButton1_Click()
Dim intErsteLeerZeile As Long
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(intErsteLeereZeile, 2).Value = Me.txtFirma.Value
ActiveSheet.Cells(intErsteLeereZeile, 3).Value = Me.txtStraße.Value
ActiveSheet.Cells(intErsteLeereZeile, 4).Value = Me.txtPLZ.Value
ActiveSheet.Cells(intErsteLeereZeile, 5).Value = Me.txtOrt.Value
ActiveSheet.Cells(intErsteLeereZeile, 6).Value = Me.txtLand.Value
ActiveSheet.Cells(intErsteLeereZeile, 7).Value = Me.txtAnrede.Value
ActiveSheet.Cells(intErsteLeereZeile, 8).Value = Me.txtEmail.Value
ActiveSheet.Cells(intErsteLeereZeile, 9).Value = Me.txtTel.Value
ActiveSheet.Cells(intErsteLeereZeile, 10).Value = Me.txtFax.Value
ActiveSheet.Cells(intErsteLeereZeile, 11).Value = Me.txtHomepage.Value
ActiveSheet.Cells(intErsteLeereZeile, 12).Value = Me.txtHinweise.Value
Unload Formular

End Sub

Für den Abbruchsbutton hab ich das:

Private Sub CommandButton2_Click()
Unload Formular
End Sub

Kann mir da jemand weiterhelfen? Finde leider nichts passendes!

Vielen, vielen Dank im Voraus

liebe Grüße Albi