Clever-Excel-Forum

Hallo,
ich habe in einem Bereich B3 bis J12 mehrere Zellen mit "x" gekennzeichnet, die als Hintergrundfarbe grün oder rot haben.
Es gibt aber in dem Bereich auch "x" ohne Hintergrund / weißen Hintergrund.

Ich möchte  jetzt nach Drücken eines Buttons das in dem Bereich die Spalten ausgeblendet werden, die nur die "x" ohne Hintergrund/weißen Hntergrund haben.
So dass nur die Spalten mit "x" in rot und grün stehen bleiben.
Ein zweiter Button soll alles wieder einlenden.
Ich bin jetzt soweit mit dem Code gekommen, komme jetzt aber nicht weiter.

Kann mir jemand helfen?
Im Anhang auch die Datei.

--------------------------------------------------


Sub Schaltfläche1_Klicken()



  Dim c As Range

  Application.ScreenUpdating = False

    For Each c In Range("C3:J10").Columns

      c.Hidden = c.Cells(ActiveCell.Row) <> "x"

    Next c

  Application.ScreenUpdating = True

End Sub



Sub Schaltfläche2_Klicken()

   Cells.EntireColumn.Hidden = False
End Sub

Zwei Anmerkungen:

1. Dein erster Beitrag hier ist ja schon etwas her, aber dort hast Du trotz Lösungsvorschlägen nicht geantwortet.
   
2. Crossposting ohne gegenseitige Verlinkung wird nicht gerne gesehen.
   

Beides fördert nicht die Bereitschaft, Dir zu helfen.

Gruß Ralf

Ja...sorry wußte nicht das man nicht in 2 Foren das Thema posten darf.

Kann mir denn jemand hier weiter helfen ?

Hi Flo,

es steht noch die Verlinkung aus. Die Helfer können ohne Wissen, wo sich der zweite Thread befindet, nicht nachsehen, wieviel deiner Frage schon beantwortet ist. Lies dir doch bitte dazu auch diesen Beitrag durch: http://www.clever-excel-forum.de/misc.php?action=help&hid=10

Hallo,

hier Link....

http://www.vba-forum.de/Forum/View.aspx?...enn_x_drin

Konnte ihn leider nicht mehr entfernen.

Hallöchen,

Du könntest mal mit dem Makrorekorder das Einfärben der Zellen aufzeichnen. Dann hast Du schon mal den Farbcode und könntest in ähnlicher Manier wie mit dem x die Zeilen ein- oder ausblenden, im Prinzip

c.Hidden = c.Cells(ActiveCell.Row) <> "x" * c.Cells(ActiveCell.Row).interior... <> farbcode

Da kannst Du auch mal ausprobieren, was verschiedene Rechenoperatoren bewirken oder ob Du die Bedingungen lieber mit AND, OR usw. verknüpfen willst oder solltest

Allerdings solltest Du auch mal prüfen, ob das überhaupt korrekt / so gewollt ist:

c.Hidden = c.Cells(ActiveCell.Row) <> "x"

Schaue Dir dazu mal mit
Debug.Print c.Cells(ActiveCell.Row).Address
die Zelladressen Deiner Scheife an.