Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Worksheet_Change-Ereignis , mehrere If-Abfragen

Worksheet_Change-Ereignis , mehrere If-Abfragen
16.03.2005 08:41:44
Harald
Hallo zusammen,
Meine Datei ist in Arbeitblöcke eingeteilt, die jeweils aus mehreren Zeilen unterschiedlicher Anzahl bestehen.
Am Anfang ist nur der Arbeitsblock A (Zeilen 1 bis 11) eingeblendet. Die anderen Blöcke/Zeilen sind ausgeblendet.
Wenn der User in einem Block alle Eingaben gemacht hat, soll der nächste Block/die nächsten Zeilen eingeblendet werden.
Ob alle Eingaben gemacht wurden, kann man an der jeweils ersten Zellen eines Blockes erkennen, da hier mit einer Formel die Anzahl der leeren Eingabezellen angezeigt wird. Sobald diese auf Wert "0" steht soll also der nächste Block eingeblendet werden.
Wie genau muss VBA-Code für folgende If-Abfrage im Worksheet_Change-Ereignis aussehen.
Wenn (Anzahl leere Zellen) A11 = 0, dann Zeilen 12 bis 34 (= Block B) einblenden.
Wenn (Anzahl leere Zellen) A34 = 0, dann Zeilen 35 bis 65 (= Block C) einblenden.
Wenn (Anzahl leere Zellen) A65 = 0, dann Zeilen 66 bis 99 (= Block D) einblenden.
Wenn (Anzahl leere Zellen) A99 = 0, dann Zeilen 100 bis 120 (= Block E) einblenden.
Vorab schon mal vielen Dank für die Mühe.
Gruß, Harald G.
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worksheet_Change-Ereignis , mehrere If-Abfragen
16.03.2005 08:49:12
u_
Hallo,
If Range("A11")=0 then Rows("12:34").hidden=false
Gruß
AW: Worksheet_Change-Ereignis , mehrere If-Abfragen
16.03.2005 09:00:16
Holger
Hallo Harald,
versuche es mal so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'wenn in Spalte 1 Eingabe erfolgt
If Range("A11") = 0 Then Rows("12:34").EntireRow.Hidden = False
If Range("A34") = 0 Then Rows("35:65").EntireRow.Hidden = False
If Range("A65") = 0 Then Rows("66:99").EntireRow.Hidden = False
If Range("A99") = 0 Then Rows("100:120").EntireRow.Hidden = False
End If
End Sub

Holger
Anzeige
AW: Worksheet_Change-Ereignis , mehrere If-Abfragen
16.03.2005 11:52:51
Harald
Vielen Dank an Holger und _u,
klappt super.
Gruß, Harald G.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige