Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userform nicht schließen

Userform nicht schließen
11.01.2018 16:17:41
philipp
Guten Tag zusammen,
ich habe eine Userform mit mehreren Textboxen.
MIt dem CommanButton2 soll die Userform geschlossen werden,
ich möchte eine Meldung ausgeben wenn die Textbox 5
oder 6 oder 7
keinen Inhalt haben.
Die Userform soll nicht geschlossen werden !
gruß
philipp

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform nicht schließen
11.01.2018 16:35:51
Werner
Hallo Philipp,
so:
If Len(Me.TextBox5) = 0 And Len(Me.TextBox6) = 0 And Len(Me.TextBox7) = 0 Then
MsgBox "Textboxen nicht gefüllt."
Else
Unload Me
End If
Oder jeweils statt And ein Or, wenn alle drei Textboxen gefüllt sein müssen damit die Userform geschlossen werden kann.
Gruß Werner
AW: Userform nicht schließen
11.01.2018 16:44:50
philipp
Hallo Werner,
mit Or klappt es.
Könnte man auch prüfen welche Textbox noch gefüllt werden müssen ?
gruß
philipp
AW: Userform nicht schließen
11.01.2018 16:57:30
Hajo_Zi
Hallo Philipp,
Private Sub CMD_Leeren_Click()
Dim ObCb As Object
For Each ObCb In Me.Controls
If TypeName(ObCb) = "TextBox" Then
If ObCb.value="" then
msgbox ObCb.name & " muss gefüllt werden."
end if
End If
Next ObCb
End Sub

Anzeige
Super Hajo kann man das ...
11.01.2018 17:00:32
philipp
Hallo Hajo,
klasse, kann man dies auf bestimmte Textboxen beschränken,
etwa TB 5 TB 6.
gruß
philipp
AW: Super Hajo kann man das ...
11.01.2018 17:15:49
Hajo_Zi
Hallo Philipp,
Prüfe ObCb.name
Gruß Hajo
AW: Super Hajo kann man das ...
11.01.2018 17:30:21
Nepumuk
Hallo Philipp,
einfach so:
Private Sub CommandButton1_Click()
    If TextBox5.TextLength = 0 Then
        MsgBox "Textbox 5 nicht gefüllt."
        TextBox5.SetFocus
    Else
        If TextBox6.TextLength = 0 Then
            MsgBox "Textbox 6 nicht gefüllt."
            TextBox6.SetFocus
        Else
            If TextBox7.TextLength = 0 Then
                MsgBox "Textbox 7 nicht gefüllt."
                TextBox7.SetFocus
            Else
                Unload Me
            End If
        End If
    End If
End Sub

Gruß
Nepumuk
Anzeige
Danke an alle -)
11.01.2018 17:41:58
philipp
Hallo zusammen,
DANKE für die Unterstützung.
Habe das Makro von Nepumuk genommen,
gruß
philipp
Gerne u. Danke für die Rückmeldung. o.w.T.
11.01.2018 17:56:38
Werner

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige