Private Sub CommandButton1_Click()
 Call Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCWrite", "1,V800.1,BOOL,RW", 1, "")
 Call Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCWrite", "1,V800.1,BOOL,RW", 0, "")
       End Sub
''Wenn sich durch eine Rechenoperation das Wert von 0 auf 1 änder ist der Button unsichtbar
Private Sub Worksheet_Calculate() '(ByVal Target As Range)

If [a15] = 0 Then
 CommandButton1.Visible = False
      
    Else
        CommandButton1.Visible = True
   
 Dim objDataObject As DataObject
    Set objDataObject = New DataObject
   objDataObject.SetText Range("A2").Text
   objDataObject.PutInClipboard
   
 
  
  
End If



End Sub

Private Sub CommandButton2_Click()
Call Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCWrite", "1,V800.6,BOOL,RW", 0, "")
End Sub
 
 
 
 
 
 'Dim objDataObject As DataObject
    'Set objDataObject = New DataObject
    'objDataObject.SetText Range("A2").Text
    'objDataObject.PutInClipboard

'Sub KopierenAlsWert_1()
   'Range("A2").Copy
   'Range("a4").PasteSpecial xlPasteValues
'End Sub
'Sub KopierenAlsWert_1()
   'Range("A2").Copy
   'Range("a5").PasteSpecial xlPasteValues
'End Sub
  
  
  
    'Call Dein_Makro
      


 

'End Sub
 'Google
  'Excel VBA Daten mit Wert in Zelle Kopieren

  




























Private Sub CommandButton3_Click()
Call Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCWrite", "1,V800.7,BOOL,RW", 1, "")
Call Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCWrite", "1,V800.6,BOOL,RW", 1, "")

End Sub











  
  
  'Call Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCWrite", "1,V800.1,BOOL,RW", 0, "")
  

' sStr = Excel.Application.Run("OPCS7200ExcelAddin.XLA!OPCWrite", "1,V800.1,BOOL,RW", 1, "")
'End Sub
'Private Sub CommandButton4_Click()
 'Dim objDataObject As DataObject
    'Set objDataObject = New DataObject
    'objDataObject.SetText Range("A2").Text
    'objDataObject.PutInClipboard

'Sub KopierenAlsWert_1()
   'Range("A2").Copy
   'Range("a4").PasteSpecial xlPasteValues
'End Sub