ich möchte in einer Spalte, dass die Zellen durch einfaches anklicken farbig (am besten grün) markiert werden.
Ich habe diesen Code im Internet gefunden:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Set changeRange = Range("A1:A10") intColor = vbRed If Not Application.Intersect(changeRange, Target) Is Nothing Then With Target.Interior .Color = IIf(.Color = intColor, xlNone, intColor) End With End If End Sub
Ich habe die Zellen auf die Spalte in der ich sie markieren möchte angepasst, aber wenn ich in die Zelle klicke passiert nichts.
Der Code muss zwingend im Codemodul das Blattes stehen, dessen Bereich du überwachen willst, keinesfalls in einem allgemeinen Modul
Der Code plakatiert den kompletten markierten Bereich rot, wenn auch nur eine einzige Zelle im überwachten Bereich markiert ist. Ist das so gewünscht?
Markierst du mehrere Zellen unterschiedlicher Farbe, werden diese immer rot gefärbt. Das kann so gewollt sein - wenn nicht, sage, was passieren soll.
Code:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim ChangeRange As Range: Set ChangeRange = Range("A1:A10") Const intColor As Long = vbRed
If Not Application.Intersect(ChangeRange, Target) Is Nothing Then With Application.Intersect(ChangeRange, Target).Interior .Color = IIf(.Color = intColor, xlNone, intColor) End With End If End Sub
Dann funktioniert der Code auch so wie programmiert, solange du dich im Blatt "Wochenübersicht" befindest und das Blatt nicht geschützt ist.
Beschreibe doch mal, wie sich "funktioniert nicht" genau auswirkt. Gibt es eine Fehlermeldung? Setz mal in die Zeile "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" einen Haltepunkt (Zeile markieren, F9 drücken). Wenn du jetzt eine Zelle markierst, sollte der Code anlaufen und die Zeile sollte gelb hinterlegt sein. Dann gehst du mit F8 schrittweise durch den Code und berichtest, was wann wo passiert.
Bei dem in deimen Beitrag markierten Teil (Fett und unterschtrichen) hat sich die Zeile rotgefärbt (siehe Anhang).
Dann funktioniert der Code auch so wie programmiert, solange du dich im Blatt "Wochenübersicht" befindest und das Blatt nicht geschützt ist.
Beschreibe doch mal, wie sich "funktioniert nicht" genau auswirkt. Gibt es eine Fehlermeldung? Setz mal in die Zeile "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" einen Haltepunkt (Zeile markieren, F9 drücken). Wenn du jetzt eine Zelle markierst, sollte der Code anlaufen und die Zeile sollte gelb hinterlegt sein. Dann gehst du mit F8 schrittweise durch den Code und berichtest, was wann wo passiert.
