ich habe nun alle Beitreige zum Thema Ausblenden von Zeilen gelesen und auch ausprobiert. Leider war keiner dabei, der mein Problem löst.
Per Radio-Button wird in Tabelle (GU) Zelle (P1) entweder 1 oder 2 ausgegeben. Bei 2 sollen die Zeilen 7 bis 13 ausgeblendet werden und bei 1 die Zeile 17. Umgekehrt sollen diese auch wieder eingeblendet werden.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range("P1"))
If Not isect Is Nothing Then
If Sheets("GU").Range("P1").Value = 2 Then
Sheets("GU").Rows("7:13").EntireRow.Hidden = True
If Sheets("GU").Range("P1").Value = 1 Then
Sheets("GU").Rows("17:17").EntireRow.Hidden = True
Else
Sheets("GU").Rows("7:13").EntireRow.Hidden = False
Else
Sheets("GU").Rows("17:17").EntireRow.Hidden = False
End If
End Sub
Bitte die Profis nicht lachen. Ich habe es zumindest versucht. Aber es geht einfach nix. Vielen Dank. Habe eine kleine Tabelle beigefügt.
Gruß Werner
https://www.herber.de/bbs/user/81358.xls