Ich versuche gerade die Anzeige eines Waagenterminals in Excel zu importieren.
Das Terminal hat einen COM Ausgang den ich via COM2USB Adapter mit meinem Computer verbunden habe. Soweit ich es herausbekommen sendet das Terminal lediglich das 5stellige Gewicht das die Waage im jeweiligen Moment anzeigt.
Ziel ist also dass dieses 5stellige Gewicht in einer Excelzelle dauerhaft "in Echtzeit" dargestellt wird. Und zwar als normaler Zahlenwert, damit ich mit der Zelle weiterrechnen kann.
MSCOMM.OCX ist installiert, registiert usw usf, funktioniert also.
Dann habe ich ein entsprechendes Steuerelement eingefügt und mit folgendem Code versehen:
Sub OpenPort()
Worksheets("SerialPort").MSComm1.CommPort = 3
Worksheets("SerialPort").MSComm1.Settings = "9600,n,8,1"
Worksheets("SerialPort").MSComm1.RThreshold = 1
Worksheets("SerialPort").MSComm1.InBufferSize = 4096
Worksheets("SerialPort").MSComm1.PortOpen = True
End Sub
Die Einstellungen passen zum Waagenterminal (liegt auf COMPort 3 usw.) und durch RThreshold = 1 sollte auch eine dauerhafte Weitergabe der Daten möglich sein.
Leider hakt es jetzt bei mir wie ich einen Code schreiben der mir das Gewicht permanent in einer Zelle darstellt....
Irgendwelche Vorschläge?
Meine VBA Kenntnisse sind nicht sehr berauschend, bin schon froh überhaupt so weit gekommen zu sein ;)