Thema Datum  Von Nutzer Rating
Antwort
Rot Ausblenden von Zeilen mit Bedingung mit relativem Bezug
23.04.2023 09:06:07 Gast4332
NotSolved
23.04.2023 16:40:27 xlKing
Solved
23.04.2023 20:19:37 Gast80464
NotSolved

Ansicht des Beitrags:
Von:
Gast4332
Datum:
23.04.2023 09:06:07
Views:
443
Rating: Antwort:
  Ja
Thema:
Ausblenden von Zeilen mit Bedingung mit relativem Bezug

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Ausblenden von Zeilen mit Bedingung mit relativem Bezug
23.04.2023 09:06:07 Gast4332
NotSolved
23.04.2023 16:40:27 xlKing
Solved
23.04.2023 20:19:37 Gast80464
NotSolved