Target und Mehrfachauswahl
07.11.2003 16:38:32
Det
Mein Problem!
Wenn ich bestimmte Werte (Buchstaben) in eine Zelle eingebe, werden diese meinen Erwartungen entsprechend in Großbuchstaben gewandelt und die Zelle entsprechend des Eintrages farbig unterlegt. (bis hier wunderbar)
Wenn ich nun in der Tabelle mehr als nur eine Zelle markiere und die Löschtaste betätige bekomme ich die Meldung "Laufzeitfehler 13", "Typen unverträglich".
Es ist mir nicht gelungen, dies abzufangen. Nach dem Löschen der markierten Zellen bzw. des Zellinhaltes soll der Colorindex auf xlNone gesetzt werden, was beim Löschen einer einzelnen Zelle auch funktioniert.
Vieleicht hat jemand von Euch eine Idee und kann mir helfen.
Besten Dank im voraus.
Hier mein Code
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.DisplayAlerts = False
ActiveSheet.Unprotect
If Intersect(Target, Range("C5:Ag42, c85:ag122,c125:af162")) _
Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Target = UCase(Target)
ERRORHANDLER:
Application.EnableEvents = True
On Error GoTo 1: ' ---------- funktioniert nicht
If Target.Value = "" Then ' ---- hier erfolgt die Fehlermeldung
Target.Interior.ColorIndex = xlNone
End If
If Target.Value = "U" Then
Target.Interior.ColorIndex = 6
End If
If Target.Value = "DA" Then
Target.Interior.ColorIndex = 5
End If
If Target.Value = "K" Then
Target.Interior.ColorIndex = 4
End If
If Target.Value = "SU" Then
Target.Interior.ColorIndex = 3
End If
If Target.Value = "ADV" Then
Target.Interior.ColorIndex = 7
End If
ActiveSheet.Protect
Exit Sub
1:
With ActiveCell
.ClearContents
.Interior.ColorIndex = xlNone
End With
ActiveSheet.Protect
Application.DisplayAlerts = True
End Sub
Gruß Det