Makros nacheinander laufen lassen
19.08.2022 10:31:56
Richard
ich habe eine größere Anzahl von Makros (die sich in den jeweiligen Tabellenblättern befinden) die nacheinander laufen sollen. Diese einzeln jeweils mit Call aufzurufen wäre sehr aufwendig, da die Anzahl recht groß ist.
Anbei die Beispieldatei dazu:
https://www.herber.de/bbs/user/154725.xlsm
Im Prinzip muss es doch die Möglichkeit geben die verschiedenen Makros nacheinander per Makro aufruzufen, so wie zum Beispiel hier bei der Webabfrage:
Public Sub Daten_aktualisieren()
Dim Current As Worksheet
Dim qt As QueryTable
For Each Current In Worksheets
'MsgBox Current.Name
If Current.QueryTables.Count > 0 Then
For Each qt In Current.QueryTables
qt.Refresh (BackgroundQuery)
Next
End If
Next
End Sub
Anzeige