Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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
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
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.
Anzeige

261 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige