On error
30.10.2006 21:59:35
Heike
habe in VBa einen Code geschrieben, der mir meine Tabellenblätter nach einer bestimmte Reihenfolge sortiert. Die Sortierung ist in einem extra Tabellenblatt. Wenn ich nun die Sortierung starte und es ist ein Blatt in meiner Arbeitsmappe enthalten, das nicht in der Sortierreihenfolge steht kommt eine Fehler und das Prg bricht ab. Wollte zur Bedienerfreundlichkeit (das Prg ist nicht nur für mich) eine eigne Fehlermeldung bringen, aber es funktioniert nicht.
HIer mein Code:
For Each Zelle In Sheets("Sortierung").Range("A1").CurrentRegion.Cells
On Error GoTo Fehler_Sortierung
Sheets(Zelle.Value).Move after:=Sheets(ThisWorkbook.Sheets.Count)
Next
Fehler_Sortierung:
Msgbox "Bitte überprüfen Sie die Sortierfolge" vbOKOnly + vbCritical, "Fehler bei der Sortierung"
Resume Next
Für Tipps wäre ich dankbar.
Grüße
HEike