Problem mit while schleife - Laufzeitfehler 91

Hallo @ all
ich habe ein Problem beim beenden der Userform. Läuft die Userform ist alles ok aber egal welche if abfrage ich versuche um die While Schleife irgendwie zu schließen nichts von meinen Versuchen hat funktioniert.
----------------------------------------------------------
Laufzeitfehler 91
Objektvariable oder With-Bolckvariable nicht festgelegt
----------------------------------------------------------
und das ist die Stelle die er immer wieder anmeckert :
While MSComm1.InBufferCount &lt 46 ' Erwartet werden 46 Zeichen
DoEvents
Wend
----------------------------------------------------------
danach folgt die auswertung des Strings als Array
----------------------------------------------------------
s = MSComm1.Input 'Jetzt sind sie da, als String
z = Split(s, ";")
x0 = Val(z(1)) 'Messwert 0..1023
y0 = x0 'x ist der Messwert 0..5V
x1 = Val(z(2)) 'Messwert 0..1023
y1 = x1 'x ist der Messwert 0..5V
x2 = Val(z(3)) 'Messwert 0..1023
y2 = x2 'x ist der Messwert 0..5V
x3 = Val(z(4)) 'Messwert 0..1023
y3 = x3 'x ist der Messwert 0..5V
x4 = Val(z(5)) 'Messwert 0..1023
y4 = x4 'x ist der Messwert 0..5V
x5 = Val(z(6)) 'Messwert 0..1023
y5 = x5 '
x6 = Val(z(7)) 'Messwert 0..1023
y6 = x6 '
x7 = Val(z(8)) 'Messwert 0..1023
y7 = x7 '
Danke für eure Hilfe
Gruß
Steffen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub chk1_Click() Dim s, z() As String Dim X, x0, x1, x2, x3, x4, x5, x6, x7 As Double Dim Y, y0, y1, y2, y3, y4, y5, y6, y7 As Double Dim s2 As String Dim t, u, v, w, t2, u2, v2 As Integer t = 2 'Startwert Aufzeichnung u = 0 'Zähler t2 = 2 'Startwert Aufzeichnung u2 = 0 'Zähler If Chk1 = True Then Do TextBox_Messwert1.Text = Range("B2") & " Max Sollwert" ' Wert aus Zelle in Userform übertragen While MSComm1.InBufferCount < 46 ' Erwartet werden 46 Zei DoEvents Wend s = MSComm1.Input 'Jetzt sind sie da, als String z = Split(s, ";") x0 = Val(z(1)) 'Messwert 0..1023 y0 = x0 'x ist der Messwert 0..5V x1 = Val(z(2)) 'Messwert 0..1023 y1 = x1 'x ist der Messwert 0..5V x2 = Val(z(3)) 'Messwert 0..1023 y2 = x2 'x ist der Messwert 0..5V x3 = Val(z(4)) 'Messwert 0..1023 y3 = x3 'x ist der Messwert 0..5V x4 = Val(z(5)) 'Messwert 0..1023 y4 = x4 'x ist der Messwert 0..5V x5 = Val(z(6)) 'Messwert 0..1023 y5 = x5 '-0.07 Meßfehler ausgleichen x6 = Val(z(7)) 'Messwert 0..1023 y6 = x6 '-0.07 Meßfehler ausgleichen x7 = Val(z(8)) 'Messwert 0..1023 y7 = x7 '-0.07 Meßfehler ausgleichen 'Zellen im Excel aktualieren If chk2 = True Then v = Val(sec.Value) u = u + 1 If u = v Then Cells(2, 1) = Now Cells(2, 2) = y0 Cells(2, 3) = y1 Cells(2, 4) = y2 Cells(2, 5) = y3 Cells(2, 6) = y4 Cells(2, 7) = y5 t = t + 1 u = 0 End If If u > v Then u = 0 End If End If DoEvents Loop Until Chk1 = False End If End Sub

Hallo Rainer,
erstmal vielen Dank für dein Beispiel da ist vieles um einiges anders als wie bei mir. Da mein Script aber so schön kurz ist ist es mir schon wichtig den Fehler zu finden vor allem weil es super funktioniert.
Hier ist der Rest vom Script im Prinzip sieht es aus wie das Script was du gefunden hast.
Vielen Dank für deine Hilfe
Gruß
Steffen


Private Sub chk1_Click()
Dim s, z() As String
Dim X, x0, x1, x2, x3, x4, x5, x6, x7 As Double
Dim Y, y0, y1, y2, y3, y4, y5, y6, y7 As Double
Dim s2 As String
Dim t, u, v, w, t2, u2, v2 As Integer
t = 2 'Startwert Aufzeichnung
u = 0 'Zähler
t2 = 2 'Startwert Aufzeichnung
u2 = 0 'Zähler
If Chk1 = True Then
Do
TextBox_Messwert1.Text = Range("B2") & "  Max Sollwert" ' Wert aus Zelle in Userform übertragen
While MSComm1.InBufferCount < 46 ' Erwartet werden 46 Zei
DoEvents
Wend
s = MSComm1.Input                'Jetzt sind sie da, als String
z = Split(s, ";")
x0 = Val(z(1))            'Messwert 0..1023
y0 = x0             'x ist der Messwert 0..5V
x1 = Val(z(2))            'Messwert 0..1023
y1 = x1                'x ist der Messwert 0..5V
x2 = Val(z(3))            'Messwert 0..1023
y2 = x2                 'x ist der Messwert 0..5V
x3 = Val(z(4))            'Messwert 0..1023
y3 = x3                 'x ist der Messwert 0..5V
x4 = Val(z(5))            'Messwert 0..1023
y4 = x4                 'x ist der Messwert 0..5V
x5 = Val(z(6))            'Messwert 0..1023
y5 = x5            '-0.07 Meßfehler ausgleichen
x6 = Val(z(7))            'Messwert 0..1023
y6 = x6             '-0.07 Meßfehler ausgleichen
x7 = Val(z(8))            'Messwert 0..1023
y7 = x7            '-0.07 Meßfehler ausgleichen
'Zellen im Excel aktualieren
If chk2 = True Then
v = Val(sec.Value)
u = u + 1
If u = v Then
Cells(2, 1) = Now
Cells(2, 2) = y0
Cells(2, 3) = y1
Cells(2, 4) = y2
Cells(2, 5) = y3
Cells(2, 6) = y4
Cells(2, 7) = y5
t = t + 1
u = 0
End If
If u > v Then
u = 0
End If
End If
DoEvents
Loop Until Chk1 = False
End If
End Sub


Private Sub UserForm_Initialize()
Set MSComm1 = New MSComm
MSComm1.CommPort = 1
MSComm1.Settings = "38400,N,8,1"
MSComm1.RThreshold = 1
MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeText
MSComm1.PortOpen = True
End Sub


Private Sub UserForm_Terminate()
If MSComm1.PortOpen = True Then ' Offene ComPort verbindung schließen
MSComm1.Output = "stop_adc"  ' Analogport des Controllers wegschalten
MSComm1.PortOpen = False
End If
Unload UserForm 'Userform beenden
End Sub

Beliebteste Forumthreads (12 Monate)

Problem mit while schleife - Laufzeitfehler 91

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Problem mit while schleife - Laufzeitfehler 91

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread