hat jemand ne Idee wie man automatisch Tabellenblätter (sind mehr als 70!) sortieren kann. Das Sortierkriterium sollte jeweils eine bestimmte Zelle bilden (z.B. Umsatz in Zelle A1 oder so).
1.000 Dank für eure Hilfe
MfG
André
Sub SheetSort()
Dim x As Integer, y As Integer, wsCount As Integer
wsCount = ActiveWorkbook.Worksheets.Count
For x = 1 To wsCount
For y = x To wsCount
If Worksheets(y).Range("A1") < Worksheets(x).Range("A1") Then
Worksheets(y).Move before:=Worksheets(x)
End If
Next y
Next x
End Sub