Code Bediengte formatierung

Question

Hallo,

habe mal eine frage zum folgen Code

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim rngZelle As Range, strText As String
Select Case Target.Value
Case "U"
Target.Interior.ColorIndex = 6
Case "u"
Target.Interior.ColorIndex = 6
Case "H"
Target.Interior.ColorIndex = 36
Case "h"
Target.Interior.ColorIndex = 36
Case ""
Target.Interior.ColorIndex = 0
End Select
End Sub

der Code funktioniert wenn man die Buchstaben einzeln in die Zellen eingibt wenn man aber die erste Zelle nach unten zieht kommt eine fehlermeldung " Laufzeitfehler 13 Typen unverträglich "

grüße
Achim

Answer 1

Hallo Karin,

danke schön, jetzt funktioniert das ganze.

wünsche dir noch ein schöne Wochenende
Achim

Answer 2

Hallo Karin,

danke schön, für deine Hilfe es funktioniert jetzt.

wünsche dir noch ein schönes Wochenende

Achim