|
Hallo,
danke für die Antwort, aber habe bereits eine andere Möglichkeit entdeckt:
Als Beispiel:
Public Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim bereich, zelle As Range
Set bereich = Range("B4:AF29")
For Each zelle In bereich
Select Case Target.Value
Case "HO"
Target.Interior.ColorIndex = 3
End Select
Next
End Sub
Habe aber noch eine Frage:
Wenn man jetzt eine Zelle nimmt und die über das kleine Viereck unten rechts in der Zelle in meherere Zellen einfügt und dann mit ENTF wieder rausnimmt, bleiben die Zellen in der entsprechenden Farbe, warum?
Vielen Dank und Grüße
Simon
|