Ich benutze die rsapi.dll von Kalinka. Bekomme ja auch Daten, aber mit der Formatierung scheint etwas nicht zu klappen.


Benutze dieses Makro:

Declare Sub OPENCOM Lib "RSAPI.DLL" (ByVal Parameter$)
Declare Function READBYTE Lib "RSAPI.DLL" () As Integer
Declare Sub TIMEOUT Lib "RSAPI.DLL" (ByVal ms%)
Declare Sub CLOSECOM Lib "RSAPI.DLL" ()
Declare Sub SENDBYTE Lib "RSAPI.DLL" (ByVal test%)
Declare Sub DELAY Lib "RSAPI.DLL" (ByVal ms%)

Sub Messung()
OPENCOM "COM1:19200,N,8,1"
ThisWorkbook.Sheets("Tabelle1").Activate
Columns("A:B").Select
Selection.ClearContents
Range("A1").Select
TIMEOUT 1500
Zeile = 1

Do
ergebnis = READBYTE
Cells(Zeile, 1).Value = ergebnis
Cells(1, 3).Value = Zeile
Zeile = Zeile + 1

end if
Loop Until (ergebnis < 0 )
CLOSECOM
MsgBox Str(Zeile - 1) + " Meßwerte gelesen"
Application.Calculation = xlAutomatic
End Sub