Leider bringt er mir nun eine Fehlermeldung:
"Falsche Anzahl an Argumenten oder ungültige Zuweisung"
Ich hoffe du bzw ihr könnt mir helfen.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("g1", "J1", "g3", "J3", "P3", "M3", "T3", "W3", "Z3", "G4", "J4", _
_
_
"M4", "P4", "T4", "W4", "Z4", "AD4")) Is Nothing Then
Select Case Target.Address(False, False)
Case "g1": ZeilenEinAus 8, Target
Case "j1": ZeilenEinAus 8, Target
Case "g3": ZeilenEinAus 9, Target
Case "j3": ZeilenEinAus 10, Target
Case "m3": ZeilenEinAus 11, Target
Case "p3": ZeilenEinAus 12, Target
Case "t3": ZeilenEinAus 13, Target
Case "w3": ZeilenEinAus 14, Target
Case "z3": ZeilenEinAus 15, Target
Case "g4": ZeilenEinAus 16, Target
Case "j4": ZeilenEinAus 17, Target
Case "m4": ZeilenEinAus 18, Target
Case "p4": ZeilenEinAus 19, Target
Case "t4": ZeilenEinAus 20, Target
Case "w4": ZeilenEinAus 21, Target
Case "z4": ZeilenEinAus 22, Target
Case "ad1": ZeilenEinAus 23, Target
End Select
End If
End Sub
Private Sub ZeilenEinAus(Start As Long, Zelle As Range)
Dim Zeile As Long
Application.ScreenUpdating = False
For Zeile = Start To Start + 230 Step 17
Rows(Zeile).Hidden = IsEmpty(Zelle)
Next
End Sub