Was mache ich falsch? Ich möchte je nachdem ob in D7 1, 2 oder 3 steht Makro "karriere", "mlt" oder "alle" starten.
Hier mal meine Wenn-Formel:
=WENN(D7=1;karriere();wenn(d7=2;mlt();alle()))
Und hier mein Modul mit drei Makros:
Modul1
Code:
Option Explicit
Sub karriere()
'
' karriere Makro
' Makro am 30.07.2009 von Freak aufgezeichnet
'
' Tastenkombination: Strg+k
'
Selection.AutoFilter Field:=1, Criteria1:="36"
End Sub
Sub milt()
'
' mlt Makro
' Makro am 30.07.2009 von Freak aufgezeichnet
'
' Tastenkombination: Strg+m
'
Selection.AutoFilter Field:=1, Criteria1:="35"
End Sub
Sub alle()
'
' alle Makro
' Makro am 30.07.2009 von Freak aufgezeichnet
'
' Tastenkombination: Strg+Umschalt+A
'
Selection.AutoFilter Field:=1
End Sub
Ich muss zugeben dass ich das noch nie gemacht habe, aber soweit ich mich belesen habe müsste es funzen. Beim Ergebnis der Wenn-Formel kommt aber immer Name nicht gefunden oder #Bezug! und anschließend gelang ich zurück in den Editor wo die Meldung kommt, fehler beim Kompilieren, außerhalb einer Prozedur ungültig. Hä? =(
Hier mal meine Wenn-Formel:
=WENN(D7=1;karriere();wenn(d7=2;mlt();alle()))
Und hier mein Modul mit drei Makros:
Modul1
Code:
Option Explicit
Sub karriere()
'
' karriere Makro
' Makro am 30.07.2009 von Freak aufgezeichnet
'
' Tastenkombination: Strg+k
'
Selection.AutoFilter Field:=1, Criteria1:="36"
End Sub
Sub milt()
'
' mlt Makro
' Makro am 30.07.2009 von Freak aufgezeichnet
'
' Tastenkombination: Strg+m
'
Selection.AutoFilter Field:=1, Criteria1:="35"
End Sub
Sub alle()
'
' alle Makro
' Makro am 30.07.2009 von Freak aufgezeichnet
'
' Tastenkombination: Strg+Umschalt+A
'
Selection.AutoFilter Field:=1
End Sub
Ich muss zugeben dass ich das noch nie gemacht habe, aber soweit ich mich belesen habe müsste es funzen. Beim Ergebnis der Wenn-Formel kommt aber immer Name nicht gefunden oder #Bezug! und anschließend gelang ich zurück in den Editor wo die Meldung kommt, fehler beim Kompilieren, außerhalb einer Prozedur ungültig. Hä? =(