Zeilen per Makro selektiv ein-/ausblenden
mirko
habe schon im Archiv gesucht und google genutzt, aber bin allein bisher nicht weiter gekommen. Ich möchte Zellen selektiv ausblenden.
Mein Makro sieht bisher so aus:
Sub nn()
Rows("14:206").Select
Selection.EntireRow.Hidden = True
Rows("14:206").Select
Selection.EntireRow.Hidden = False
End Sub
Ganz klar was da passiert, bei klick auf die Schaltfläche wird aus- und gleich wieder eingeblendet.
Wollte eigentlich, dass ich mit einer Schaltfläche aus- und einblenden kann.
Wenn das nich geht muss ich es vieleicht mit einem Optionsfeld realisieren?
Dazu kommen noch zwei Anforderungen, erstens sollen nur die geraden Zeilen ausgeblendet werden und zweitens sollen die Daten, die in den ausgeblendeten Zeilen stehen, immer noch als Datenquell für Diagramme zur Verfügung stehen.
Ich denke Anforderung eins lässt sich realisieren, habe ich schon eimal mit dem Makrorekorder gemacht, da es sich hier aber um ziemlich viele Zeilen handelt, würde ich ein VBA Code bevorzugen.
Bei Anforderung zwei kenne ich die Lösung anstatt auszublenden die Zeilenhöhe einfach gleich Null zu setzen.
Wäre nett, wenn mir jemand dabei hilft die Prozedur zu realisieren. Schon mal danke für die Hilfe im Voraus.
MfG mirko
P.S. frage mich immer was Level: VBA bescheiden heißt. Zählt die Fähigkeit den oben gezeigten VBA Code gepuzzelt zu haben als Level: VBA bescheiden?