Gruppe
Funktion
Problem
Wenn die Telefonnummer in Spalte A von Sheet2 vorhanden ist, soll in Spalte A eine 1 und in Spalte H der zugehörige Name eingetragen werden.
StandardModule: Modul1
Sub CallForm()
frmErzwingen.Show
End Sub
ClassModule: frmErzwingen
Private Sub cmdContinue_Click()
If txtZwang.Text = "" Then
Beep
MsgBox "Eintrag im Textfeld erforderlich!"
txtZwang.SetFocus
Else
Unload Me
End If
End Sub