Ich hatte da eine Idee, aber igendwie stehe ich gedanklich völlig daneben.
Ich möchte gerne zusammenhänge Zeilen ein- oder ausblenden. Mit dem Recorder erhalte ich folgenden Code:
Rows("5:10").Select
Selection.EntireRow.Hidden = True
oder zusammengefasst:
Rows("5:10").EntireRow.Hidden = True
Da sich der Bereich immer ändert hatte ich die Idee für den Bereich welcher ausgeblendet werden soll die Werte direkt in Zellen in der Tabelle zu schreiben und sie mittels Varible in den Code einzusetzen. Aber irgendwie finde ich den Weg dazu nicht.
Mein Wunsch ist die Werte in den Zellen K1 und L1 zu verwerden. Also ungefähr in folgender Art und Weise:
Sub Test()
Dim Zeilen_oben As Long, Zeilen_unten As Long
Zeilen_oben = Range("K1").Value
Zeilen_unten = Range("L1").Value
Rows(Zeilen_oben:Zeilen_unten).EntireRow.Hidden = True
' Rows("5:10").EntireRow.Hidden = True
End Sub
Ich habe verschiedenes probiert doch immer erhalte ich die Meldung "Typen unverträglich (Fehler 13)"Vielen Dank für eure Hilfe und weiterhin schöne Festtage.
Gruss Kathrin