Mehrere Zellen auf Inhalt prüfen
25.01.2021 08:39:16
Daniel
ich stehe vor einem "kleinen" Problem und würde mich freuen, wenn mir von euch jemand auf die Sprünge helfen kann.
Ich habe eine Arbeitsblatt, in welches Daten eingetragen werden sollen. Bevor nun diese Blatt (per VBA Button) gedruckt oder als PDF gespeichert werden kann sollen verschiedene Zellen überprüft werden, ob Diese Werte enthalten.
Eine if / else Verschachtelung wäre möglich, wird aber wahnsinnig unübersichtlich, da es sich um 20 Zellen handelt, die "verstreut" sind.
Hiermit habe ich mir ein wenig geholfen
Sub Pflichtfeldprüfung()
Dim Zelle As Range
For Each Zelle In Range("E2, E4, C6, B9, M5, K9")
If IsEmpty(Zelle) Then MsgBox "Sie haben nicht alle Daten ausgefüllt."
Next Zelle
End Sub