Wie erfolgt die Automatische Sortierung mehrerer Blätter VBA in Microsoft Excel 2010
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
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
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.