Hallo zusammen,
ich baue aktuell ein Excel-Template und benötige eure Hilfe:
Es gibt in dem Template ein paar Pflichtfelder, die ausgefüllt werden müssen. Ich habe es so programmiert, dass wenn die Felder leer sind sie rot markiert werden und die Nachricht "Bitte Pflichtfelder ausfüllen" erscheint. Leider kommt die Message pro ausgelassenen Pflichtfeld. Da dies meine erste Programmierung mit Variablen ist, weiß ich nicht genau, wo ich die MsgBox platzieren muss, dass sie nur einmal erscheint, falls ein oder mehrere Pflichtfelder nicht ausgefüllt sind.
'Prüft alles außer Kontaktfeld
Dim EHF As Range
Dim Bereich1, Bereich2, Bereich3, Bereich4, Bereich5, CommandButton21_Click As Range
Set Bereich1 = Worksheets("Umzug").Range("e3:e5")
Set Bereich2 = Worksheets("Umzug").Range("e8:e9")
Set Bereich3 = Worksheets("Umzug").Range("e15:e17")
Set Bereich4 = Worksheets("Umzug").Range("e19:e20")
Set Bereich5 = Worksheets("Umzug").Range("e29")
Set CommandButton21_Click = Union(Bereich1, Bereich2, Bereich3, Bereich4, Bereich5)
For Each EHF In CommandButton21_Click
Select Case EHF.Value
Case Is = ""
EHF.Interior.Color = RGB(255, 133, 133)
MsgBox "Bitte die Pflichtfelder ausfüllen"
End Select
Next
Gibt es eine Möglichkeit, dass die Message nur einmal erscheint, egal ob ein odere mehrere Pflichtfelder nicht ausgefüllt sind?
Vielen Dank für eure Hilfe!
Viele Grüße
Mathias