ist es realisierbar, die Arbeitsblätter nach Namen so zu sortieren wie deren Namen in Tabelle1 Spalte A5, nach unten variabel, stehen?
Hat jemand eine Idee bzw. Code? Bitte kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße edie
Sub TabsNachNameInListeSortieren()
'Namen der Tabellenblätter stehen in Tabelle1, ab A5 untereinander
'Makro sortiert die Tabellenblätter gemäß dieser Reihenfolge
'12.08.2010, NoNet - www.excelei.de
Dim strName As String, lngZ As Long
With Sheets("Tabelle1")
For lngZ = 5 To .Cells(Rows.Count, 1).End(xlUp).Row
If lngZ > 5 Then Sheets(.Cells(lngZ, 1).Value).Move _
after:=Sheets(.Cells(lngZ - 1, 1).Value)
Next
End With
End Sub
Gruß, NoNet