Ich habe folgenden Code eingegeben.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case "M"
Target.Interior.ColorIndex = 15
Case "I"
Target.Interior.ColorIndex = 16
Case "F"
Target.Interior.ColorIndex = 4
Case "V"
Target.Interior.ColorIndex = 5
Case "S"
Target.Interior.ColorIndex = 10
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
Das Problem: Wenn ich die Eingaben mehrerer Zellen gleichzeitig löschen möchte erscheint die Fehlermeldung "Errore run-time '13'". Diese Fehlermeldung erscheint nicht, wenn ich eine Zelle nach der Anderen lösche.
Für jede Hilfe bin ich Euch dankbar.
Freundliche Grüsse.
Thierry