Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1488to1492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen ein- bzw. ausblenden

Zeilen ein- bzw. ausblenden
24.04.2016 21:49:58
Golem
Hallo Excel-Fachleute,
in einem Code verwende ich folgende Schreibweise, um Zeilenbereich in einer Tabelle ein- bzw. auszublenden:
Select Case Range("Variable1")
Case 1: Range("26:46, 65:65, 83:84").EntireRow.Hidden = False
Case 2: Range("102:122, 141:141, 159:160").EntireRow.Hidden = False
Case 3: Range("178:198, 217:217, 235:236").EntireRow.Hidden = False
Case 4: Range("254:274, 293:293, 311:312").EntireRow.Hidden = False
Case 5: Range("330:350, 369:369, 387:388").EntireRow.Hidden = False
Case 6: Range("406:426, 445:445, 463:464").EntireRow.Hidden = False
End Select
Select Case Range("Variable1")
Case 1: Range("26:84").EntireRow.Hidden = True
Case 2: Range("102:160").EntireRow.Hidden = True
Case 3: Range("178:236").EntireRow.Hidden = True
Case 4: Range("254:312").EntireRow.Hidden = True
Case 5: Range("330:388").EntireRow.Hidden = True
Case 6: Range("406:464").EntireRow.Hidden = True
End Select
Funktioniert auch einwandfrei.
Diese Tabelle wird noch weiter bearbeitet. Daher kommt es vor, dass noch weiter Zeilen
in die Tabelle eingefügt werden.
Danach stimmt die Zuordnung nicht mehr mit dem Code.
Ich habe versucht eine andere Schreibweise zu verwenden:
Case 1: Range("26:46, 65:65, 83:84").EntireRow.Hidden = False in
Case1: Range("Zeile1") & Range("Zeile2").............. .EntireRow.Hidden = False
wobei Range("Zeile1") und Range("Zeile2") usw. Namenszellen sind, in denen
die Zeilennummern stehen.
Funktioniert natürlich nicht.
Wer kann mir Tipps oder Anregungen geben?
Schon mal besten Dank
Werner

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ein- bzw. ausblenden
25.04.2016 06:10:41
Hajo_Zi
Hallo Werner,
ich würde Vermuten.
Case1: Range("Zeile1","Zeile2")..............

AW: Zeilen ein- bzw. ausblenden
25.04.2016 10:07:24
Golem
Einen schönen guten Morgen, Hajo!
Deinen Vorschlag habe ich ausprobiert und funktioniert auch einwandfrei.
Auch ich habe einen Weg gefunden.
Mit der Verwendung von Variablen funktioniert der Code auch:
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
a = Range("Zeile1")
b = Range("Zeile2")
c = Range("Zeile3")
d = Range("Zeile4")
e = Range("Zeile5")
Case 1: Range("a:b, c:c, d:e").EntireRow.Hidden = False
Schönen Dank für Deine Hilfe!
Gruß
Werner

Anzeige
AW: Zeilen ein- bzw. ausblenden
25.04.2016 10:07:30
Golem
Einen schönen guten Morgen, Hajo!
Deinen Vorschlag habe ich ausprobiert und funktioniert auch einwandfrei.
Auch ich habe einen Weg gefunden.
Mit der Verwendung von Variablen funktioniert der Code auch:
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
a = Range("Zeile1")
b = Range("Zeile2")
c = Range("Zeile3")
d = Range("Zeile4")
e = Range("Zeile5")
Case 1: Range("a:b, c:c, d:e").EntireRow.Hidden = False
Schönen Dank für Deine Hilfe!
Gruß
Werner

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige