Zuerst einmal vielen Dank an alle, dir mir bis jetzt geholfen haben. Ich habe mir eine Vokabular-Abfrage erstellt und dieses Forum hat mir oft dabei geholfen.
Aber jetzt stehe ich auf dem Schlauch.
Der Code dazu:
Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("D4:D16")) Is Nothing Then
Target.Offset(0, -2).Interior.ColorIndex = 0
Target.Offset(1, -2).Interior.ColorIndex = 4
End If
End Sub
Wenn ich also in der Zelle D4 einen Eintrag mache und enter drücke, wird zwei Spalten links die Zelle B5 grün markiert. Wenn ich anschliessend in der Zelle D5 einen Eintrag mache, dann wird die voher grüne Zelle B5 wieder farblos und die aktuelle Zelle B6 grün. Das funktioniert.
Wenn ich aber mit AutoFilter Zeilen Ausblende, dann funktioniert das "farblos stellen" nicht mehr, weil der Befehl sich auf eine Zeile oberhalb bezieht, auch wenn diese nicht sichtbar ist. Wie kann ich das lösen ?
Einen Gruss
Yves