ich hab mal wieder ein kleines Problem:
ich würde gerne meine Tabellen etwas ordnen. Ich lese verschiedene Dateien ein und trennen diese dann nach unterschiedlichen kriterien und jetzt würde ich noch gerne die einzelnen Tabellen der größe nach sortieren. Das kriege ich auch soweit hin. Momentan befinde ich mich in der Testphase und ich finde keine passende Lösung. Hier mal mein Code:
Sheets("Satellit 1").Select
Sheets("Satellit 1").Move after:=Sheets("Master")
Sheets("Satellit 2").Select
Sheets("Satellit 2").Move after:=Sheets("Satellit 1")
Sheets("Satellit 3").Select
Sheets("Satellit 3").Move after:=Sheets("Satellit 2")
Sheets("Satellit 4").Select
Sheets("Satellit 4").Move after:=Sheets("Satellit 3")
Sheets("Satellit 5").Select
Sheets("Satellit 5").Move after:=Sheets("Satellit 4")
Sheets("Satellit 6").Select
Sheets("Satellit 6").Move after:=Sheets("Satellit 5")
Sheets("Satellit 7").Select
Sheets("Satellit 7").Move after:=Sheets("Satellit 6")
Sheets("Satellit 8").Select
Sheets("Satellit 8").Move after:=Sheets("Satellit 7")
Sheets("Satellit 9").Select
Sheets("Satellit 9").Move after:=Sheets("Satellit 8")
Sheets("Satellit 10").Select
Sheets("Satellit 10").Move after:=Sheets("Satellit 9")
Jetzt versuche ich es gerade hinzukriegen, das es auch funktioniert wenn ich z. B. 6 Satelliten habe. Da bekomme ich momentan noch ne Fehlermeldung. Wie mache ich das genau mit einer IF-Schleife. Oder gibt es eine andere Möglichkeit? ich würde es eben gerne so umsetzen, dass es egal ist wieviel Satelliten angebunden sind.
Vielen Dank Peter :)