dubioser Run-time error '13': Type mismatch

Hallo,
ich lese per Macro einen Messwert von einem Gerät ein.
Wenn ich im Macro mit dieser Zahl weiterrechnen will kommt obige Meldung...
Range("A1") = Messwert*1000*...
oder
a = Messwert
Range("A1") = a*1000*...
Ich habe auch versucht dem Messwert eine Variable zuzuornen und diese Variable in die Zelle zu schreiben Type mismatch...
a = Messwert
Range("A1") = a
Auch hab ich versucht sowohl Dim a oder Messwert (und auch die anderen Faktoren) As Integer od Long od Single od Double oder Variant immer Type mismatch.
Nun dachte ich, dass vielleicht der Wert als Text übergeben wird -
wenn ich aber den Wert direkt in eine Zelle schreiben lasse, geht das ohne Probleme - es ist eine ganzzahlige Zahl zw. 0 - 32000.
Range("A1") = Messwert
Hat dazu jemand eine Idee an was es noch liegen könnte...
Falls es doch ein text ist wie könnte ich im Macro Text in eine Zahl umwandeln?
Danke und viele Grüße
Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Heiko,
Ich hab nun die Umwandlung versucht..
a=CDbl(Messwert) - Type Missmatch
oder
a= Messwert
b= CDbl(a) - Type Missmatch
ich weiß nicht mehr weiter...
DDERequest(channelNumber1, "P(8)") babe ich vereinfacht als Messwert bezeichnet
das Problem taucht ganz unten auf in der Zeile
'DDE 1
Cells(n + 1, 17) = DDERequest(channelNumber1, "P(8)") * dde1 * gcf / 320 * 100
dde1 und gcf sind double
~f~
~f~
'Open DDE-link
channelNumber1 = Application.DDEInitiate(app:="FLOWDDE", topic:="C(1)")
channelNumber2 = Application.DDEInitiate(app:="FLOWDDE2", topic:="C(1)")
'Write Setpoint Start
Do
If m = 10 Then Exit Do 'verhindert Endlosloop
m = m + 1

'DDE 1
DDEPoke channelNumber1, "P(9)", (Sheets(1).Cells(4, 2))
Sheets(1).Cells(4, 3) = DDERequest(channelNumber1, "P(9)")
'DDE 2
DDEPoke channelNumber2, "P(9)", (Sheets(1).Cells(11, 2))
Sheets(1).Cells(11, 3) = DDERequest(channelNumber2, "P(9)")
Loop While ((Sheets(1).Cells(4, 2).Value) &lt&gt (Sheets(1).Cells(4, 3).Value)) And ((Sheets(1).Cells(11, 2).Value) &lt&gt (Sheets(1).Cells(11, 3).Value))

Do
n = n + 1
Sleep 197 '200 'Zeit in msec

With Cells(n + 1, 16)
.NumberFormat = "[hh]:mm:ss.000"
.Value = (Timer - sngStart) / 86400
End With

'DDE 1
Cells(n + 1, 17) = DDERequest(channelNumber1, "P(8)") * dde1 * gcf / 320 * 100
'DDE 2
Cells(n + 1, 18) = DDERequest(channelNumber2, "P(8)") * dde2 * gcf / 320 * 100

Loop While n &lt= 9000 '9000 = 30 min bei einem 200ms Intervall

Beliebteste Forumthreads (12 Monate)

dubioser Run-time error '13': Type mismatch

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

dubioser Run-time error '13': Type mismatch

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread