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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen