wie kann man in VBA folgende Anweisung sinngemäß schreiben:
wenn im Bereich .Cells(3, 5), .Cells(LeZei, 5) keine Hintergrundfarben sind, dann gehe zum ErrHandler
Danke für die Hilfe, Servus, Walter
Sub Farbpruefung()
Dim rBereich As Range
Dim rZelle As Range
With ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!
Set rBereich = .Range("E3:E" & .Cells(Rows.Count, 5).End(xlUp).Row)
For Each rZelle In rBereich
If rZelle.Interior.ColorIndex = xlNone Then GoTo ErrorHandler
Next rZelle
End With
Exit Sub
ErrorHandler:
MsgBox "Die Zelle " & rZelle.Address(0, 0) & " hat keine Hintergundfarbe.", _
64, " Information für " & Application.UserName
Set rBereich = Nothing
End Sub
Option Explicit
Sub Farbpruefung()
Dim Rng As Range, MyBool As Boolean
For Each Rng In Range("E3:H10") 'also hier Bereich anpassen
If Rng.Interior.ColorIndex xlNone Then MyBool = True
Next
If MyBool Then GoTo ErrorHandler
MsgBox "DeinCode"
Exit Sub
ErrorHandler:
MsgBox "mind. eine Farbe im Bereich vorhanden"
End Sub
Gruß Matthias