Macro für mehrere Tabellenblätter gleichzeitig ausführen?

[Stromberg]

Schönen guten Tag!

Ich hab mal wieder nen Problem mit Visal Basic!

Habe ein Makro zur formatierung einer Tabelle geschrieben.

Nun habe ich auf 12 Tabellenblätter der gleichen Datei identische Tabellen, lediglich mit anderen Ausganswerten. Welcher Befehl in Visal Basic bewirkt, dass das Makro nicht nur das Tabellenblatt bearbeitet, indem ich es ausführe, sonder auch alle anderen mit bearbeitet? Hab keine lust das Makro auf jedem der 12 Tabellenblättern auszuführen!

[-roTekuGeL-]

arbeite mit dem activesheet und verusch halt alle nacheinander zu aktivieren...

also so in der art

tabelle2.activate

activesheet.blabla

das ganze in nem loop und schon geht die post ab...

[gordonski]

oder auch so:

Dim i as Integer

For i = 1 to 12

ActiveWorkbook.Sheets(i).Activate

Dein eigentliches Makro für ein Tabellenblatt

Next i

[Stromberg]

Vielen Dank!

Habe den Vorschlag von "gordonski" übernommen... nochmals Danke.

[hexana]

Am 25.4.2006 um 15:15 schrieb gordonski:

oder auch so:

Dim i as Integer

For i = 1 to 12

ActiveWorkbook.Sheets(i).Activate

Dein eigentliches Makro für ein Tabellenblatt

Next i

Hallo? und wie füge ich das in das bestehende Makro ein

ich habe dieses makro, das funktioniert nur auf ein tabellenblatt, soll aber in allen über Makrobefehl "w" ausgeführt werden

Sub austritt_versuch()
'
' austritt_versuch Makro
'
' Tastenkombination: Strg+w
'
    Range("L1").Select
    ActiveWorkbook.Worksheets("ocakbasi").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ocakbasi").Sort.SortFields.Add2 Key:=Range( _
        "L1:L52"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("ocakbasi").Sort
        .SetRange Range("A2:AU52")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

vielleicht kann mir wer Helfen, das wäre super

[Datawrapper]

vor 4 Stunden schrieb hexana:

und wie füge ich das in das bestehende Makro ein

Du fügst einen Makro Code da ein, wo "Dein eigentliches Makro für ein Tabellenblatt" im Post von @gordonski steht. 

[hexana]

Am 22.6.2024 um 17:35 schrieb Datawrapper:

Du fügst einen Makro Code da ein, wo "Dein eigentliches Makro für ein Tabellenblatt" im Post von @gordonski steht. 

danke, leider hab ich nicht viel ahnung ein makro umzuschreiben .-(
könntest du mir hier meinen Code umschreiben, so dass das makro für alle Arbeitsblätter aktiviert wird?
lieben Dank