das ist genau der Code den ich gesucht habe - DANKE an alle vor allem dem "AlteDresdner" - nur ein kleiner fehler ist drin :-) (Case2)
nochmals 1000 Dank
ption Explicit
Option Base 1
Private Sub Worksheet_Change( ByVal Target As Range)
Dim Bereich As Range, Zeilen() As String , ZeilBer
Set Bereich = Range( "A13:A16" )
If Not Intersect(Target, Bereich) Is Nothing Then
Sheets( "Tabelle2" ).Rows.Hidden = False
Sheets( "Tabelle3" ).Rows.Hidden = False
Application.EnableEvents = False
If Target.Text = "x" Then
Bereich = " "
Target = "x"
Select Case Target.Row
Case 13
ReDim Zeilen(1)
Zeilen(1) = "15:20"
Case 14
ReDim Zeilen(2)
Zeilen(1) = "15:20"
Zeilen(1) = "24:28"
Case 15
ReDim Zeilen(2)
Zeilen(1) = "15:22"
Zeilen(2) = "23:37"
Case 16
ReDim Zeilen(3)
Zeilen(1) = "12:20"
Zeilen(2) = "23:78"
Zeilen(3) = "100:104"
End Select
For Each ZeilBer In Zeilen()
Sheets( "Tabelle2" ).Rows(ZeilBer).Hidden = True
Sheets( "Tabelle3" ).Rows(ZeilBer).Hidden = True
Next
End If
End If
Application.EnableEvents = True
End Sub
|