Wie führt man dasselbe Makro auf mehreren Arbeitsblättern gleichzeitig in Excel aus?

In Excel können Sie ein Makro auf einem einzelnen Arbeitsblatt ausführen, aber was tun Sie, wenn Sie dasselbe Makro auf mehreren Blättern gleichzeitig anwenden müssen? Anstatt das Makro für jedes Blatt einzeln auszulösen, können Sie es auf allen ausgewählten Arbeitsblättern gleichzeitig ausführen. In dieser Anleitung zeigen wir Ihnen, wie Sie VBA verwenden, um dasselbe Makro auf mehrere Arbeitsblätter effizienter anzuwenden und so Zeit und Mühe zu sparen.

Führen Sie dasselbe Makro mit VBA-Code gleichzeitig auf mehreren Arbeitsblättern aus

Führen Sie dasselbe Makro mit VBA-Code gleichzeitig auf mehreren Arbeitsblättern aus

Um ein Makro auf mehreren Blättern gleichzeitig auszuführen, ohne es einzeln pro Blatt auszulösen, können Sie den folgenden VBA-Code verwenden. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie das folgende Makro im Modulfenster ein.

VBA-Code: Führen Sie dasselbe Makro auf mehreren Arbeitsblättern gleichzeitig aus:

Sub Dosomething()
    Dim xSh As Worksheet
    Application.ScreenUpdating = False
    For Each xSh In Worksheets
        xSh.Select
        Call RunCode
    Next
    Application.ScreenUpdating = True
End Sub
Sub RunCode()
    'your code here
End Sub

Hinweis: Kopieren Sie im obigen Code Ihren eigenen Code ohne die Überschrift Sub und den Fußzeilen-End Sub zwischen den Skripten Sub Runcode() und End Sub . Siehe Screenshot:

3. Platzieren Sie dann den Cursor am Anfang des Makros und drücken Sie die F5-Taste, um den Code auszuführen. Ihr Makro wird dann nacheinander auf jedes Blatt angewendet.

Makros ganz einfach aus mehreren Arbeitsmappen entfernen

Das Tool „Makros stapelweise entfernen“ von Kutools für Excel ermöglicht es Ihnen, Makros schnell aus mehreren Arbeitsmappen zu entfernen.

Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt