durch ändern eines Zellenwertes Zeilen ausblenden
17.06.2019 12:54:23
Felix
ich möchte durch das ändern bestimmter Zellen Zeilen ausblenden.
Hierzu hab ich folgendes Makro geschreiben:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C1" Then
Rows.EntireRow.Hidden = False
Select Case Target.Value
Case 1
Rows("10:11").EntireRow.Hidden = True
Case 2
Rows("12:13").EntireRow.Hidden = True
Case 3
Rows("14:15").EntireRow.Hidden = True
Case Else
End Select
End If
End Sub
Durch dieses Makro wird beim ändern der Zelle "C1" Zeilen ausgeblendet.
Nun möchte ich aber wenn ich die Zelle "C2" ändere dass zusätzlich noch andere Zeilen _ ausgeblendet werden. Wenn ich nun das Makro kopiere und den Zellenbezug zu "C2" ändere stellt sich mir immer das selbe Problem. Nämlich wenn ich "C1" ändere blenden sich Zeilen aus, wenn ich anschließend "C2" ändere blenden sich die Zeilen die durch "C1" ausgeblendent werden wieder ein und die von "C2" blenden sich aus. Das sollte aber nicht passieren, die Zeilen von "C1" sollten auch ausgeblendet bleiben.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C1" Then
Rows.EntireRow.Hidden = False
Select Case Target.Value
Case 1
Rows("10:11").EntireRow.Hidden = True
Case 2
Rows("12:13").EntireRow.Hidden = True
Case 3
Rows("14:15").EntireRow.Hidden = True
Case Else
End Select
End If
If Target.Address(0, 0) = "C2" Then
Rows.EntireRow.Hidden = False
Select Case Target.Value
Case 1
Rows("16:17").EntireRow.Hidden = True
Case 2
Rows("17:18").EntireRow.Hidden = True
Case 3
Rows("19:20").EntireRow.Hidden = True
Case Else
End Select
End If
End Sub
Ich hab schon mehrere Stunden versucht mein Problem zulösen und hab etliche Male das Makro _
anders geschrieben, aber keine Lösung gefunden. Wär echt toll wenn mir eine von euch helfen könnte.
Gruß Felix