Office: Ausblenden von Farben und Text

Hallo zusammen,

ich hab da mal ne Frage.
Und zwar habe ich eine Gesamtübersicht (siehe Anhang).
Nun möchte ich, wenn ich auf den Reiter "LW" klicke, dass die Tabelle
im Prinzip so bleibt, aber alles ausgeblendet wird was nicht Hellbau ist.

So möchte ich es dann später auch mit anderen Reitern und den übrigen
Farben machen.

Danke im Voraus
Gruß Kai

 

Hi Kai,

was meinst du mit "ausblenden" - die Zeilen ausblenden oder die Spalten? Welche Zellen sollen als Refenz gelten oder ist gemeint, wenn mindestens 1 Zelle in der Zeile bzw. Spalte hellblau ist, dann die Zeile/Splate ausblenden?

Bis später,
Karin

 

Hallo Karin,

ich möchte das jede Zelle die Hellblau hinterlegt ist, auch so bleibt,
wenn ich auf den Reiter "LW" klicke.
bei jeder anders farbigen Zelle soll sowohl die Farbe als auch der Text verschwinden.

So möchte ich eine einfache Übersicht schaffen, für die jeweilige Abteilung.

Gruß Kai

 

Hi Kai,

mit dem folgenden Code wird bei allen Zellen im Bereich C10:BB121 die Farbe, die nicht hellblau ist, zurückgesetzt und die Zellen mit dem Format ";;;" belegt, wodurch der Zellinhalt verborgen wird:

Code:

Sub FarbenAusblenden()
   Dim rngZelle As Range
   For Each rngZelle In Range("C10:BB121").SpecialCells(xlCellTypeConstants)
      If rngZelle.Interior.Color <> 16763955 Then
         rngZelle.Interior.ColorIndex = xlNone
         rngZelle.NumberFormat = ";;;"
      End If
   Next rngZelle
End Sub

Mir ist allerdings nicht klar, ob es das ist was du erreichen willst. Mir ist auch nicht klar, weshalb das beim Aktivieren des Tabellenblattes "LW" erfolgen soll, welches in deiner Mappe ja leer ist.

Bis später,
Karin

 

Hallo Karin,

der Reiter "LW" ist eine Abteilung.
Ich möchte wenn ich darauf klicke nur die relevanten Zellen für diese Abteilung sehen. (Hellbau)

Ich dachte ich könnte die Hellblauen Zellen aus der Gesamtübersicht
1:1 übernehmen.

Der Vorteil ist, wenn ich etwas in der Gesamtübersicht ändere,
muss es nicht im Reiter "LW" geändert werden.

Danke für deine Mühe...

Gruß Kai

 

Hi Kai,

ist dein Problem nun geklärt oder weißt du nicht, wie du die Daten ins Tabellenblatt LW bekommst?

Bis später,
Karin

 

Hallo Karin,

gebau das ist noch mein Problem...

Gruß Kai

 

Hi Kai,

und weshalb sagst du nicht, wo dich der Schuh drückt - oder muss ich mir deine Fragen selbst ausdenken? :p

Code:

Private Sub Worksheet_Activate()
   Dim rngZelle As Range
   Application.ScreenUpdating = False
   Worksheets("Gesamtübersicht").UsedRange.Copy Range("A1")
   For Each rngZelle In Range("C10:BB121").SpecialCells(xlCellTypeConstants)
      If rngZelle.Interior.Color <> 16763955 Then
         rngZelle.Interior.ColorIndex = xlNone
         rngZelle.NumberFormat = ";;;"
      End If
   Next rngZelle
   Application.ScreenUpdating = True
End Sub

Bis später,
Karin

 

Hallo Karin,

sehr geil...
besten Dank.

Letzte Frage...

If rngZelle.Interior.Color <> 16763955 Then

In der Zeile bestimmt du ja die Farbe mit er Nummer.
Woher bekomme ich die Nummern für die anderen Farben in meiner Tabelle.

Sorry ich weiß das ich keine Ahnung habe...

Gruß Kai

 

Hi Kai,

einfach mal den Cursor in eine farbige Zelle setzen und diesen Code ausführen:

Code:

Sub ZellFarbe()
   MsgBox ActiveCell.Interior.Color
End Sub

Übrigens: dafür, dass man etwas nicht weiß, muss man sich nicht entschuldigen oder sich gar schämen - deshalb gibt es ja dieses Forum, um sein Wissen zu erweitern. :)

Bis später,
Karin

 

Hallo Karin,

ich kann Dir nicht ganz folgen.
Bekomme es nicht hin.

Gruß Kai

 

Hi Kai,

WAS GENAU bekommst du nicht hin?

Bis später,
Karin

 

Hallo Karin,

wie kann ich diesen Befehl ausführen?

Gruß Kai

 

Hi Kai,

den Code in ein allgemeines Modul kopieren und dann das Makro starten.

Bis später,
Karin

 

Hallo Karin,

bis dahin hat jetzt alles super geklappt.

Danke