Durchführung von identischen Makros bei einer variablen Anzahl von Tabellenblättern

[Ruletka23]

Hallo Excel-Freunde,

ich habe Excel-Tabellen mit gleichlautende Tabellenblättern, je nach Projekt sind das 2 – 80 Tabellenblätter in einer Tabelle.

Jedes Tabellenblatt hat ca. 1000 - 5000 Zeilen, sowie 12 Eingabespalten und 80 Auswertespalten (mit Formeln), also insgesamt bis zu 36,8 Millionen beschriebene Zellen, davon 32,0 Millionen Formeln.

Für jedes Tabellenblatt existiert schon ein Makro, welches bei Knopfdruck die Formeln runterzieht und dann wieder fixiert (außer die Formeln in der ersten Zeile). Ohne diese Fixierungen würden die Blätter bei Eingaben oder Einfügen einer Zeile viel zu langsam arbeiten.

Am Ende aller Eingaben ist es notwendig, dass dieses Makro nacheinander für alle Tabellenblätter ausgeführt wird, da ich nicht achtzig Mal auf das Tabellenblatt gehen und das Makro auslösen möchte, zumal diese Neuberechnung bei jeder Änderung von Angaben erfolgen muss, also manchmal mehrmals am Tag.

Gibt es so etwas wie eine Makro-Schleife, die die Anzahl der Tabellenblätter erkennt? Die Makros haben den gleichen Namen und stehen im VBAProject des Tabellenblatts und werden damit beim Kopieren des Tabellenblatts mit übertragen.

Dazu möchte ich noch erwähnen, dass es zusätzlich zu den 2- 80 identischen Tabellenblätter noch 6 zusätzliche Tabellenblätter gibt, in denen das Makro nicht ausgeführt werden soll.

Aber die Blätter in den das Makro ausgeführt werden, beginnen im Namen mit „Bereich“ und eine nach einem  Unterstrich nachfolgende Zahl, die aber nicht fortlaufend sein wird, z.B. 01, 05, 07, … 211.

Für eventuelle Lösungsansätze bedanke ich mich schon im Voraus.

[Steffl]

Hallo,

mal als Ansatz

Code:

Sub prcRuletka()
   Dim wksBlatt As Worksheet
  
   For Each wksBlatt In ThisWorkbook.Worksheets
      If InStr(wksBlatt.Name, "Bereich") Then
         'dein Makro
      End If
   Next wksBlatt
End Sub

[Klaus-Dieter]

Hallo Ruletka,

eine kleinere Schrift hast du nicht gefunden?

[Ruletka23]

Hallo Stefan,

vielen Dank für das Makro.

Leider bekomme ich die Fehlermeldung "End IF ohne IF-Block".

LG Guntram

[Steffl]

Hallo,

da ich nicht weis, wie dein Makro aktuell aussieht, kann ich dir nicht helfen.