Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert sind; Die von diesem Forum gesetzten Cookies düfen nur auf dieser Website verwendet werden und stellen kein Sicherheitsrisiko dar. Cookies auf diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Die Updates sind abgeschlossen. Bitte meldet eventuelle Bugs und Auffälligkeiten im entsprechenden Forum.
Sollte das Loginfenster nicht sichtbar sein, ist es unten links. Entweder Ihr loggt Euch dort ein oder löscht den Browsercache und versucht es noch einmal.


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
Antwortento 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
Antwortento top
#3
Hi Stefan

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


Gruss
Chris
Antwortento top


Gehe zu:


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