Problem mit Worksheet_SelectionChange
06.11.2015 09:56:13
Mike
ich möchte gerne ein Event ausführen, wenn ein Wert in Spalte J geändert wird und dabei unterscheiden, ob der neue Wert 0 bzw. "" ist oder etwas anderes.
Bisher habe ich folgenden Code im entsprechenden Blatt.
Das Problem dabei:
Die Zellen werden nur aktualisiert, wenn ich zuerst von der aktiven Zelle in eine andere klicke UND DANN wieder zurück in die ursprüngliche Zelle.
Ich vermute, dass ich hier mit dem falschen Event arbeite (evtl. muss es das Change und nicht das SelectionChange-Event sein ?).
Kann mir jemand damit weiterhelfen und evtl. auch eine kurze Erklärung für Anfänger geben ?
Mein Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("J:J"), Target) Is Nothing Then
If Target.Value = "0" Or Target.Value = "" Then
With Selection
.Offset(0, -4).Font.Bold = True
.Offset(0, -4).Font.Color = RGB(255, 255, 255)
.Offset(0, -4).Interior.Color = RGB(192, 80, 77)
.Offset(0, -3).Font.Bold = False
.Offset(0, -3).Font.ColorIndex = xlAutomatic
.Offset(0, -3).Interior.Color = RGB(218, 238, 243)
.Offset(0, -2).Value = "0"
End With
Else
With Selection
.Offset(0, -3).Font.Bold = True
.Offset(0, -3).Font.Color = RGB(255, 255, 255)
.Offset(0, -3).Interior.Color = RGB(155, 187, 89)
.Offset(0, -4).Font.Bold = False
.Offset(0, -4).Font.ColorIndex = xlAutomatic
.Offset(0, -4).Interior.Color = RGB(218, 238, 243)
.Offset(0, -2).Value = "1"
End With
End If
End If
End If
End If
End Sub
Vielen Dank im Voraus, Mike