Thema: Datensatz eintragen oder editieren

ClassModule: frmKunden

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdEintragen_Click()
   Dim vRow As Variant
   Dim iRow As Integer
   vRow = Application.Match(txtNo.Text, Columns(1), 0)
   If IsError(vRow) Then
      iRow = WorksheetFunction.CountA(Columns(1)) + 1
   Else
      iRow = vRow
   End If
   Cells(iRow, 1).Value = txtNo.Text
   If optHerr.Value Then
      Cells(iRow, 2).Value = "Herr"
   Else
      Cells(iRow, 2).Value = "Frau"
   End If
   Cells(iRow, 3).Value = txtNachname.Text
   Cells(iRow, 4).Value = txtVorname.Text
End Sub
StandardModule: Modul1

Sub CallForm()
   frmKunden.Show
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und Tabellenblatt