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
Antwortento 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-2016)
Antwortento top
#3
Leider sagt mir deine Antwort nix - bin leider zu dumm dafür
Antwortento 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)
   
How do I ask a good question?

In a lot questions the OP has no idea what they're doing, they've found code on the internet, mixed it around and got something. They don't understand why that something doesn't work.
Usually, in these questions, the original poster is rather clueless, helping them on the question is only spoon feeding them, and there is little to no chance the question will help anyone in the future.

Press any key to continue - or any other key to abort.

Spoon feeding:  provide (someone) with so much help or information that they do not need to think for themselves.
Antwortento top
#5
Hallo Storax,

fehlt da nicht vor dem Cells und dem Target ein Sh. ?
Gruß Stefan
Win 7 / Office 2007
Antwortento top
#6
Nein.

PS Bei Target wäre es sogar falsch!
How do I ask a good question?

In a lot questions the OP has no idea what they're doing, they've found code on the internet, mixed it around and got something. They don't understand why that something doesn't work.
Usually, in these questions, the original poster is rather clueless, helping them on the question is only spoon feeding them, and there is little to no chance the question will help anyone in the future.

Press any key to continue - or any other key to abort.

Spoon feeding:  provide (someone) with so much help or information that they do not need to think for themselves.
Antwortento top
#7
Hallo Storax, DANK DAS PASST  Heart Heart Heart
Antwortento top
#8
Hallo Schauan, auch DANKE für DEINE Hilfe. Heart
Antwortento top


Gehe zu:


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