Forms: Gemeinsamer Code
08.07.2005 09:37:15
yogi
in einer Userform gibt es mehrere Listenfelder, hinter denen der gleiche Code steckt, der bei MouseUp ausgeführt wird. Ich möchte dies nun auf folgende Weise vereinfachen:
Private Sub liste1_MouseUp(ByVal...)
Call gemeinsamercode(?)
End Sub
Private Sub liste2_MouseUp(ByVal...)
Call gemeinsamercode(?)
End Sub
Sub gemeinsamercode(?)
..
End Sub
Nun die Frage: Wie muss der Prozeduraufruf aussehen und wie muss der Parameter in gemeinsamercode definiert werden?
Danke
Yogi