Zahl soll Makro starten

Question

Hi Leute

Ich habe hier 10 Makros die verschiedene Sachen erledigen
Ich würde das gerne eine wenig vereinfachen.
Es sollte so ablaufen wenn in Spalte A Zeile 2
die Zahl 1 steht dann bitte Makro 1 starten.
Wenn die Zahl 2 steht dann Makro 2 starten usw..
Also je nachdem welche Zahl steht das jeweilige Makro dazu starten.
Es wären nur 10 Zahlen also 10 Makros
Kann man das irgendwie umsetzen

lg
Lotto

Answer 1

Hallo Lotto,

heißen die Makros z.B. makro1, makro2 etc. dann kannst du das so machen:

Sub start1()
Dim strMakro As String

strMakro = "Makro" & Range("A2").Value
Application.Run (strMakro)

End Sub

Haben die einzelnen Makros verschiedene Namen, dann so:

Sub start2()

Select Case Range("A2").Value
Case 1: Call Einblenden
Case 2: Call Ausblenden
End Select

End Sub

Statt Ein- bzw. Ausblenden musst du dann natürlich die Namen deiner Makros einsetzen.

Gruß

M.O.

Answer 2

Bedanke mich recht Herzlich