Kreuztabelle - Spaltenüberschriften hervorheben

[peacescorer]

Hallo liebe Freunde

Ich wäre euch sehr dankbar, wenn ihr mir bei einem Problem helfen könntet:

In einer Kreuztabelle habe ich in Zeilen diverse Orte/Zimmer, welche ich per "x" diversen Spaltenüberschriften zuordne...

Nun ist es so, dass die Tabellen unheimlich umfangreich werden und nur mehr schwer lesbar sind. Die Zeilen abwechselnd farblich markieren (jede 2. Zeile) hatte ich vorher... nun bin ich dazu übergegangen, die jeweils aktive Zeile farblich hervorzuheben. - Bringt aus meiner Sicht schon mal erheblich Verbesserung.

Genial wäre es jedoch, wenn in der aktiven Zeile die Spaltenüberschriften ebenfalls "farblich hervorgehoben" werden, wenn diese in der aktiven Zeile mit einem "x" markiert sind... Ich hoffe, ich habe es einigermassen verständlich rübergebracht - eine kleine Beispieltabelle, wie das Ergebnis aussehen sollte, ist im Anhang.

Schon jetzt will ich mich für Eure Mühen und eure investierte Zeit von ganzem Herzen danken! 

Schöne Grüsse

Christian

[WillWissen]

Moin,

stelle Tante Gugl mal diese Frage: "fadenkreuz farblich in excel".

Ich habe mir die Lösungen jetzt nicht angesehen, denke aber, dass das nur mit einem Makro zu lösen ist.

[Klaus-Dieter]

Hallo,

versuche es mal so:

Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim intSpalte As Integer
   Dim isect As Range
   Set isect = Application.Intersect(Target, Range("A2:F100"))
   If Not isect Is Nothing Then
       Range("A2:F100").Interior.Color = xlNone
       Range("C1:F1").Font.Color = 0
       Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Interior.Color = 65535
       For intSpalte = 3 To 6
           If Cells(Target.Row, intSpalte) = "x" Then Cells(1, intSpalte).Font.Color = 255
       Next intSpalte
   End If
End Sub

[peacescorer]

Lieber Klaus-Dieter!

Ich danke dir! - Genau so habe ich mir das Ergebnis erhofft! 

Auch Danke an Günter für den Input des Fadenkreuzes... ich war schon kräftig am recherchieren, bis Klaus-Dieter diesen Code aus dem Ärmel schüttelte...

Liebe Grüsse und einen guten Rutsch!

Christian

[schauan]

Hallöchen,

ich hätte mal noch zwei Verbesserungsvorschläge. Du hattest ja anfangs geschrieben, dass Du zweizeilig farblich hervorgehoben hast - ich nehme mal an, durch eine "intelligente" Tabelle bzw. Liste.
Wenn Du z.B. Zeile 1 und 2 markierst, bekommst Du die Überschriftenzeile in Gelb und bekommst es auch nicht wieder weg
Wenn Du die Standardformatierung der Liste gelassen hast, ist die Überschrift weiß bzw. die Schriftfarbe noch automatisch. Der Code setzt sie ab Spalte C auf schwarz.

Bisher:
Range("A2:F100").Interior.Color = xlNone
Range("C1:F1").Font.Color = 0

Vorschlag:
Range("A1:F100").Interior.Color = xlNone
Range("C1:F1").Font.Color = xlColorIndexAutomatic

Passt natürlich nur, wenn Du in Zeile 1 nix anders formatiert hast, dann müsste man die ursprüngliche Formatierung irgendwie sichern.