Forums Neueste Beiträge
 

Prozedur eines Userform-Buttons direkt nach den Aufruf der Userform auslösen

30/01/2010 - 00:50 von Ludwig | Report spam
Hallo,

eine Userform rufe ich mit einem normalen FormularButton
aus einem Modul z.B wie folgt auf:

Sub PikUpMenue()
UFormPikUp.Show
End Sub

Auf dieser Unserform UFormPikUp gibt es einen Button mit
Namen : CBPikUpAktuelleZeile_Click())

Wenn ich die Userform aufrufe und dann den CommandButton anklicke,
dann làuft die Prozedur: Private Sub CBPikUpAktuelleZeile_Click()
ganz normal ab.

Nun möchte ich aber einen Klick auf diese CommandButton sparen
und gleich mit dem Aufruf der Userform die Prozedur :
" Private Sub CBPikUpAktuelleZeile "
direkt auslösen.
Die Userform heißt : " UFormPikUp "

Wenn die Userform keine Private Sub wàre,
dann könnte die Prozedur wie folgt aussehen:

Sub PikUpMenue()
UFormPikUp.Show
UFormPikUp.CBPikUpAktuelleZeile_Click
End Sub

Weil CBPikUpAktuelleZeile_Click aber eine Private Sub
innderhalb des Klassenmoduls ist làuft das so nicht.

Kann mir einer sagen, ob man eine Private Sub,
so wie ich mir das vorstelle aus einer normalen
Prozedur einer fremden Moduls aufrufen kann ?

Das es innerhalb des gleichen Moduls ohne
Probleme geht, ist mir bekannt.

Mit freundlichen Grüßen

Ludwig
 

Lesen sie die antworten

#1 Peter Schleif
30/01/2010 - 08:35 | Warnen spam
Ludwig schrieb am 30.01.2010 00:50 Uhr:

Sub PikUpMenue()
UFormPikUp.Show
UFormPikUp.CBPikUpAktuelleZeile_Click
End Sub



Möglichkeit 1:
Ersetze in der Click-Prozedur "Private" durch "Public" und mache die
UserForm nicht-modal (ShowModal = False). Dann kannst Du mit dem Code
arbeiten, den Du oben angegeben hast.

Möglichkeit 2:
Benutze das Activate-Ereignis der UserForm. Dann kann die Click-Prozedur
"Private" bleiben:

Private Sub UserForm_Activate()
Call CBPikUpAktuelleZeile_Click
End Sub

Peter

Ähnliche fragen