VBA Zeilen ausblenden wenn...
#1
Bug 
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
Zitieren to top
#2
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
Gruß Stefan
Win 7 / Office 2007
[-] Folgende(r) 1 Benutzer sagt Danke an Steffl für diesen Beitrag:
  • chrisfelder
Zitieren to top
#3
Hi Stefan

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


Gruss
Chris
Zitieren to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste