Laufzeitfehler 1004
19.04.2017 09:45:30
Torben
Folgendes Problem, die vorletzte Zeile "Cells...." ist im Excel gelb markiert.
Weiß jemand, wo der Fehler liegt?
Private Sub Worksheet_Change(ByVal Target As Range)
lin = Target.Row: clm = Target.Column ' target-zelle bestimmen
Select Case Cells(lin, clm)
Case "V": clr = 4
Case "v": clr = 4
Case Else: clr = 2
End Select
Cells(lin, clm).Interior.ColorIndex = clr
End Sub