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 da mir jemand helfen?
Ein anderer Lösungsweg ist in einem extra Tabellenblatt die Tabellen namendlich untereinander nach Größe der Werte in K3 aufzulisten und dynamisch zuaktualisieren.
Also wenn z.Beisp in der Tabelle Schrauben der Wert in K3 (45) ist, steht diese Tabelle vor Tabelle Muttern mit dem Wert in K3 (34).
...|A-A..............| B-B | C-C
1 |Schrauben .. 45
2 |Muttern ........ 34
3 | u.s.w
Vielen Dank schon immer für Euere Mühe.
Gruß Jürgen