Makro Tabellenübergreifend
25.04.2019 15:21:41
Alex
In meiner nervenden Tabelle habe ich in Tabelle1 eine Dropdownliste. Diese blendet je nach Wert gewisse Zellen aus. In Tabelle 1 und 2 funktioniert das auch perfekt. Nur bei Tabelle 3(Schachtzusammenfassung) tut er sich schwer. Dort sollen Zeilenbündel ausgeblendet werden (siehe folgenden Sub). Ausgeblendet werden aber nur einzelne Zellen im ersten obersten Bündel. Stellt sich mir die Frage, ob Excel das nicht schafft oder irgendwo der Wurm drin ist? Bitte nicht wundern, dass kein End Sub steht. Der geht noch weiter...:)
Ideen/Vorschläge?
VG Alex
Sub:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$C$4" Then
Select Case Target.Value
Case 1
Worksheets("Luftmengenermittlung").Rows.Hidden = False
Rows("66:457").Hidden = True
Rows("463:476").Hidden = True
Worksheets("Anlagenzusammenfassung").Rows("7:20").Hidden = True
Worksheets("Schachtzusammenfassung").Rows("18:143").Hidden = True
Case 2
Worksheets("Luftmengenermittlung").Rows.Hidden = False
Rows("122:457").Hidden = True
Rows("465:476").Hidden = True
Worksheets("Anlagenzusammenfassung").Rows("9:20").Hidden = True
Worksheets("Schachtzusammenfassung").Rows("36:143").Hidden = True
Case 3
Worksheets("Luftmengenermittlung").Rows.Hidden = False
Rows("177:457").Hidden = True
Rows("467:476").Hidden = True
Worksheets("Anlagenzusammenfassung").Rows("11:20").Hidden = True
Worksheets("Schachtzusammenfassung").Rows("54:143").Hidden = True
Case 4
Worksheets("Luftmengenermittlung").Rows.Hidden = False
Rows("233:457").Hidden = True
Rows("469:476").Hidden = True
Worksheets("Anlagenzusammenfassung").Rows("13:20").Hidden = True
Worksheets("Schachtzusammenfassung").Rows("72:143").Hidden = True
Case 5
Worksheets("Luftmengenermittlung").Rows.Hidden = False
Rows("289:457").Hidden = True
Rows("471:476").Hidden = True
Worksheets("Anlagenzusammenfassung").Rows("15:20").Hidden = True
Worksheets("Schachtzusammenfassung").Rows("90:143").Hidden = True
Case 6
Worksheets("Luftmengenermittlung").Rows.Hidden = False
Rows("345:457").Hidden = True
Rows("473:476").Hidden = True
Worksheets("Anlagenzusammenfassung").Rows("17:20").Hidden = True
Worksheets("Schachtzusammenfassung").Rows("108:143").Hidden = True
Case 7
Worksheets("Luftmengenermittlung").Rows.Hidden = False
Rows("401:457").Hidden = True
Rows("475:476").Hidden = True
Worksheets("Anlagenzusammenfassung").Rows("19:20").Hidden = True
Worksheets("Schachtzusammenfassung").Rows("126:143").Hidden = True
Case 8
Worksheets("Luftmengenermittlung").Rows.Hidden = False
Worksheets("Anlagenzusammenfassung").Rows.Hidden = False
Worksheets("Schachtzusammenfassung").Rows.Hidden = False
Case Else
'nix
End Select
End If