Mit cmdButton_Click eine Funktion starten/beenden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm Label
Bild

Betrifft: Mit cmdButton_Click eine Funktion starten/beenden
von: Serge
Geschrieben am: 20.02.2005 23:20:03
Hallo Forum!!
Vielleicht kann mir jemand von euch Profis helfen!!!
Ich will über ein Click_Ereignis eine bestimmte Funktion aufrufen
ich habe eine UserForm mit zwei cmdButtons: "cmdStart" und "cmdStop"
So etwa:
Public


Sub Senden ()
......
End Sub


Sub Test1()
If cmdStart eingekligt wurde Then Funktion "Senden" aufrufen
und so lange durchführen bis "cmdStop" eingeklickt wird
End Sub

Wie lässt es sich machen???
Danke im Voraus
cmdStart=True entspricht das dem Click_Ereignis???
Call funktionsName ????
Do While cmdStop=True
Bild

Betrifft: AW: Mit cmdButton_Click eine Funktion starten/been
von: Josef Ehrensberger
Geschrieben am: 21.02.2005 00:07:27
Hallo Serge!
Vom Prinzip her so:


      
'#############################################################################
'UserForm1
Option Explicit
Private Sub cmdStart_Click()
senden
End Sub
Private Sub cmdStop_Click()
Application.OnTime earliesttime:=nextTime, procedure:=
"senden", Schedule:=False
End Sub
'#############################################################################

'#############################################################################
'Allgemeines Modul
Option Explicit
Public nextTime As Date
Sub senden()
nextTime = Now + TimeValue(
"00:00:01")
UserForm1.Label1.Caption = Format(Now, 
"hh:mm:ss")
Application.OnTime earliesttime:=nextTime, procedure:=
"senden", Schedule:=True
End Sub
'############################################################################# 

     Code eingefügt mit Syntaxhighlighter 3.0


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Bild

Betrifft: AW: Mit cmdButton_Click eine Funktion starten/been
von: Serge
Geschrieben am: 21.02.2005 00:36:38
Danke Dir Sepp für eine raschen Antwort , aber es funzt nicht..
Die Uhr tikt , ohne dass ich den Button cmdStart anklicke...
cmdStop stop die Uhr auch nicht..:(
Bild

Betrifft: AW: Unter Office 97 funzt.. unter Office XP nicht
von: Serge
Geschrieben am: 21.02.2005 09:54:12
Sorry das funzt...ich habe unter Excel 97 getestet....funzt
Unter Office XP geht nicht :(
Nochmals DANKE!!!!!!!
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Mit cmdButton_Click eine Funktion starten/beenden"