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