ich nutze nachfolgend vereinfacht dargestellte Makros um in Abhängigkeit vom Zellinhalt in Zelle A1 unterschiedliche Makros zu starten. Bislang muss ich immer noch einen Button drücken um das auszuführen - geht das auch allein dadurch, dass der Zellinhalt geändert wird? Ich hab schon mal bissel gestöbert und bin auf die Makroausprägung <pre>Sub Worksheet_Change(ByVal Target As Range) ~f~ gestoßen, weiß aber nicht so recht, wie ich das mit der Select Case Anweisung zusammen bekomme.
~f~
<pre>Sub formel1()
Dim ws As Worksheet
Set ws = Worksheets("Tabelle1")
ws.Cells(5, 5).FormulaLocal = "1"
End Sub</pre>
<pre>Sub formel2()
Dim ws As Worksheet
Set ws = Worksheets("Tabelle1")
ws.Cells(5, 5).FormulaLocal = "2"
End Sub</pre>
<pre>Sub Makrowahl()
If MsgBox("Wollen Sie wirklich ändern?", vbYesNo + vbQuestion, _
"Frage") = vbYes Then GoTo Fortfahren Else GoTo EndeMakro
Fortfahren:
Select Case ActiveSheet.Range("A1").Value
Case 1: Call formel1
Case 2: Call formel2
Case Else
End Select
EndeMakro:
End Sub</pre>
Ziel soll sein, dass das jeweilige Makro (formel1 oder formel2) ausgeführt wird, wenn in der Zelle A1 der jeweilige Wert (1 oder 2) eingetragen wird.
Kann jemand helfen?
Vielen Dank im Voraus & beste Grüße
Gunnar