Bedingte Formatierung mit mehr als 3 Bedingungen
13.03.2006 10:41:36
Ingo
ich benutze folgenden Code um mit mehr als 3 bedingten Formatierungen zu arbeiten. Das funktioniert soweit auch ganz gut. Wenn ich allerdings den Zahleneintrag aus einer Zelle lösche steigt das Macro aus mit der Meldung "Typen unverträglich". Wie kann ich den Fall abfangen das beim Löschen eines Zellwertes das Macro aussteigt?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case 1
Target.Interior.ColorIndex = 1
Case 2
Target.Interior.ColorIndex = 2
Case 3
Target.Interior.ColorIndex = 3
Case 4
Target.Interior.ColorIndex = 4
Case 5
Target.Interior.ColorIndex = 5
Case 6
Target.Interior.ColorIndex = 6
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
Danke
Anzeige