Typen unverträglich
16.12.2003 12:43:14
Franz W.
ich bekomme hier Typen unverträglich:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim StdRng As Range
Set StdRng = Range(Cells(15, 2), Cells(45, 8))
If Intersect(Target, StdRng) Then
If Right(Target, "S") Then Target.Font.ColorIndex = 2
End If
End Sub
Bei der Zeile " If Intersect(Target, StdRng) Then " kommt "Typen unverträglich".
Könnt Ihr mir bitte sagen, was ich da falsch mache??
Vielen Dank im Voraus und Grüße
Franz