Zellwert suchen Bereich einfärben
07.01.2022 16:59:44
Volker
ich versuche mittels nachstehendem Code in Zelle A1 eines jeden Tabellenblattes der Mappe einen Wert - 1- zu finden. Wenn er existent ist soll der Bereich A1:G2 eingefärbt werden. Soweit so gut. Wenn der Wert in der Zelle steht, funktionier auch alles. Es kann aber vorkommen das die Zelle leer (#NV) ist. Wie kann ich jetzt diesen Fehler abfangen, so das der Code weiter läuft?
Danke und Gruß Volker
Private Sub CommandButton7_Click()
For Each sh In ActiveWorkbook.Worksheets
sh.Activate
If ActiveSheet.Range("A1") = "1" Then
ActiveSheet.Range("A1:G2").Interior.ColorIndex = 3
End If
Next
End Sub