|
Hallo zusammen,
gleich vorab: Ich bin Anfänger in VBA.
Ich möchte in einem Blatt Zeilen ausblenden lassen, sobald der Wert einer Zelle eine bestimmten Wert enthält.
Dafür kam ich zu folgender Lösung:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1).Address = "$A$10" Then
Rows("15:20").Hidden = Target.Value = "x"
Rows("25:30").Hidden = Target.Value = "x"
End If
End Sub
Da das betroffene Tabellenblatt jedoch noch Anpassungen unterliegt, ändern sich zukünftig die auszublendenden Zeilen.
Was wäre ein effizienter Weg, den Code so anzupassen, dass er richtig funktioniert, wenn z.B. in Blatt manuell eine Zeile 5 eingefügt wird. Dann müsste in der If Anweisung der Bezug sich auf A11 verändern und die auszublendenden Zeilen auf 16-21 und 26-31.
Oder es wird eine Zeile 23 eingefügt, dann würde sich der auszublendende Bereich auf 27-32 verschieben. usw.
Bin über jeden Vorschlag dankbar.
Schönen Sonntag
Jan
|