Tabellenblätter sortieren
28.07.2016 20:15:19
Stefan
Hallo zusammen,
es wäre super, wenn mir jemand bei meinem Anliegen helfen könnte.
Habe per google gesucht, aber nichts passendes gefunden.
Ich möchte Tabellenblätter sortieren, aber es kommt immer eine Fehlermeldung, wenn ein Tabellenblatt nicht vorhanden ist (in einigen Fällen werden diese Tabellenblätter nicht erstellt).
Meine Sortierungsliste ist in einem Tabellenblatt ("Inhalt") hinterlegt und sieht folgendermaßen aus (Namen wurden durch Name+Nr. ersetzt):
test
Name 1
Name 2
Name 3
Name 4
Name 5
Name 6
Name 7
Name 8
Name 9
Name 10
Name 11
Name 12
Name 13
Name 14
Name 15
Name 16
Name 17
Name 18
Name 19
Name 20
Name 21
Name 22
Name 23
Inhalt
Die Sortierung sieht so aus:
Sub mdl_10_Sortierung()
Dim strVerzeichnis As String
Dim strBereich As String
Dim i As Byte
'++++sortieren++++
strVerzeichnis = "Inhalt"
strBereich = "B2:B26"
With Worksheets(strVerzeichnis).Range(strBereich)
For i = .Cells.Count To 1 Step -1
Worksheets(.Cells(i).Value).Move _
Before:=Worksheets(1)
Next i
End With
End Sub
Nun fehlt mir noch eine Methode, um einen Fehler abzufangen, wenn ein Tabellenblatt nicht erstellt wurde, also nicht existiert.
Für schnelle Hilfe wäre ich sehr dankbar!!!
LG
Stefan