Listbox und Makro

Question

Mit der Zellverknüpfung Von einen Listenfeld ein Makro starten.
Zellverknüpfung vom Listenfeld ist A1.
Mein Makro :

Private Sub WorkSheet_Change(ByVal Target As Range)
'
' If Range("A1") = 1 Then
' Call Nr1
' End If
'
' If Range("A1") = 2 Then
' Call Nr2
' End If
'
' If Range("A1") = 3 Then
' Call Nr3
' End If
'
'End Sub

Sub Nr1
mein Makro
End Sub

Meine Vermutung ist das

Work Sheet_Change (ByVal Target As Range)

falsch ist ?

Kann mir jemand den Richtige Formel zum starten meines Makros sagen ?


Wenn ich manuell in A1 1 - 2 - 3 usw. Eingebe geht mein Makro.


Besten Dank schon im voraus für Eure Hilfe

Answer 1

hi hehans ^^

das gewaehlte ereigniss setzt eine haendiche eingabe vorraus

alternativ ein Beispiel
zu beachten waere das nur ein rueckgabewert erfogt und keine aenderungen der zellen moeglich ist,mit einigen wenigen ausnahmen

=WENN(A1=2;DeineFunktion();"")

Function DeineFunktion() As Integer
DeineFunktion = 2 + 2 + 2
End Function

gruss nighty