Office: Zeile und Spalte farbig

Hallo,

ich haben folgenden Code hier gefunden und in meine Excel Tabelle eingefügt, es funktioniert so weit. Immer wenn man eine Zelle aktiviert so wird der Hintergrund farbig und bei Deaktivierung wird die alte Hintergrundfarbe wieder hergestellt.
Kann man diese Beispiel so verändern, das die komplette Zeile und Spalte der jeweiligen Zelle farblich hervorgehoben werden und bei Deaktivierung die alte Farbe wieder hergestellt wird?

Option Explicit

Dim rngVorher As Range
Dim colVorher As Integer

Private Sub Worksheet_Deactivate()
If Not rngVorher Is Nothing Then rngVorher.Interior.ColorIndex = colVorher
Set rngVorher = Nothing
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not rngVorher Is Nothing Then rngVorher.Interior.ColorIndex = colVorher
colVorher = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6 'Hintergrund Gelb
Set rngVorher = Target
End Sub

Gruß und danke tittus

:)

 

Moin, tittus,

sieh doch bitte mal bei Hajo in der Beispielmappe Fadenkreuz3 nach, ob das Deinen Vorstellungen entspricht.

 

Hallo Jinx,

das entspricht schon dem was ich möchte, bis auf eine Kleinigkeit.
In der Tabelle haben einige Zellen andere Farben als weiß, grau oder hellblau, diese markiert er aber nicht mit, oder ich mach einen Fehler. Die weißen Zellen werden markiert.

Gruß tittus

 

Hi Tittus,

schau mal in die Bschreibung in der Arbeitsmappe auf Tabellenblatt ET 85. In Zeile 6 steht die Erklärung dafür.

 

Hallo und Danke,

gelesen habe ich das auch, darum war ja meine Frage ob es die Möglichkeit gibt wenn die Spalte oder Zeile unterschiedliche farbige Zellen haben, diese mit einer Farbe zu markieren und wenn die Markierung aufgehoben wird, der ursprüngliche Zustand der Farben wieder hergestellt wird.

Gruß und danke tittus

 

Hallo titus,

das waren auch meine ersten Ansätze. Im letzten Jahr habe ich den Code mit Karin ganz entscheident getestet und viele Veränderungen vorgenommen.
Ich habe mal in mein Archiv geschaut und noch eine alte Datei gefunden. Diese ist selbstverständlich nicht auf dem Stand von Fadenkreuz.XLS oder Fadenkreuz3.XLS.
Wenn Du Dich ausgezeichnet in VBA auskennst, bekommst Du bestimmt die Veränderungen bestimmt eingearbeitet. Ich möchte diese Zeit nicht investieren.