Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Markieren einer angewählten Spalte oder Zelle
#1
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
Antworten Top
#2
Hallöchen,

schaue mal in das Codemodul von DieseArbeitsmappe, da gibt es was vergleichbares Smile
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#3
Leider sagt mir deine Antwort nix - bin leider zu dumm dafür
Antworten Top
#4
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


Angehängte Dateien Thumbnail(s)
   
Antworten Top
#5
Hallo Storax,

fehlt da nicht vor dem Cells und dem Target ein Sh. ?
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#6
Nein.

PS Bei Target wäre es sogar falsch!
Antworten Top
#7
Hallo Storax, DANK DAS PASST  Heart Heart Heart
Antworten Top
#8
Hallo Schauan, auch DANKE für DEINE Hilfe. Heart
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste