Clever-Excel-Forum

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

Hallöchen,

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

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

Schauan meint, diesen Code in DieseArbeitsmappe einfügen

Zitat: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

Hallo Storax,

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

Nein.

PS Bei Target wäre es sogar falsch!

Hallo Storax, DANK DAS PASST 

Hallo Schauan, auch DANKE für DEINE Hilfe.