Erste Zeile nicht färben!
12.09.2022 09:00:47
Oraculix
In meiner Tabelle habe ich einen VBA Code der die markierte Zelle rot färbt. Aber es soll in der ersten Zeile nichts Rot gefärbt werden.
Frage :
Wie kann ich die Range im unten stehenden Code einfügen A1:IZ1 das dieser Bereich nicht Rot gefärbt wird?
'Färbt markierte Zelle
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fehler
Cells.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="="
Selection.FormatConditions(1).Interior.Color = 255
Err.Clear
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
'Springt immer zum Anfang der Tabelle
ActiveWindow.ScrollColumn = Target.Column
End Sub
Oraculix
