Wie führe ich ein Makro auf mehreren Arbeitsblättern aus?

Ich möchte ein Makro auf mehreren Arbeitsblättern ausführen. Die Blätter heißen A, B, C ... X, Y, Z. Wenn ich zu Z komme, beginnen die Blätter mit AA, BB, CC ... XX, YY, ZZ, dann AAA, BBB, CCC ... XXX, YYY, ZZZ und dies wiederholt sich bis zu ZZZZZ. Es gibt also 130 Blätter, auf denen ich das Makro ausführen muss. Ich bin mir nicht mal sicher, wo ich damit anfangen soll.

Ich habe versucht, mir etwas auszudenken, aber ich bin neu bei VBE und habe nicht einmal einen Spielplan dafür. Die Arbeitsblattnamen befinden sich in einer Nachschlagetabelle mit dem Namen "lookupABC123". Das Makro, das im Wesentlichen ausgeführt wird, kopiert einen Bereich von "A" und bearbeitet und verschiebt dann einige Zeilen in ein Master-Blatt. Ich habe das Makro auf 7 Blatt laufen lassen, aber in Zukunft könnte es auf 130 Blatt gehen.

Ich glaube, die einfache Antwort ist, Ihr Makro in Ihr PERSÖNLICHES MAKRO-ARBEITSBUCH einzufügen, wenn Sie es erstellen. Auf diese Weise ist es nicht nur für die aktuelle Arbeitsmappe verfügbar, sondern auch für alle neuen Arbeitsmappen, die Sie erstellen, unabhängig davon, wie viele Arbeitsblätter sich darin befinden.

Wir können eine UDF () verwenden , um die Blattnamen zu generieren und die erforderlichen Blätter zu durchlaufen:

Public Function ConvertBase10(ByVal d As Double) As String
'
'  http://www.freevbcode.com/ShowCode.asp?ID=6604
'
    Dim S As String, tmp As Double, i As Integer, lastI As Integer
    Dim BaseSize As Integer
    Dim sNewBaseDigits As String
    sNewBaseDigits = " ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    BaseSize = Len(sNewBaseDigits)
    Do While Val(d) <> 0
        tmp = d
        i = 0
        Do While tmp >= BaseSize
            i = i + 1
            tmp = tmp / BaseSize
        Loop
        If i <> lastI - 1 And lastI <> 0 Then S = S & String(lastI - i - 1, Left(sNewBaseDigits, 1)) 'get the zero digits inside the number
        tmp = Int(tmp) 'truncate decimals
        S = S + Mid(sNewBaseDigits, tmp + 1, 1)
        d = d - tmp * (BaseSize ^ i)
        lastI = i
    Loop
    S = S & String(i, Left(sNewBaseDigits, 1)) 'get the zero digits at the end of the number
    ConvertBase10 = S
End Function


Sub MAIN()
   Dim SheetName As String

   For i = 1 To 130
      SheetName = ConvertBase10(i)
      MsgBox SheetName
      Sheets(SheetName).Activate
      '
      'process
      '
   Next i
End Sub

Übrigens, wenn Sie 1.000.000 Arbeitsblätter hätten, könnten Sie nur Folgendes erreichen:

AWUTA