jetzt wird es langsam zu kompliziert.
Fall:
If Target.Address = "$C$5" Then
With Worksheets("Anlagenzusammenfassung")
Select Case Target.Value
Case 1
.Columns.Hidden = False
.Columns("I:AR").Hidden = True
Case 2
.Columns.Hidden = False
.Columns("M:AR").Hidden = True
Case 3
.Columns.Hidden = False
.Columns("Q:AR").Hidden = True
Case 4
.Columns.Hidden = False
.Columns("U:AR").Hidden = True
Case 5
.Columns.Hidden = False
.Columns("Y:AR").Hidden = True
Case 6
.Columns.Hidden = False
.Columns("AC:AR").Hidden = True
Case 7
.Columns.Hidden = False
.Columns("AG:AR").Hidden = True
Case 8
.Columns.Hidden = False
.Columns("AK:AR").Hidden = True
Case 9
.Columns.Hidden = False
.Columns("AO:AR").Hidden = True
Case 10
Worksheets("Luftmengenermittlung").Columns.Hidden = False
Worksheets("Anlagenzusammenfassung").Columns.Hidden = False
End Select
End With
End If
End Sub
Nun muss noch zusätzlich über Zelle "$C$5" aus der Tabelle(Luftmengenberechnung) in einer dritten Tabelle(Zusammenfassung) folgendes passieren:
Case 1: blende Zeile 6-14 aus
Case 2: blende Zeile 7-14 aus
Case 3: blende Zeile 8-14 aus
Case 4: blende Zeile 9-14 aus
Case 5: blende Zeile 10-14 aus
Case 6: blende Zeile 11-14 aus
Case 7: blende Zeile 12-14 aus
Case 8: blende Zeile 13-14 aus
Case 9: blende Zeile 14 aus
Case 10: blende nichts aus