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.
30.10.2023, 10:10 (Dieser Beitrag wurde zuletzt bearbeitet: 30.10.2023, 10:26 von EarlFred.)
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
Hat Dir mein Beitrag geholfen? Dann hilf auch Du - mit einer Spende an Wikipedia, die Tafeln oder aktion-deutschland-hilft.de
30.10.2023, 10:22 (Dieser Beitrag wurde zuletzt bearbeitet: 30.10.2023, 10:26 von EarlFred.)
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.
Hat Dir mein Beitrag geholfen? Dann hilf auch Du - mit einer Spende an Wikipedia, die Tafeln oder aktion-deutschland-hilft.de
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.
