Excel ist nicht nur ein Werkzeug zur Führung von Unternehmensdaten und Buchhaltung. Seine Stärke liegt in der Tatsache, dass damit fast alles auf einfache und schnelle Weise klassifiziert und verwaltet wird. Wir können Agenden, Arbeitsquadranten, Adressbücher, Rechnungsvorlagen, Anwesenheitslisten erstellen. In Excel können wir jedoch keine Arbeitsmappenblätter organisieren, was bei der Arbeit mit langen Büchern sehr nützlich ist. Wir können die Excel-Registerkarten jedoch automatisch mit einem Makro in Visual Basic-Code sortieren . Wir erklären Schritt für Schritt, wie es geht.
Die Worte "Makro in Visual Basic-Code" können einschüchternd sein, aber alles ist einfacher als es sich anhört. Ein Makro ist ein kleines Programm, das eine Reihe von Aktionen für uns in Excel ausführt und dazu dient, sich wiederholende Aufgaben zu automatisieren . Makros werden in Visual Basic für Applikationen (oder VBA) geschrieben, einer Programmiersprache, mit der Sie auf die Funktionen von Excel zugreifen und diese erweitern können.
Der Visual Basic-Editor
Um unser Makro zu erstellen, müssen wir jede Arbeitsmappe in Excel öffnen. Je mehr Registerkarten vorhanden sind, desto besser.
Zum Öffnen des VBA-Editors verwenden wir die Tastenkombination Alt + F11 . Sobald das Editorfenster angezeigt wird, suchen wir nach einer bestimmten Excel-Arbeitsmappe mit dem Namen Personal.xls . Diese Arbeitsmappe hat die Eigenschaft, dass alles, was wir darin tun, alle Arbeitsmappen betrifft . Das heißt, wenn wir ein Makro erstellen, können wir es verwenden, wann immer wir wollen.
Wenn Sie das persönliche Buch nicht finden können, machen Sie sich keine Sorgen. Beenden Sie den Editor, öffnen Sie die Registerkarte Excel- Ansicht , öffnen Sie das Menü Makros und wählen Sie Makro aufzeichnen . Speichern Sie das Makro in Ihrem persönlichen Makrobuch und starten Sie die Aufnahme. Rufen Sie dann das Menü Makros erneut auf und beenden Sie die Aufnahme. Sie haben bereits Ihr "spezielles" Buch.
Jetzt haben wir alles bereit, um ein neues Modul zu erstellen . Wir öffnen den VBA-Editor mit Alt + F11 , wählen das Buch Personal.xls aus und klicken dann auf Einfügen> Modul . Wir setzen den Cursor in das Modulfenster und schreiben den folgenden Code:
Sub SortSheets_Ascendant ()
Für a = 1 To Sheets.Count
Für s = a + 1 To Sheets.Count
Wenn UCase (Blätter (a) .Name)> UCase (Blätter (s) .Name) Dann
Blätter. Vorher bewegen: = Blätter (a)
End If
Weiter s
Neben an
End Sub
Wir schließen das Fenster und das Makro wurde automatisch gespeichert. Es bleibt nur zu überprüfen, ob es funktioniert. Wir öffnen das Buch, dessen Registerkarten wir bestellen möchten, gehen zu Ansicht und klicken auf Makros oder drücken die Tastenkombination Alt + F8 . Doppelklicken Sie auf SortSheets_Ascendant , und die Registerkarten des Buches werden sofort in alphabetischer Reihenfolge angezeigt .
Wenn wir Excel schließen, werden wir vom Programm gefragt, ob wir die an den Makros vorgenommenen Änderungen speichern möchten. Wir akzeptieren und unser Makro wird zur Verwendung mit dem gewünschten Buch gespeichert.
Sortieren Sie die Blätter in absteigender Reihenfolge
Mit ein paar kleinen Codeänderungen können wir den umgekehrten Effekt erzielen: Sortieren Sie die Registerkarten in absteigender alphabetischer Reihenfolge . Wir wiederholen den Vorgang zum Erstellen des Makros und fügen diesmal den folgenden Code ein:
Sub SortSheets_Descending ()
Für a = 1 To Sheets.Count
Für s = a + 1 To Sheets.Count
Wenn UCase (Blätter (a) .Name) <UCase (Blätter (s) .Name) Dann
Blätter. Vorher bewegen: = Blätter (a)
End If
Weiter s
Neben an
End Sub
Es gibt nur zwei Variationen. Der erste ist natürlich der Name des Makros. Die zweite ist die Änderung von> nach <in der vierten Codezeile. Dies bedeutet, dass die Reihenfolge der Blätter im Buch die Richtung ändert . Wenn Sie nun auf Ansicht> Makros (oder Alt + F8- Verknüpfung ) klicken , werden die beiden neu erstellten Makros angezeigt. Doppelklicken Sie auf SortSheets_Descending und überprüfen Sie die Wirkung mit Zufriedenheit.
Wenn Sie die Änderungen beim Beenden von Excel speichern, stehen diese beiden Makros jederzeit zur Verfügung . Sie sparen uns viel Zeit und Mühe beim Umgang mit Registerkarten von Excel-Arbeitsmappen, die besonders umfangreich sind.