Gruppe
Funktion
Bereich
VERGLEICH
Thema
Wenn Name zu Telefonnummer vorhanden, eintragen
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.
Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
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