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
|