Note: The other languages of the website are Google-translated. Back to English

Wie sortiere ich Daten auf mehreren Arbeitsblättern gleichzeitig?

In Excel können wir Daten in einem Arbeitsblatt schnell und einfach anhand einer bestimmten Spalte sortieren. Haben Sie jemals versucht, die Daten über mehrere Arbeitsblätter hinweg zu sortieren? Das Sortieren nacheinander ist zeitaufwändig. In diesem Artikel werde ich einen einfachen Weg zur Lösung vorstellen.

Sortieren Sie Daten auf mehreren Arbeitsblättern gleichzeitig mit VBA-Code


Pfeil blau rechte Blase Sortieren Sie Daten auf mehreren Arbeitsblättern gleichzeitig mit VBA-Code

Der folgende VBA-Code kann Ihnen helfen, Daten basierend auf einer Spalte in allen Blättern Ihrer Arbeitsmappe zu sortieren.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Daten auf mehreren Arbeitsblättern gleichzeitig sortieren:

Sub SortAllSheets()
   'Updateby Extendoffice
   Dim WS      As Worksheet
   ActiveSheet.Range("a1:f1").Select
   Selection.Copy
   On Error Resume Next
   Application.ScreenUpdating = False
   For Each WS In Worksheets
      WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
   Next WS
   ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
   Application.ScreenUpdating = True
End Sub

3. Dann drücken F5 Um diesen Code auszuführen, wurden alle Blätter mit derselben Formatierung anhand der Spalte E jedes Blattes in absteigender Reihenfolge gleichzeitig sortiert.

Hinweis: Im obigen Code, A: F ist der Datenbereich, den Sie sortieren möchten. E ist der Spaltenbuchstabe, nach dem Sie sortieren möchten.


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (11)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert nicht ...
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie kann ich das für mehrere Spalten machen? Ich versuche, einige nach der K-Spalte und einige nach der M-Spalte zu sortieren, und ich kenne die genauen Blattnummern. Meine M-Spalte (wenn ich den obigen Code verwende) wird nur nach K sortiert, nicht nach M, daher funktioniert es nicht. 
Dieser Kommentar wurde vom Moderator auf der Website minimiert
funktionierte wie ein Zauber für mich ... danke!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
funktioniert gut, aber wie kann ich vermeiden, die Überschriften einzuschließen (z. B. Zeile 1?)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Lucy,
Um alle Blätter ohne die Kopfzeile zu sortieren, wenden Sie bitte den folgenden VBA-Code an: (Hinweis: Bitte ändern Sie die Zellreferenzen nach Bedarf)

Unter SortAllSheets()
'Updateby Extendoffice
Dim WS als Arbeitsblatt
Dim xIntR als ganze Zahl
ActiveSheet.Range("A1:F1").Auswählen
On Error Resume Next
Application.ScreenUpdating = False
Für jeden WS in Arbeitsblättern
xIntR = Intersect(WS.UsedRange, WS.Range("A:F")).Rows.Count
WS.Range("A2:F" & xIntR).Sort Key1:=WS.Range("A2:A" & xIntR), Order1:=xlDescending
Nächste WS
Application.ScreenUpdating = True
End Sub

Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
In der Hoffnung, dass Sie das sehen ...! Das funktioniert wunderbar - aber es enthält Zellen mit einer Formel, aber keinen Daten, wodurch Lücken in den Registerkarten entstehen und die Daten in den Zeilen durcheinander gebracht werden. Ich muss diese Zellen in meinen Registerkarten behalten, da sie nach Namen suchen, die der "Master-Registerkarte" hinzugefügt wurden. Ich möchte, dass sie nur Zellen mit einem tatsächlichen Namen sortiert - eine schnelle Lösung???
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sehr nützlicher Code Danke
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hey, das ist großartig, vielen Dank dafür! Mein einziges Problem mit diesem Code ist, dass er nicht auf meinem ersten Blatt ausgeführt wird. Es wird auf meinen verbleibenden Blättern ausgeführt. WIE würde ich das auf allen Blättern ausführen lassen? Es ist, als würde der Code das erste Blatt überspringen. Jede Hilfe wäre sehr willkommen :)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte die Daten in mehrere Arbeitsmappen aufteilen und dann den Wert in einer der Spalten hinzufügen.

Ich habe den Code vorbereitet, um die Daten in Arbeitsmappen aufzuteilen. Ich brauche aber Hilfe beim Hinzufügen der Summe in einer der Spalten
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Können Sie dies ausführen, ohne alle Blätter einzubeziehen? Lassen Sie also einige Blätter aus dem Makro heraus?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das schien bei mir nicht zu funktionieren. Ich habe eine Arbeitsmappe mit 12 Blättern, die nach Monaten des Jahres geordnet sind, wobei jedes Blatt entsprechende Daten zu Unternehmensprodukten usw. enthält. Mein Ziel ist es, alle Blätter in der Arbeitsmappe zu sortieren und zu filtern. Ich hätte gerne ein Blatt, das als übergeordnetes Blatt fungiert (z. B. erster Monat des Jahres), auf dem ich eine Filter- oder Sortierfunktion ausführen würde (z. B. A -> Z-Sortierung) und automatisch die anderen Blätter folgen lassen würde sortieren oder filtern. Zum Beispiel, wenn ich das Blatt mit der Bezeichnung "Januar" verwende, wenn ich zum Beispiel Spalte "D" auswähle, die die Tage im Monat enthält, die ich in "aufsteigender" Reihenfolge haben möchte - wenn ich die A -> Z-Sortierung auf dem Blatt "Januar" aktualisiere , ich möchte, dass dies den Rest aller Blätter in der Reihenfolge (Feb-Dez) mit allen Tagen des Monats sortiert A -> Z betrifft. Jede Änderung, die auf dem Blatt "Januar" in Bezug auf das Sortieren und Filtern vorgenommen wird, sollte den Ausgleich der Blätter in der Arbeitsmappe bewirken.
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL