waardes versturen via de seriele compoort

[HaBro]

Hallo

Het versturen en ontvangen van variabele in Excel gaat perfect en loopt tot nog toe nooit vast.
maar het moet steeds mooier worden
en zou ik graag de waardes in bepaalde cellen versturen
tot nog toe waren dit vaste waardes

ik kan het niet vinden om hier cel variabele achter te zetten
UserForm1.MSComm1.Output = bijv.L10

zie deel van progr.

Sub Zend()
StatusPort = Not StatusPort                                                         'is Flag voor toggle status
                                                        
If StatusPort = True Then
    UserForm1.MSComm1.Settings = "9600,n,8,1"
    
     If UserForm1.MSComm1.PortOpen = False Then                                      'Als poort nog gesloten is open het dan
        UserForm1.MSComm1.CommPort = 1  ' Val(Sheets("Instelling").Cells(5, 6).Value)
        UserForm1.MSComm1.PortOpen = True
        UserForm1.MSComm1.InputLen = 0
        UserForm1.MSComm1.RThreshold = 1  'zorgt dat bij ingegeven aantal tekens in buffer the oncomm routine triggert
        UserForm1.MSComm1.SThreshold = 1
        
        UserForm1.MSComm1.Output = "D"  'opend PIC controller 4 
       UserForm1.MSComm1.Output = "100"
     UserForm1.MSComm1.Output= "250"
   UserForm1.MSComm1.Output = "1"


    End If
Else
    If UserForm1.MSComm1.PortOpen = True Then
        UserForm1.MSComm1.PortOpen = False

    End If
    
End If

Exit Sub

errorpoortportonoff:

   MsgBox "Fout bij openen poort"
 
End Sub
 '

 

[Wigi]

UserForm1.MSComm1.Output = Range("L10").Value

 

[HaBro]

Hallo Hr. Wigi

Bedankt voor de reactie
Helaas geeft ie een fout melding bij code

Hans

 

[Wigi]

Zo dan:

UserForm1.MSComm1.Output = Sheets("[B]NaamVanHetTabblad[/B]").Range("L10").Value

 

[HaBro]

Helaas

Ook deze niet
geeft fout 380 tijdens uitvoering
invalid propety value

Hans

 

[Wigi]

Helaas

Ook deze niet
geeft fout 380 tijdens uitvoering
invalid propety value

Hans

Wat is uw exacte code nu?

 

[HaBro]

De code tot nu toe is even

 Sub Zend()
 UserForm1.MSComm1.Output = "D"
 UserForm1.MSComm1.Output = "100"
 UserForm1.MSComm1.Output = Sheets("Test").Range("B10").Value
 End Sub

De D en 100 worden keurig verstuurd en ontvangen
maar bij de 3de krijg ik die fout melding
terwijl er een getal in cel B10 staat

Hans

 

[Wigi]

De code tot nu toe is even

 Sub Zend()
 UserForm1.MSComm1.Output = "D"
 UserForm1.MSComm1.Output = "100"
 UserForm1.MSComm1.Output = Sheets("Test").Range("B10").Value
 End Sub

De D en 100 worden keurig verstuurd en ontvangen
maar bij de 3de krijg ik die fout melding
terwijl er een getal in cel B10 staat

Hans

Sheet Test van welk bestand?

 

[HaBro]

Test is de naam van het tab blad waar de waarde staat in B10

Hans

 

[Wigi]

Als ik de file open krijg ik al onmiddellijk een heleboel foutmeldingen. Ik kan dit dus niet gaan reproduceren / oplossen.

 

[Warme bakkertje]

Remarks
The Output property can transmit text data or binary data. To send text data using the Output property, you must specify a Variant that contains a string. To send binary data, you must pass a Variant which contains a byte array to the Output property.
Normally, if you are sending an ANSI string to an application, you can send it as text data. If you have data that contains embedded control characters, Null characters, etc., then you will want to pass it as binary data.
Data Type
Variant

Uit onderstaande link. Misschien dat dit je verder helpt
http://www.yes-tele.com/mscomm.html

 

[HaBro]

Oke

Ja het gaat al gauw fout
als je de excel file copieerd dan word mscomm1 control niet mee gecop.
die moet je dan zelf 1 keer in de userform zetten
hoop gedoen die compoort

Maargoed de aan houder wint
ik ben eruit

het is

UserForm1.MSComm1.Output = Str(Sheets("Test").Cells(10, 2).Value)

Bedankt voor alle reacties

Hans