Habe jetzt lange nach einer Lösung gesucht aber das scheint ja doch ein recht
schwieriges Problem zusein.
Inzwischen habe ich auf Office XP aufgerüstet in der Hoffnung das ich damit bessere Voraussetzungen für die Lösung des folgenden Problem schaffe.
Wie kann ich diese schleife nutzen um Tabellen dynamisch nach ihren Werten in K3 sortieren zu lassen?
Sub Blatter_Sortieren()
Anzahl = ActiveWorkbook.Worksheets.Count
For x = 1 To Anzahl
For y = x To Anzahl
If Worksheets(y).Name < Worksheets(x).Name Then
Worksheets(y).Move Before:=Worksheets(x)
End If
Next y
Next x
End Sub
Kann mir jemand helfen?
Ein anderer Lösungsweg wäre in einem extra Tabellenblatt die Tabellen namendlich untereinander nach der Größe ihrer Werte in K3 aufzulisten und dynamisch zu aktualisieren.
Habe eine Tabelle als Muster vorbereitet.
https://www.herber.de/bbs/user/31180.xls
Vielen Dank schon immer für Euere Mühe.
Gruß Jürgen