ich muss meine Anfrage von heut Morgen doch noch einmal überarbeiten.
Sorry dafür.
ist folgendes möglich?
1) alle Zellen rechts neben der aktiven farbig markieren.
2) eine Zelle links neben der aktiven bis zur obersten gefüllten Zelle farbig markieren.
3) von der obersten gefüllten Zelle zwei nach links farbig markieren.
4) von dieser aus wieder bis zur obersten gefüllten Zelle dieser Spalte farbig markieren
5) und wieder von dort zwei nach links und wieder bis zur obersten gefüllten Zelle farbig markieren.
Ein Problem ergibt sich wohl eventuell wenn man in Spalte A klickt? Da gibt es nichts mehr nach links...
Ich würde mich freuen, wenn hier jemand eine Idee zu hätte.
Vielen Dank schon mal
Der Lösungsansatz von heut Morgen - freundlicherweise von hary erdacht - sieht so aus: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cells.Font.ColorIndex = xlAutomatic Cancel = True Select Case Target.Column Case Is > 1 Cells(1, Target.Column - 1).Resize(Target.Row, 1).Font.Color = vbRed Cells(Target.Row, Target.Column).Resize(1, Cells(Target.Row, Columns.Count).End(xlToLeft). _ Column).Font.Color = vbRed Case Else Rows(Target.Row).Font.Color = vbRed End Select End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.Font.ColorIndex = xlAutomatic 'End Sub