Markieren einer angewählten Spalte oder Zelle

[Carloflip]

Wie kann dieser Code in der gesamten Arbeitsmappe laufen
ohne dass ich Ihn in jedem Sheet einfüge.  Bzw. wie muss  er angepasst werden.
Der Ordnung halber zur Info die Quelle war das Internet



'___________________________________________________________
' Markieren einer angewählten Spalte oder Zelle
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.FormatConditions.Add(Type:=xlExpression, Formula1:="=WAHR")
    .Interior.ColorIndex = 4 '= vbBlue
End With
End Sub

[schauan]

Hallöchen,

schaue mal in das Codemodul von DieseArbeitsmappe, da gibt es was vergleichbares

[Carloflip]

Leider sagt mir deine Antwort nix - bin leider zu dumm dafür

[Storax]

Schauan meint, diesen Code in DieseArbeitsmappe einfügen

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Cells.FormatConditions.Delete
    With Target.FormatConditions.Add(Type:=xlExpression, Formula1:="=WAHR")
        .Interior.ColorIndex = 4 '= vbBlue
    End With
End Sub

[Steffl]

Hallo Storax,

fehlt da nicht vor dem Cells und dem Target ein Sh. ?

[Storax]

Nein.

PS Bei Target wäre es sogar falsch!

[Carloflip]

Hallo Storax, DANK DAS PASST 

[Carloflip]

Hallo Schauan, auch DANKE für DEINE Hilfe.