Makro zur Prüfung mehrerr Textboxen

Forumthread: Makro zur Prüfung mehrerr Textboxen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makro zur Prüfung mehrerr Textboxen

11.04.2025 15:59:39

Chris

Hallo Forum,

mit untenstehendem Makro überprüfe ich die Eingabe in TextBox2 auf ein Datumswert.

Wie kann ich dieses Makro auf die Textboxen 1,2,3 und 5 anwenden, ohne es für jede TB einzeln hinterlegen zu müssen?
Schön wäre auch, wenn der Löschbefehl ... .value = "" sowie .SetFocus automatisch auf die zuletzt genutzte Textbox angewendet würden.

Gruß
Chris



Sub UFUnload()



With UF.TextBox2



If .Text = "" Or .Text = "--" Then Exit Sub

If IsDate(.Text) Then

.Text = Format(.Text, "dd.mm.yyyy")

Unload UF



Else

MsgBox .Text & " ist kein gültiges Datum!" & vbNewLine & vbNewLine & _

"Bitte neu eingeben! (DD.MM.YYYY)"

.SetFocus

.Text = ""

Cancel = True

Exit Sub



End If

End With



End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro zur Prüfung mehrerr Textboxen

11.04.2025 16:10:03

daniel
AW: Makro zur Prüfung mehrerr Textboxen

12.04.2025 11:41:33

Chris

AW: Makro zur Prüfung mehrerr Textboxen

11.04.2025 16:10:03

daniel

Hi
der einfache Weg:

Schreibe den Code als allgemeines Makro mit Übergabeparameter:

Sub UFUnload(TBxxx as Control)



With TBxxx



    If .Text = "" Or .Text = "--" Then Exit Sub

    If IsDate(.Text) Then

        .Text = Format(.Text, "dd.mm.yyyy")

        Unload UF



    Else

        MsgBox .Text & " ist kein gültiges Datum!" & vbNewLine & vbNewLine & _

       "Bitte neu eingeben! (DD.MM.YYYY)"

       .SetFocus

       .Text = ""

        Cancel = True

        Exit Sub



    End If

End With



End Sub

immer dann, wenn du das Makro benötigst, rufst du es auf und nimmst die zu bearbeitende Textbox als Übergabeparameter:

Call UFUnload(UF.TextBox2)

dann wird das Makro auf diese Textbox angewendet.

das zuletzt benutzte Control ist , zumindest solange die Userform noch offen ist, das ActiveControl

Gruß Daniel

AW: Makro zur Prüfung mehrerr Textboxen

12.04.2025 11:41:33

Chris

Hallo Daniel,

danke - ich habe deinen Vorschlag bei mir angepasst und es passt!

Frage: Im allgemeinen Modul erhalte ich bei der Eingabe von "TBxxx." ein kleines DropdownMenu mit verschiedenen Bgriffen, u. a. SetFocus.
Was genau sind das für Befehle? Methoden?
Ich sehe auch, dass bspw. der Befehl .backcolor (also die Hintergrundfarbe einer Textbox) dort nicht auftaucht, aber trotzdem funktioniert...

Gruß

Chris

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!