Ja, das hast du natürlich recht, sorry für das Durcheinander. :)
Ich habe eine Exceltabelle mit mehreren Tabellenblättern. Ich gehe mittels Code auf ein bestimmtes Tabellenblatt (das Fünfte):
'Gehe zu erster Aktie
Worksheets(Worksheets("Auswertung").Index + 1).Activate
Das funktioniert soweit!
Nun möchte ich dieses Tabellenblatt mittels verschiedener IF-Bedingungen durchsuchen. Die IF-Bedingungen an sich funktionieren ebenso. Nach Beendigung aller IF-Bedingungen, also wenn das Tabellenblatt "durchgearbeitet" ist, soll auf das nächste Tabellenblatt gewechselt werden und wieder nach den Bedingungen gesucht werden. Und nur da liegt mein Problem.
Anfangs hatte ich folgenden Code:
'For-Schleife von aktuellem Tabellenblatt bis zum Ende
For wks = 5 To ActiveWorkbook.Worksheets.Count
'Abarbeitung aller IF-Bedingungen
. . .
'Wechseln auf das nächste Tabellenblatt.
ActiveSheet.Next.Activate
'Schleife beginnt von vorne
Next wks
Das Problem, dass ich bei diesen Code habe ist, wenn ich am letzten Tabellenblatt bin, und der Code durchläuft
ActiveSheet.Next.Activate
bekomme ich eine Fehlermeldung und das Programm wird abgebrochen. Weil nach dem letzten Tabellenblatt kann er nicht auf das nächste wechseln... Das gibt es ja nicht. :)
Meine Frage ist, wie man so einen Fall richtig programmiert. Wenn ich Deinen Code richtig verstehe, würde dieser ja alle Tabellenblätter durchwechselt.
Ich hoffe nun, dass mein Problem klarer ist und bedanke mich vorab für Unterstützung!
|