Zelle farblich darstellen wenn aktiv

[Atlan]

Morgen und folgendes,
ich möchte, wegen der Übersicht, die Zelle farblich darstellen die im Moment angesprochen wird.
Sollte diese Zelle schon eine Farbe haben soll diese wieder hergestellt werden wenn der Cursor weiter springt.
Dies ist der Code denn ich gefunden habe.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 6 'Hintergrund Gelb
End Sub

Ich kriege irgendwie den Code nicht eingebunden.
Frage: ist der Code fehlerhaft oder wie kann ich den richtig einbinden.
Am besten sollte die ganze Mappe davon profietieren.


Danke

[Raisix]

Hallo,

Link zu deiner Lösung

Zitat aus der Lösung:

Dieser Code ist in einem Tabellenblatt einzufügen, nicht in einem Modul.

So funktioniert es dann im entsprechenden Blatt.

Beste Grüße

[Atlan]

Ja, Danke,
aber genau bei deinem Satz,

"Dieser Code ist in einem Tabellenblatt einzufügen, nicht in einem Modul."

hängt bei mir 'alles was über der Nase' also Hirn ist, komplett.
Sorry, kannst du mir auf die Sprünge helfen ?
Danke

[Raisix]

Hallo,

füge den Code im Blatt ein (vgl. Screenshot).

Dann funktioniert es.

Beste Grüße

[RPP63]

Da die ursprüngliche Farbe wiederhergestellt werden soll, würde ich das ganz anders angehen, nämlich mit bedingter Formatierung (per VBA).
Dazu gleich mehr …

[Atlan]

der code funzt. wenn eine Zelle/zeile weiss ist, da ich eine grosse Tabelle habe ist die in zweier Reihe farblig aufgeteilt.
Weiss ,Grau, weiss, grau usw.
bei Grau wird die Farbe nicht gewechselt.
Siehe Anhang die Formel für's färben

[schauan]

Hallöchen,

wenn Du bei uns nach Fadenkreuz suchst, findest Du einige Lösungen und Alternativen, u.a. das Farbliche-Hervorhebung-der-aktiven-Zeile.

[Atlan]

Hallo, schauan
leider funzt. da Fadenkreuz_2_API nicht unter 64bit.
kann man da auch einfach aus dem Fadenkreuz nur die Zelle auswählen/anfärben ?
Müsste dann an meine Mappe noch anbinden.
Danke

---

Schreibe nochmal meine Idee/Wunsch hier auf:
1) die aktive ZELLE soll farblig hinterlegt werden.
1a) da die Mappe schon mit Farbe belegt ist müssten diese Farbzellen nach verlassen auch wieder hergestellt werden.
2) die VBA Formeln / Makros müssten angepasst werden, da
3) ein Passwortschutz ( xxx ) auf der Mappe liegt, da nur User mit der Mappe arbeiten und keine Ahnung von Formel oder so haben.

Ich habe eine Testmappe ohne Daten hier unten eingestellt.

Wer kann einem alten Mann da helfen.  
Verschiedene Möglichkeiten schon gefunden/gezeigt bekommen, aber kriege die so nicht angepasst. (Beginner, VBA ein Rätsel mit 1000 Fragen )
Danke

[schauan]

Hallöchen,

hier wäre erst mal das von mir in 32 und 64 bit lauffähig. Bin aber jetzt erst mal bis morgen offline ...


  FadenKreuz_2_API.xlsm (Größe: 27,44 KB / Downloads: 2)

[Atlan]

Ich habe folgendes gefunden um nur die aktive ZELLE ( nur eine ) farblig dar zu stellen und beim verlassen die alte Farbe wieder zurück zu schreiben.

Also: im allgemeinen Modul der Mappe  folgende Zeilen:

Option Explicit
Public lastRange As String
Public lastColor As Integer

In 'Tabelle1' folgende Zeilen:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Range(lastRange).Interior.ColorIndex = lastColor
lastRange = Target.Address
lastColor = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 15
End Sub

Und in 'Diese Arbeitsmappe'  folgenden Zeilen:

Option Explicit
Private Sub Workbook_Open()
lastRange = ActiveCell.Address
lastColor = ActiveCell.Interior.ColorIndex
End Sub


Jetzt das Problem:
wie kriege ich den Fehler behoben weil in der Tabelle1 folgendes schon steht ? (Ausschalten des doppelklicks)

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:AA1002")) Is Nothing Then Cancel = True
End Sub


Und funzt. die Formel überhaupt, weil die ganze Mappe schreibgeschützt sein soll und bleiben.?