Einen Makronamen als Variable übergeben
26.10.2021 14:39:25
SchubertFranzl
Kann man einen Makronamen als Variable übergeben?
Hier ein Beispiel:
Gegeben:
Ein Hauptmakro.
Ein Submakro, das vom Hauptmakro mit Variablenübergabe aufgerufen wird.
Und dann noch mehrere Makros ("Mach Dies", "Mach Das"), die wahlweise vom Submakro aufgerufen werden sollen.
Und nun meine Frage: Wie teilt das Hauptmakro dem Submakro mit, welches dieses dann aufrufen soll?
Sub Hauptmakro()
Call Submakro(Range("A3:B5"), "MachDies")
Call Submakro(Range("C4:K5"), "MachDas")
Call Submakro(Range("R5"), "MachDas")
End Sub
Sub Submakro(rBereich As Range, SubMakroname As String)
Dim rZelle As Range
For Each rZelle In rBereich
'Hier stehen einige Makrozeilen
If rZelle "" Then
' Call "SubMakroname" 'Rufe hier das vom Hauptmakro gewünschte Makro auf ( "MachDies", "MachDas")
Next rZelle
'Auch hier stehen einige Makrozeilen
Next rZelle
End Sub
Sub MachDies()
MsgBox "Mach Dies"
End Sub
Sub MachDas()
MsgBox "Mach Das"
End Sub
LG,
Franz