Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
584to588
584to588
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit Schleife, Zeilen einblenden wenn .....

Mit Schleife, Zeilen einblenden wenn .....
19.03.2005 19:21:04
Harald
Hallo Schleifen-Spezialisten,
meine Datei ist ist Arbeitsblöcke mit unterschiedlicher Anzahl von Zeilen eingeteilt.
Der Block A ist eingeblendet. Soll jeweils der nächste Block eingeblendet werden, wenn im vorherigen Block alle Angaben gemacht wurden. Die Prüfung erfolgt in Spalte A (Wenn Zellwert = 1, dann Zeilen einblenden)
im einzelnen:
'Block A erledigt, Block B einblenden:
Wenn A6 = 1, dann
- Zeilen 6:10 einblenden
- Wert in Zelle A6 in "2" ändern
- Scrollen in Zeile mit Zellwert 2 '= Zelle A6
'Block B erledigt, Block C einblenden:
Wenn A11 = 1, dann
- Zeilen 11:13 einblenden
- Wert in Zelle A11 in "2" ändern
- Scrollen in Zeile mit Zellwert 2 ' =Zelle A11
usw.
Geht das ? Wer kann mir den genauen VBA-Code zeigen und in welchem Worksheet dieser eingegeben wird.
Vielen Dank.
Gruß, Harald G.
Testdatei als Anlage

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit Schleife, Zeilen einblenden wenn .....
19.03.2005 20:57:12
Bert
Wieso Schleife? Die Blöcke werden doch wohl nacheinander bearbeitet, oder?
Wodurch ändern sich der Werte in Ax?
Sollen die erledigten Blöcke eingeblendet bleiben?
Bert
AW: Mit Schleife, Zeilen einblenden wenn .....
19.03.2005 22:13:53
Harald
Hallo Bert,
danke, dass Du mir helfen möchtest.
Der Wert in den Zellen in Ax wird 1, sobald alle Eingabe-Zellen eines Blocks bestückt wurden (also leer sind).
Die Blöcke sollen nach dem Einblenden auch eingeblendet bleiben.
Gruß, Harald G.
AW: Mit Schleife, Zeilen einblenden wenn .....
19.03.2005 22:41:39
Bert
"Der Wert in den Zellen in Ax wird 1..."
Ja, aber wodurch wird er 1, durch Berechnung, Eingabe, oder wie?
Bert
AW: Mit Schleife, Zeilen einblenden wenn .....
20.03.2005 09:59:25
Harald
Hallo Bert,
der Wert wird durch eine Formel ermittelt. Wenn alle Eingabefelder eines Blocks gefüllt wurden ist das Ergebnis in Zelle Ax = 1.
Gruß, Harald G.
Anzeige
AW: Mit Schleife, Zeilen einblenden wenn .....
20.03.2005 11:52:31
ransi


      
hallo harald
schau mal hier:
ich denke das ist dein problem 1 zu 1 nach VBA übersetzt:
Option Explicit
Private Sub Worksheet_Calculate()
Dim zeile()
Dim i As Integer
zeile = Array(6, 11, 16, 21, 26, 31, 36, 41) 'usw...
For i = 0 To UBound(zeile) - 1
    If Cells(zeile(i), 1) = 1 Then
        Rows(zeile(i) & ":" & zeile(i) + 4).Hidden = False
        Cells(zeile(i), 1) = 2  
    End If
Next
ActiveWindow.ScrollRow = Cells(zeile(i), 1).Row
End Sub
ransi 
Anzeige
kleine aber wesentliche korrektur:
20.03.2005 11:58:51
ransi
hallo harald
Option Explicit

Private Sub Worksheet_Calculate()
Dim zeile()
Dim i As Integer
zeile = Array(6, 11, 16, 21, 26, 31, 36, 41) 'usw...
For i = 0 To UBound(zeile) - 1
If Cells(zeile(i), 1) = 1 Then
Rows(zeile(i) & ":" & zeile(i) + 4).Hidden = False
Cells(zeile(i), 1) = 2
ActiveWindow.ScrollRow = Cells(zeile(i), 1).Row
End If
Next
End Sub

ransi
Danke Rans und Bert ......
20.03.2005 17:09:56
Harald
... jetzt bekomme ich es hin.
Gruß, Harald.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige