Worksheet_Change-Ereignis , mehrere If-Abfragen

Bild

Betrifft: Worksheet_Change-Ereignis , mehrere If-Abfragen von: Harald G.
Geschrieben am: 16.03.2005 08:41:44

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.

Bild


Betrifft: AW: Worksheet_Change-Ereignis , mehrere If-Abfragen von: u_
Geschrieben am: 16.03.2005 08:49:12

Hallo,
If Range("A11")=0 then Rows("12:34").hidden=false

Gruß


Bild


Betrifft: AW: Worksheet_Change-Ereignis , mehrere If-Abfragen von: Holger Levetzow
Geschrieben am: 16.03.2005 09:00:16

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


Bild


Betrifft: AW: Worksheet_Change-Ereignis , mehrere If-Abfragen von: Harald G.
Geschrieben am: 16.03.2005 11:52:51

Vielen Dank an Holger und _u,

klappt super.

Gruß, Harald G.


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Worksheet_Change-Ereignis , mehrere If-Abfragen"