AW: Ausblenden von Zeilen bei bestimmten Voraussetzungen
Verwende
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Rows.Hidden = False
Rows(10 * Target).Resize(10).Hidden = True
End If
End Sub
Als Antwort auf diesen Beitrag
IseGrimm
25.05.2026 17:34:51
Ausblenden von Zeilen bei bestimmten Voraussetzungen
habe wenig Vorkenntnisse in VBA. Ich möchte in einem Spiel bei Runde 1 die übrigen Runden (2-5 z.B.) ausblenden.
Ich habe mir das mühsam zusammengeschustert - funktioniert natürlich nicht richtig.
Mein Problem ist: wenn ich in A1 eine 1 eingebe und mit Enter bestätige, muss ich noch einmal die Zelle A1 anklicken, damit es funktioniert. Was mache ich falsch?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then
Else
Cells.EntireRow.Hidden = False
If Range("A1") = 1 Then
Rows("10:20").EntireRow.Hidden = True
End If
If Range("A1") = 2 Then
Rows("20:30").EntireRow.Hidden = True
End If
End If
End Sub