Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Mit cmdButton_Click eine Funktion starten/beenden

Mit cmdButton_Click eine Funktion starten/beenden
20.02.2005 23:20:03
Serge
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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit cmdButton_Click eine Funktion starten/been
21.02.2005 00:07:27
Josef
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
'############################################################################# 


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Mit cmdButton_Click eine Funktion starten/been
21.02.2005 00:36:38
Serge
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..:(
AW: Unter Office 97 funzt.. unter Office XP nicht
Serge
Sorry das funzt...ich habe unter Excel 97 getestet....funzt
Unter Office XP geht nicht :(
Nochmals DANKE!!!!!!!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige