Rows mit Range ausblenden

Forumthread: Rows mit Range ausblenden

26.11.2025 14:37:14

NicoHendrik

Hallo alle Zusammen,

in OA10 und OA11 steht der Bereich den ich ausblenden möchte. Die Eingabe in OA10 und OA11 sind variabel.
Wenn sich die Werte hier ändern, soll sich die Tabelle anpassen. Was ich mir hier ausgedacht habe funktioniert nicht.
Bitte um Hilfe.
Gruß Nico

Private Sub Worksheet_Activate()



Dim ci As Range

Set ci = Range("OA10")

Dim cj As Range

Set cj = Range("OA11")

Rows("ci:cj").EntireRow.Hidden = True



End Sub

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Rows mit Range ausblenden

26.11.2025 14:54:01

daniel
AW: Rows mit Range ausblenden

26.11.2025 15:08:15

NicoHendrik
AW: Rows mit Range ausblenden

26.11.2025 15:48:22

NicoHendrik
AW: Rows mit Range ausblenden

26.11.2025 15:59:16

Peter B
AW: Rows mit Range ausblenden

26.11.2025 16:04:03

daniel
AW: Rows mit Range ausblenden

26.11.2025 16:05:45

NicoHendrik
AW: Rows mit Zange ausblenden

27.11.2025 18:07:03

schauan
AW: Rows mit Zange ausblenden

27.11.2025 18:33:45

NicoHendrik
AW: alles ...

27.11.2025 18:49:16

schauan
AW: Rows mit Range ausblenden

26.11.2025 14:55:00

Excelunkt

AW: Rows mit Range ausblenden

26.11.2025 14:54:01

daniel

Hi

ich vermute mal, dass in OA10 und OA11 die untere und obere Zeilennnummer des Bereichs steht, den du ausblenden willst.
Also als Aufgaben beschreibung:
Blende die Zeilen zwischen der Zeilennummer, die in OA10 steht und der Zeilennummer die in OA11 steht, aus

dann so

dim ci as long

dim cj as long

ci = Range("OA10").value

cj = Range("OA11").value

Rows(ci & ":" & cj).EntireRow.Hidden = False

Gruß Daniel

AW: Rows mit Range ausblenden

26.11.2025 15:08:15

NicoHendrik

Danke Daniel,
klappt.

Gruß Nico

AW: Rows mit Range ausblenden

26.11.2025 15:48:22

NicoHendrik

Hallo Daniel,

die Zellen kann ich zwar korrekt ausblenden, wie aber kann ich sie wieder einblenden wenn eine Änderung in AO10 oder AO11 vorgenommen wird

Gruß Nico

AW: Rows mit Range ausblenden

26.11.2025 15:59:16

Peter B

Rows(ci & ":" & cj).EntireRow.Hidden = True

Du musst dir nur eine Logik überlegen wann die Sichtbar, wann sie nicht sichtbar sein sollen

AW: Rows mit Range ausblenden

26.11.2025 16:04:03

daniel

Hi
zuerst alle Zeilen einblenden (Rows.Hidden = False)
dann die Zeilen, die ausgeblendet werden sollen, ausblenden.
Gruß Daniel

AW: Rows mit Range ausblenden

26.11.2025 16:05:45

NicoHendrik

Danke Daniel, so einfach.

Gruß Nico

AW: Rows mit Zange ausblenden

27.11.2025 18:07:03

schauan

Hallo Nico,

Falls die Änderungen in 10 und 11 manuell erfolgen - mal eine Frage zwischendurch - wie nimmst Du Änderungen in AO10 und AO11 vor, wenn die beiden Zeilen ausgeblendet sind? ;-)
OK, der Anwender mit dem schlimmen Finger kann manuell wieder alles einblenden. Als netter Programmierer könntest Du sicherheitshalber die beiden Zeilen nach der Ausblendeaktion generell einblenden ;-)

Manche Sachen lassen sich übrigens auch schon über Ansicht oder Gliederung einstellen oder ggf. per Hilfsspalte über den Autofilter

AW: Rows mit Zange ausblenden

27.11.2025 18:33:45

NicoHendrik

Diese 2 Zellen werden nicht ausgeblendet. Ich hab das so eingestellt das erst ab Zeile 19 ausgeblendet werden kann. Erst ab da bis Zeile 1009 kann ausgeblendet.
Aus funktioniert mit der Harfe von Daniel sehr gut.

Schönen Abend noch.

AW: alles ...

27.11.2025 18:49:16

schauan

klar, danke, Dir auch einen schönen Abend ;-)

AW: Rows mit Range ausblenden

26.11.2025 14:55:00

Excelunkt

Moinsen,
damit ich/einer vom Forum eine gute Lösung angeben kann - woran macht sich die Variabilität erkennbar?
z.B.
-Eingabe in eine Zelle die den Bereich angibt
-Zellen mit Wert sollen ausgeblendet werden
....

Deine Problem
Prblm 1:
Rows() du versuchst deine Variabeln (cj & ci) hier zu übergeben, aber du packst sie in "" das wandelt variablen als string um, ergo erkennt der Computer sie nichtmehr als Variablen
Beispiel
x = 1
debug.print(x) | das liefert 1
debug.print("x") | das liefert x (genau sowas machst du)

Prblm 2:
Rows erwartet ein Worksheet objekt davor damit er weiß wo es die Zellen ausblenden kann das ists nicht gegeben.
Range("bereich") das liefert das mit

Richtiges beispiel:
!!Achtung das ist nicht dynamisch - siehe eingangsfrage

Public Sub t()

    Dim r As Range

    Set r = Range("a3:b4")

    r.Rows.EntireRow.Hidden = True

End Sub

Abschluss:
Du musst noch konkretisieren was die Bedingungen für die Dynamische seite ist.

Gruß
Excelunkt

Forumthread: Rows mit Range ausblenden

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread