MsgBox mit If Anweisung
19.12.2023 11:45:15
THET
Ich stehe gerade auf dem Schlauch und hoffe, das mir jemand helfen kann.
Beim Klick auf einen Speichern Button in einer UserForm soll eine Abfrage gestartet werden, ob x Textfelder befüllt wurden.
wenn ja = Speichern
wenn nein = msg Box mit der Info, dass erst befüllt werden soll.
In meinem Code funktioniert das ganze grundsätzlich, nur zeigt es mir die msgBox auch an, wenn die Textfelder voll sind.
Hier der Code:
'Prüfung, ob alle Felder befüllt sind
Dim KontrolleFelder As String
KontrolleFelder = (TextBoxBeobachtung.Value = "" Or TextBoxMassnahme.Value = "" Or TextBoxLogbuch = "")
Dim msgBoxKontrolleFelder As String
msgBoxKontrolleFelder = msgBox("Bitte fülle alle Felder aus.", , "Achtung!")
If KontrolleFelder = True Then
Exit Sub
Else: KontrolleFelder = False
End If