Überarbeitung einer kleinen Kunden-/Adreßverwaltung

[PetrolMaxxe]

Hallo Heiko,

ich habe mal eine Listobjekt (formatierte Tabelle "Tbl_Stammdaten") draus gemacht und den Code zum Eintragen dazu passend geschrieben.

Code:

Option Explicit

Private Sub cmd_Speichern_Click()
    Dim i&, arrZ(), arrCnt(): arrCnt = Array("cmb_Anrede", "txt_Titel", "txt_Vorname", "txt_Name", "txt_Strasse", "txt_Hausnummer", "txt_PLZ", "txt_Ort", "cmb_Land", "txt_Telefon", "txt_Handy", "txt_EMail", "txt_Internet", "txt_Kundennummer")
    ReDim arrZ(1 To 1, 1 To UBound(arrCnt) + 1)
    For i = LBound(arrCnt) To UBound(arrCnt)
        arrZ(1, i + 1) = Controls(arrCnt(i))
        arrCnt(i) = ""
    Next i
    Tabelle1.ListObjects(1).ListRows.Add.Range.Resize(1, UBound(arrZ, 2)) = arrZ
End Sub

Private Sub UserForm_Initialize()
    cmb_Anrede.List = Array("Frau", "Herr", "Divers")
    cmb_Land.List = Array("Deutschland", "Österreich", "Schweiz", "Spanien")
    cmb_Anrede.ListIndex = 0
    cmb_Land.ListIndex = 0
End Sub

Mehr braucht es dafür eigentlich nicht.

  Kunden_Adress_Verwaltung.xlsm (Größe: 23 KB / Downloads: 1)

Gruß Uwe