Do loop until Verschachteln

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen,
wenn man zusätzlich eine Variable vom Typ Boolean deklariert, kann man diese als Kopier-Schalter verwenden und braucht dann auch keine zweite Schleife, wenn ich das richtig verstanden habe.
Die Variable wird mit false initialisiert. Das bedeutet, es werden keine Zeilen kopiert. Wenn der gesuchte String das erste mal gefunden wurde, wird die Varialble auf true gesetzt und es werden solange Zeilen kopiert, bis der String das zweite Mal gefunden wurde. Dann wieder auf false, damit der Kopiervorgang abgeschaltet wird.
Man muss dann in jedem Schleifendurchgang den Teil, der die Zeile kopiert in einer If-Abfrage auf den Boolean Wert kapseln.
Das würde für das von Michael angesprochene Verhalten bei einer ungeraden Zahl von String-Treffern bedeuten, die letzten Zeilen werden einfach kopiert, auch wenn kein schließender Suchtreffer mehr stattfindet. Das könnte man aber auch abfangen, indem man sich einfach die Zeile + 1 des letzten öffnenden Strings merkt. Ggf. löscht man dann am Ende die zuviel kopierten Zeilen einfach wieder.
Viele Grüße,
Zwenn

Hallo Florian,
der Verweis auf diesen Thread, in dem Du ja die gleiche Frage gestellt hast, war gar nicht böse gemeint, falls das so rüber kam. Es ist halt nicht gern gesehen, wenn das gleiche Thema noch einmal eröffnet wird, solange es noch in einem anderen Thread aktiv ist. Andere machen sich dann unter Umständen noch einmal die Gedanken, die im ersten Thread schon abgearbeitet wurden. Aktive Threads (also die, auf die man noch antworten kann) verschwinden nach 7 Tagen im Archiv. Danach das gleiche Thema noch einmal zu eröffnen, wenn die Frage nicht gelöst ist, unter Verweis auf den "abgelaufenen" Thred, ist dann völlig in ordnung.
So zum Thema.
Sofern ich es richtig verstanden habe, hast Du eine Tabelle, in der die gleiche Zeichenkette öfter vorkommt. Du willst diese Liste durchgehen und jedesmal, wenn der betreffende String gefunden wird, soll das Kopieren von Zeilen entweder ein- oder abgeschaltet werden. Genau dieses Ein- und Abschalten kannst Du mit einer Varibalen vom Typ Boolean steuern, ohne eine zweite Schleife zu benötigen.
Du hast bereits eine Schleife, die über alle Zeilen Deiner Tabelle (Liste) läuft. Sobald Du den betreffenden String findest, wird die entsprechende Zeile in eine andere Tabelle kopiert. Genau an dieser Stelle kannst Du die Variable vom Typ Boolean auf true umschalten und dafür sorgen, dass alle Zeilen kopiert werden, solange diese Variable auf true steht.
Auf false schaltest Du sie wieder, wenn der Steuer-String (so nenne ich ihn mal), erneut gefunden wird. Dann wird das kopieren von Zeilen ausgesetzt.
Diese Umschaltung und damit das Kopieren einer Zeile wird durch eine einfache Entscheidung über eine If Then Struktur gesteuert:


DIM kopieren AS Boolean
DIM zeilen as long
DIM blockSchluss as Boolean 'Schließende Zeile des Steuer-Strings einschließen zum kopieren
kopieren = False
blockSchluss = False
For zeilen = ERSTE-ZEILE to LETZTE-ZEILE
If STEUER-STRING-GEFUNDEN then
Not kopieren 'Umkehrung des aktuellen Wertes. False wird zu True, True wird zu False
Not blockSchluss 'Den schließenden Steuer-String auf "auch kopieren" setzen
End If
If kopieren or blockSchluss then 'Abfrage, ob kopiert werden soll
AKTUELLE ZEILE KOPIEREN
End If
If kopieren = false Then
Not blockSchluss 'Der aktuell zu kopierende Block wird geschlossen
End If
Next zeilen

Das ist das Muster, nach dem der Kopiervorgang einfach umgeschaltet wird. Mit Kapselung in If meinte ich nur, das man die If Strukturen einbauen muss. Man kann das Makro noch beschleunigen, wenn man nicht jede Zeile kopiert, sondern sich die Zeilennummer des öffnenden Steuer-Strings und des schließenden Steuer-Strings in Variablen schreibt. Sobald die schließende Zeile feststeht, kann man einfach den ganzen Block in die andere Tabelle kopieren. Das macht sich zeitlich aber erst bei größeren Listen bemerkbar.
Kannst Du damit was anfangen? Ansonsten bitte ich Dich, mal eine Beispielmappe hochzuladen, mit dem Makro, das Du bisher hast. Da schaue ich dann mal drauf und passe es ggf. an.
Es ist auch notwendig, dass Du die von Michael aufgeworfene Frage beantwortest, was passiert mit den letzten Zeilen, wenn der Kopier-Block geöffnet, aber nicht wieder geschlossen wird. Sollen die Zeilen des Endes der Liste dann auch kopiert werden oder nur die öffnende Zeile, in der der Steuer-String steht?
Viele Grüße,
Zwenn

DIM kopieren AS Boolean DIM zeilen as long DIM blockSchluss as Boolean 'Schließende Zeile des Steuer-Strings einschließen zum kopieren kopieren = False blockSchluss = False For zeilen = ERSTE-ZEILE to LETZTE-ZEILE If STEUER-STRING-GEFUNDEN then Not kopieren 'Umkehrung des aktuellen Wertes. False wird zu True, True wird zu False Not blockSchluss 'Den schließenden Steuer-String auf "auch kopieren" setzen End If If kopieren or blockSchluss then 'Abfrage, ob kopiert werden soll AKTUELLE ZEILE KOPIEREN End If If kopieren = false Then AKTUELLE ZEILE KOPIEREN Not blockSchluss 'Der aktuell zu kopierende Block wird geschlossen End If Next zeilen

DIM kopieren AS Boolean DIM zeilen as long DIM blockSchluss as Boolean 'Schließende Zeile des Steuer-Strings einschließen zum kopieren kopieren = False blockSchluss = False For zeilen = ERSTE-ZEILE to LETZTE-ZEILE If STEUER-STRING-GEFUNDEN then Not kopieren 'Umkehrung des aktuellen Wertes. False wird zu True, True wird zu False Not blockSchluss 'Den schließenden Steuer-String auf "auch kopieren" setzen End If If kopieren or blockSchluss then 'Abfrage, ob kopiert werden soll AKTUELLE ZEILE KOPIEREN End If If kopieren = false and blockSchluss = True Then AKTUELLE ZEILE KOPIEREN Not blockSchluss 'Der aktuell zu kopierende Block wird geschlossen End If Next zeilen

DIM kopieren AS Boolean DIM zeilen as long DIM blockSchluss as Boolean 'Schließende Zeile des Steuer-Strings einschließen zum kopieren kopieren = False blockSchluss = False For zeilen = ERSTE-ZEILE to LETZTE-ZEILE If STEUER-STRING-GEFUNDEN then Not kopieren 'Umkehrung des aktuellen Wertes. False wird zu True, True wird zu False Not blockSchluss 'Den schließenden Steuer-String auf "auch kopieren" setzen End If If kopieren or blockSchluss then 'Abfrage, ob kopiert werden soll AKTUELLE ZEILE KOPIEREN End If If kopieren = False and blockSchluss = True Then Not blockSchluss 'Der aktuell zu kopierende Block wird geschlossen End If Next zeilen

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread