Zellen / Zeilen farblich markieren

[d'r Bastler]

Moin,
eigentlich ist der Code unten Farbspielerei Nr. 5, kann aber in sehr großen Tabellen und auf großem/n Monitor/en tatsächlich zur Orientierung dienen, wo man denn gerade ist. Die SelectionChange-Version färbt beim Wechsel der Zeile die ersten fünf Zellen als Hinweis ein, beim Verlassen wieder aus. Die DoubleClick-Verison markiert nur einzelne (auch mehrere) Zellen, die dann als Orientierungspunkt dienen.

Code: Alles auswählen

Option Explicit
Public iRow as integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer

If iRow <> 0 Then
    For i = 1 To 5                      'entfernt die vorherigen Formatierungen
        Cells(iRow, i).ClearFormats
    Next i
End If
    
For i = 1 To 5                          'verpasst den Zellen A-E der ausgewählten Zeile eine farbliche Markierung
    Cells(Target.Row, i).Interior.ColorIndex = 22
    iRow = Target.Row
Next

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim iDX As Integer
'Cancel = True                      'TRUE wenn nur markiert, aber nichts geändert werden soll

With Target.Interior
    iDX = .ColorIndex
    Select Case iDX
        Case 38
            ActiveCell.ClearFormats 'entfernt die vorherigen Formatierungen
        Case Else
            .ColorIndex = 38        'verpasst der ausgewählten Zelle eine farbliche Markierung
    End Select
End With

End Sub

Viel Spaß damit!

[d'r Bastler]

Hier die Alternative für das alle Formatierungen killende ClearFormats:
Aus dem eigenen Spickzettel