337 Aufrufe
Gefragt in Tabellenkalkulation von
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

2 Antworten

0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)
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.
0 Punkte
Beantwortet von
Bedanke mich recht Herzlich
...