Überarbeitung einer kleinen Kunden-/Adreßverwaltung

[PetrolMaxxe]

sorry Pflichtfelder hatte ich vergessen. Die Prozedur mit Pflichtfelder dann so:

Code:

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 = 2 To 7
        If Controls(arrCnt(i)) = "" Then
            MsgBox "Das Feld """ & arrCnt(i) & """ darf nicht leer bleiben!", vbExclamation, "fehlende Eingabe"
            Controls(arrCnt(i)).SetFocus
            Exit Sub
        End If
    Next i
    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

Gruß Uwe