Makro in WENN-Funktion

[Marcel7331]

Schönen guten Tag liebes Forum,

nach durchforsten des Internets bin ich dank diverser Lösungswege für mein im Betreff beschriebenes Problem endgültig verwirrt.
Ich hoffe hier kann mir einer von Euch zur Lösung meines Problems beitragen!

Aufgabe:
Ich möchte das wenn in der Zelle F28 die Zahl 7331 eingegeben wird, ein Makro ausgeführt wird, dass den, der die Zahl eingibt auf eine andere Tabelle führt.

Bisheriger Lösungsweg:
In einer anderen Zelle (In diesem Beispiel ist es Zelle H11) habe ich folgende WENN-Funktion eingegeben:

Code:

=WENN(F28=7331;bestellen_1();"Bitte *ausfüllen!")

Über die Tastenkombination ALT+F11 bin ich dann in das Fenster gekommen, wo ich vie Visual Basic Module einfügen kann.
Dort habe ich dann über den Reiter "Einfügen" - "Modul" ein Modul mit folgendem Code erstellt:

Code:

Public Function bestellen_1()

Call BestellenKlick

End Function

Anschließend habe ich über die Entwicklertools ein Makro mit folgendem Code erstellt:

Code:

Sub BestellenKlick()
'
' BestellenKlick Makro
'

'
    Sheets("Shop Startseite Danke").Select
End Sub

Laut einem anderen Forum indem jemand ein ähnliches Problem schilderte, sollte dies genügen.

Ergebniss:

In der Zelle H11 erscheint, wenn in Zelle F28 nichts steht der gewünschte Text. :28:

Wenn jedoch die Zahl 7331 in der Zelle F28 eingetragen ist, wird nicht das Makro wie gewünscht ausgeführt sondern eine einfache 0 in der Zelle H11 dargestellt.   :s

Frage:
Wie kommt das und wie kann ich dieses Problem lösen?

[Basisa]

Sowas?
Siehe Datei im Anhang!

Kannst dir dann mit Alt + F11 ansehen!

[Marcel7331]

Wesentlich Simpler und sehr effektiv vielen Dank.