|
Hallo Markus! Der Eintrag #NV gibt einen Fehler bei einer Berchnung etc. an. Auf diesen Werte kannst du nicht einfach mit der Abfrage des Zellwertes (.value Eigenschaft, ist ja der Standartwert hinter cells() wenn da nichts mehr steht) zugreifen. Da musst du abfragen, ob ein Fehler vorliegt bzw. den Text abfragen.
Unten mal zwei Möglichkeiten. Die Eine prüft generell auf Fehler die andere Explizit nur auf #NV (da aber aufpassen, #Wert wird dann nicht abgefangen). VG
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 IsError(Cells(x, 10)) Then 'das ist #NV
'If Cells(x, 10).Text = "#NV" Then 'alternativ wenn du nur explicit #NV abfangen willst, dann rutscht aber #Wert etc. durch.
ElseIf 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
|