VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wenn Name zu Telefonnummer vorhanden, eintragen

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

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und VERGLEICH