Hallo,
in den Zellen J3:J10 stehen durch SVerweise die Werte "K1" "K2" "K3" oder, wenn kein Wert vorhanden, #NV.
Die Zellen in I3:I10 sollen entsprechend der Werte mit gelb(K1), grün(K2) oder rot(K3) ausgefüllt werden.
Bei der ersten If-Zeile kommt ein Fehler:Laufzeitfehler 13, Typen unverträglich
Wo klemmt es denn da? Habe leider keine Ahnung :-)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Byte
Sheets("Auftrag").Activate
Range("I3:J10").Select
For x = 3 To 10
If Cells(x, 10).Value = "K1" Then
Cells(x, 9).Interior.ColorIndex = 6
ElseIf Cells(x, 10).Value = "K2" Then
Cells(x, 9).Interior.ColorIndex = 4
ElseIf Cells(x, 10).Value = "K3" Then
Cells(x, 9).Interior.ColorIndex = 3
End If
Next x
End Sub |