VBA Zeilen ausblenden wenn...

[chrisfelder]

Hallo Zusammen

Ich möchte wenn die Zelle A1 ein X enthält, alle Zeilen die in der Zelle D2:D100 eine 1 haben ausblenden. Und dann wieder einblenden wenn die Zelle A1 leer ist, oder kein X mehr enthält.

Ich nehme an, dafür braucht es ein VBA Code...

Besten Dank für eure Hilfe.

Schöne Grüsse

chrisfelder

[Steffl]

Hallo,

vielleicht so?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim lngC As Long
  
   If Target.Address(0, 0) = "A1" And Target.Value = "x" Then
      Application.EnableEvents = False
      For lngC = 2 To 100
         Rows(lngC).Hidden = Cells(lngC, 4) = "1"
      Next lngC
      Application.EnableEvents = True
   Else
      Rows("2:100").Hidden = False
   End If
End Sub

[chrisfelder]

Hi Stefan

Danke für den Support, die Lösung ist genau wie ich sie brauche.


Gruss
Chris