In diesem Artikel erfahren Sie, wie Sie mehrere Blätter mithilfe von VBA-Code automatisch sortieren.

{leer} F) Ich möchte wissen, wie ich die Daten auf mehreren Arbeitsblättern (nicht allen) sortieren kann.

[.underline] # Nehmen wir ein Beispiel: # Wir haben 3 Blätter (Jan, Feb & Mar) und von diesen muss nur das Mar-Blatt automatisch sortiert werden, wenn Sie Informationen in Spalte A eingeben.

Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code die Option Visual Basic

img1

aus Geben Sie den folgenden Code in diese Arbeitsmappe ein (nicht in ein Blatt). Dadurch wird der Code in allen Arbeitsblättern ausgeführt.

Private Sub Workbook_SheetChange (ByValSh als Objekt, ByVal-Ziel als Bereich)

Bei Fehler Fortsetzen Weiter

Wählen Sie Case ActiveSheet.Name

Fall „Jan“, „Feb“

Fall sonst

Wenn nicht überschneiden (Ziel, Bereich („A: A“)) ist nichts dann

Bereich („A1“). Sortierschlüssel1: = Bereich („A2“), _

Order1: = xlAscending, Header: = xlYes, _

OrderCustom: = 1, MatchCase: = False, _

Orientierung: = xlTopToBottom

End If

End Select

End Sub

img2

Auf diese Weise können Sie die Daten während der Eingabe der Informationen einfach nach einer bestimmten Spalte in mehreren Blättern sortieren. Dies ist eine großartige Möglichkeit, Zeit zu sparen und sicherzustellen, dass der Bericht so aussieht, wie Sie ihn gerne sehen würden.