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