Schleife Bereich prüfen
21.04.2015 16:34:35
Lisa
Im Anhang habe ich eine Datei, in welcher ich einen Bereich prüfe.
Ich würde gern zusätzlich die leeren Felder farblich markieren.
Leider fehlen mir hierzu die nötigen Kenntnisse.
Anbei das Makro. zur Bessren Erklärung auch der Anhang.
https://www.herber.de/bbs/user/97208.xls
Sub Makro1()
ActiveWorkbook.Names.Add Name:="ZuTesten", RefersTo:= _
"=Tabelle1!B4,Tabelle1!D4,Tabelle1!F4,Tabelle1!B6,Tabelle1!D6,Tabelle1!F6"
Dim z As Range
Dim Leer As String
For Each z In Tabelle1.[ZuTesten]
If z.Value = "" Then _
Leer = Leer & z.Address & ", "
Next
If Len(Leer) = 0 Then Exit Sub
Leer = Left(Leer, Len(Leer) - 2)
MsgBox "Die Zellen " & Leer & " müssen noch ausgefüllt werden."
End Sub
Liebe Grüße Lisa