Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit Schleife, Zeilen einblenden wenn .....

Forumthread: 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
Anzeige

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.
Anzeige
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.
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
Anzeige
Danke Rans und Bert ......
20.03.2005 17:09:56
Harald
... jetzt bekomme ich es hin.
Gruß, Harald.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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