VBA abhängig von Zellfarbe ausführen
17.02.2018 20:20:04
Zellfarbe
ich mal wieder.
Ich möchte eine Funktion (eine oder merhere ausgewählte Zellen mit bestimmten Buchstaben füllen)
erst dann anschieben, wenn keine der gewählten Zellen mit der Farbe 43 gefüllt ist/sind.
Sub Farbentest()
With Selection.Interior
If Selection.Interior.ColorIndex = 43 Then
MsgBox "Zellen mit Farbnummer 43"
Else: MsgBox "Zellen ohne Farbnummer 43"
End If
End With
End Sub
Was läuft da falsch?