Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mit cmdButton_Click Ereignis Prozedur beenden

Mit cmdButton_Click Ereignis Prozedur beenden
21.02.2005 12:32:26
Serge
Hallo Forum!!!
Bitte helft mir!!!

Sub cmdStart_Click()
OPENCOM "COM1:9600,N,8,1"
SENDSTRING "STA,S,2" + Chr$(13)
RTS 1
S$ = Space$(10)
i = READSTRING(S$)
ThisWorkbook.Sheets("Tabelle1").Range("B1").Value = Mid$(S$, 1, i)
Call SpeedAuslesen
End Sub

'################
'Modul1
Public

Sub Speed()
Zeile=1
Do
SENDSTRING "kmh,g" + Chr$(13)
RTS 1
i = READSTRING(S$)
ThisWorkbook.Sheets("Tabelle1").Cells(Zeile,3)Value = Mid$(S$, 1, i)
RTS 0
Delay 100
Zeile=Zeile+1
Loop Until //cmdStop_Click wurde angecklikt//
End 

Sub
so etwa ....
un wie kann mann so eine Schleife so laufen lassen (imHintergrund :-)), dass ich mein UserForm weiter benutzen kann ?
Danke im Voraus

		

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit cmdButton_Click Ereignis Prozedur beenden
21.02.2005 13:25:27
serge
Hallo Forum!!!
Bitte helft mir!!!
Ups ..habe vergesen frage zu stellen, wie kann ich

Sub SpeedAuslesen() mit
einen cmdButton_Click beenden?  Do... bis.. cmdButton_Click

Sub cmdStart_Click()
OPENCOM "COM1:9600,N,8,1"
SENDSTRING "STA,S,2" + Chr$(13)
RTS 1
S$ = Space$(10)
i = READSTRING(S$)
ThisWorkbook.Sheets("Tabelle1").Range("B1").Value = Mid$(S$, 1, i)
Call SpeedAuslesen
End Sub

'################
'Modul1
Public

Sub Speed()
Zeile=1
Do
SENDSTRING "kmh,g" + Chr$(13)
RTS 1
i = READSTRING(S$)
ThisWorkbook.Sheets("Tabelle1").Cells(Zeile,3)Value = Mid$(S$, 1, i)
RTS 0
Delay 100
Zeile=Zeile+1
Loop Until //cmdStop_Click wurde angecklikt//
End 

Sub

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige