Registrieren der MSCOMM32.ocx 1.Die Datei nach C:\Windows\System32 kopieren. 2.Als Administrator die Eingabeaufforderung starten und folgendes eingeben: regsvr32 C:\Windows\System32\MSCOMM32.ocx 3.Bei Excel VBA Editor unter Extras/Verweise die MSCOMM32 auswählen Funktionbeschreibung MSCOMM With MSComm1 'DTREnable Legt fest oder gibt zurück, ob die Leitung "Endgerät betriebsbereit" (Data Terminal Ready, DTR) während eines Kommunikationsvorgangs aktiviert ist. Üblicherweise sendet ein Computer das Signal "Endgerät betriebsbereit" an ein Modem, um diesem mitzuteilen, daß er bereit ist, ankommende Daten zu empfangen. .DTREnable = False 'EOFEnable Die EOFEnable-Eigenschaft bestimmt, ob das Kommunikation-Steuerelement (MSComm) während der Eingabe auf EOF (End Of File) überprüft. Wenn ein EOF-Zeichen gefunden wird, wird die Eingabe angehalten, und das OnComm-Ereignis wird ausgelöst, wobei die CommEvent-Eigenschaft auf comEvEOF festgelegt ist. .EOFEnable = False 'Handshaking Legt fest oder gibt zurück, welches Handshaking-Protokoll die Hardware verwendet. 'comNone 0 (Voreinstellung) Kein Handshaking. 'comXOnXOff 1 XON/XOFF-Handshaking. 'comRTS 2 RTS/CTS-Handshaking (Request To Send/Clear To Send-Handshaking). 'comRTSXOnXOff 3 Sowohl RTS/CTS- als auch XON/XOFF-Handshaking. .Handshaking = comNone 'InBufferSize Legt fest und gibt zurück, wie groß der Empfangspuffer in Bytes ist. .InBufferSize = 1024 'InputLen Legt fest oder gibt zurück, wie viele Zeichen die Input-Eigenschaft aus dem Empfangspuffer liest. .InputLen = 1 'InputMode Legt den Typ der durch die Input-Eigenschaft abgerufenen Daten fest oder gibt diesen zurück. 'comInputModeText 0 (Voreinstellung) Daten werden durch die Input-Eigenschaft als Text abgerufen. 'comInputModeBinary 1 Daten werden durch die Input-Eigenschaft als Binärdaten abgerufen. .InputMode = comInputModeBinary 'OutBufferSize Legt fest und gibt zurück, wie groß (in Bytes) der Sendepuffer ist. .OutBufferSize = 512 'ParityReplace Legt fest und gibt zurück, welches Zeichen ein im Datenstrom entdecktes unzulässiges Zeichen ersetzt, wenn ein Paritätsfehler auftritt. .ParityReplace = "?" 'RThreshold Legt fest und gibt zurück, wie viele Zeichen im Empfangspuffer angekommen sein sollen, bevor das Kommunikation-Steuerelement (MSComm) die CommEvent-Eigenschaft auf comEvReceive festlegt und ein OnComm-Ereignis auslöst. .RThreshold = 1 'RTSEnable Bestimmt, ob die Leitung "Sendeteil einschalten" (Request To Send, RTS) aktiviert werden soll bzw. aktiviert ist. Das Signal "Sendeteil einschalten" fordert die Erlaubnis an, Daten übertragen zu dürfen, und wird üblicherweise von einem Computer an ein angeschlossenes Modem gesendet. .RTSEnable = False 'SThreshold Legt fest und gibt zurück, welche Anzahl an Zeichen unterschritten werden muß, bevor das Kommunikation-Steuerelement (MSComm) die CommEvent-Eigenschaft auf comEvSend festlegt und das OnComm-Ereignis auslöst. .SThreshold = 0 End With