neue dazukommen.
kann man diese alphabetisch sortieren (z.B. von Links nach rechts
aufsteigend)???
Danke für antwort
kann man diese alphabetisch sortieren (z.B. von Links nach rechts
aufsteigend)???
Danke für antwort
19. [VBA] Register sortieren
Sub BlätterSortieren()
Dim WS As Worksheet
Dim X As Integer
Dim Y As Integer
Set WS = ActiveSheet
For X = 1 To ActiveWorkbook.Worksheets.Count
For Y = X To ActiveWorkbook.Worksheets.Count
If Worksheets(Y).Name < Worksheets(X).Name Then
Worksheets(Y).Move Before:=Worksheets(X)
End If
Next Y
Next X
WS.Activate
Set WS = Nothing
End Sub
Gruß Hajo
ich würde wie folgt arbeiten:
Mit Wert=Worsheets.count die Tabellen Blätter zählen
Dann per Schleife die Namen auslesen und in eine Exeltabelle eintragen.
Dort die Namen sortieren und dann die Tabellen in der Reihenfolge mit
Sheets("Tabelle1").Move After:=Sheets(Position) "sortieren".
Ist Position allerdings 1 (erster Tabellenname nach dem Sortieren), dann sollte hier
Sheets("Tabelle1").Move Before:=Sheets(Position) stehen, da dann diese Tabelle die erste ist.
Vielleicht hilft es
Gruß
bernd
(auch die Antwortzeit hat mich vom Stuhl gefegt)
danke.
Satze
Um deine Excel-Tabellenblätter alphabetisch zu sortieren, kannst du die folgende VBA-Methode verwenden. Diese Anleitung funktioniert in Excel für Windows:
Öffne die Excel-Arbeitsmappe, in der du die Blätter alphabetisch sortieren möchtest.
Drücke ALT + F11
, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Klicke auf Einfügen
und wähle Modul
, um ein neues Modul zu erstellen.
Kopiere und füge den folgenden Code in das Modul ein:
Sub BlätterSortieren()
Dim WS As Worksheet
Dim X As Integer
Dim Y As Integer
Set WS = ActiveSheet
For X = 1 To ActiveWorkbook.Worksheets.Count
For Y = X To ActiveWorkbook.Worksheets.Count
If Worksheets(Y).Name < Worksheets(X).Name Then
Worksheets(Y).Move Before:=Worksheets(X)
End If
Next Y
Next X
WS.Activate
Set WS = Nothing
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8
, wähle BlätterSortieren
aus der Liste und klicke auf Ausführen
. Die Blätter werden nun alphabetisch sortiert.
Fehler: "Das Makro kann nicht ausgeführt werden."
Fehler: Blätter werden nicht korrekt sortiert.
Wenn du kein VBA verwenden möchtest, kannst du auch manuell die Blätter ordnen:
Verschieben oder Kopieren...
.Diese Methode ist weniger automatisiert, aber einfach und schnell.
Angenommen, du hast folgende Blätter in deiner Arbeitsmappe:
Nach dem Ausführen des VBA-Codes wird die Reihenfolge folgendermaßen aussehen:
So kannst du deine Excel-Blätter alphabetisch sortieren, um die Übersichtlichkeit zu erhöhen.
1. Kann ich auch mehrere Blätter gleichzeitig sortieren?
Ja, das VBA-Skript sortiert alle Blätter in der Arbeitsmappe gleichzeitig.
2. Funktioniert das auch in Excel für Mac?
Ja, die VBA-Methode funktioniert in Excel für Mac, allerdings kann der Zugang zum VBA-Editor leicht variieren.
3. Was passiert, wenn ich einen Blattnamen ändere?
Das Skript berücksichtigt die aktuellen Blattnamen und sortiert sie erneut, wenn du das Makro erneut ausführst.
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