Herbers Excel-Forum - das Archiv

Mit cmdButton_Click Ereignis Prozedur beenden

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

Betrifft: Mit cmdButton_Click Ereignis Prozedur beenden
von: Serge

Geschrieben am: 21.02.2005 12:32:26
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
Bild

Betrifft: AW: Mit cmdButton_Click Ereignis Prozedur beenden
von: serge

Geschrieben am: 21.02.2005 13:25:27
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

 Bild
Excel-Beispiele zum Thema "Mit cmdButton_Click Ereignis Prozedur beenden"
Die Ereignisse Zellauswahl, Eingabe und Doppelklick SVERWEIS als Ereignisprozedur
Im Change-Ereignis Eingabe in oder Leeren von Zellen erkennen Makroverzweigung im Change-Ereignis
ComboBox mit Ereigniscode in Tabellenblatt erstellen DoubleClick-Ereignis für alle Arbeitsmappen initialisieren
Begrenzung der Textlänge über Ereignis-Programmierung Beispiele zum Einsatz des SelectionChange-Ereignisses
Fehler in Workbook_Open-Prozedur abfangen Arbeitsmappe anlegen und Workbook_Open-Prozedur schreiben