Zum Inhalt springen
View in the app

A better way to browse. Learn more.

Fachinformatiker.de

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Empfohlene Antworten

Veröffentlicht

Schönen guten Tag!:rolleyes:

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!

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...

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

Vielen Dank!

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

  • 18 Jahre später...
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

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

Erstelle ein Konto oder melde dich an, um einen Kommentar zu schreiben.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.