HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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.

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

Betreff
Datum
Benutzer
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
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.

Meistgelesene Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Ihre Stimme zählt!