Zweite Sub erst starten, wenn erste Sub beendet ist

Hi,

mittels call rufe ich mehrere Subs auf

call 01_Datenanfuegen
call 02_Datensortieren
call 03_Duplikateentfernen

Setze ich Haltepunkte, funktioniert es wunderbar.

Ohne Haltepunkte kommt es vor, dass 03_Duplikateentfernen aufgerufen wird, aber 02_Datensortieren noch nicht fertiggestellt ist.
Die Duplikate werden zwar entfernt, die Daten sind aber noch komplett sortiert.

Wie stelle ich es nun an, dass 03_Duplikateentfernen erst begonnen wird, wenn 02_Datensortieren beendet ist ?
Drehe ich die Reihenfolge um, habe ich zwar die Daten sortiert, aber noch nicht alle Duplikate entfernt.

Ich glaube, würde ich alles in Arrays machen und erst am Schluss die Daten in die Tabelle übertragen, hätte ich das Problem nicht.
Aber das würde meine geistigen Kapazitäten ein wenig übersteigen.

Vielen Dank für einen Tipp.

lg Willi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi

Arbeitest du mit mehreren Dateien oder hat die Datei mehrere Tabellenblätter?

Wenn ja, dann prüfe bitte, ob du vor JEDEM Cells, Range, Columns oder Rows auch das Tabellenblatt (Worksheet) mit angegeben hast, bei mehreren Dateien Datei und Tabellenblatt (Workbook+Worksheet)

Steht nämlich ein Range oder Cells alleine ohne diese Angabe, so wird immer das aktive Tabellenblatt verwendet, und ob das das richtige ist, ist fraglich.

Schau dir bitte den Code fürs Sortieren genauer an, diese ist besonders anfällig für diesen Fehler, weil er einige Ranges enthält, die man beim Überarbeiten gerne übersieht.

Beim Testen im Einzelstep fällt der Fehler oft nicht auf, weil wir dort gerne vom Hand in den Code eingreifen und das Tabellenblatt aktivieren, das bearbeitet wird (wir wollen ja sehen, wie der Code arbeitet), womit dann das richtige Tabellenblatt aktiv ist, aber wenn der Code alleine läuft, passiert das nicht und das falsche Blatt ist aktiv.

Ich vermute also, dass du das Sortieren im falschen Tabellenblatt ausführst.

Ansonsten, zur Kontrolle ob die Makros in der richtigen Reihenfolge ausgeführt werden, kannst du auch folgendes tun:

Füge in den drei Makros folgende Codezeilen am Anfang und Ende ein:

Sub Makro1()

Debug.Print "Makro1 Start"

...

Hier der Code

...

Debug.Print "Makro1 Ende"

End Sub

Dann kannst du im Direktfenster nachverfolgen, ob und in welcher Reihenfolge die Makros ausgeführt werden.

Eine weitere Möglichkeit:
Verwendest du in den Makros "On Error GoTo" oder "On Error Resume Next"?
Wenn ja, dann lösche oder kommentiere sie aus. Vielleicht wird dein Sortieren ja durch so eine Anweisung aufgrund eines Fehlers übersprungen?

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Zweite Sub erst starten, wenn erste Sub beendet ist

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread