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"