title image


Smiley Na vielleicht in eine Fremde App einfügen...
Hi,



aber beim Beispiel bleib ich mal bei XL:



Sub kopieren()

Dim CLPAblage As DataObject

Const x As Byte = 102

Set CLPAblage = New DataObject

    

    CLPAblage.SetText x

    CLPAblage.PutInClipboard

    

Set CLPAblage = Nothing

End Sub



Sub einfügen()

Dim CLPAblage As DataObject

Set CLPAblage = New DataObject



    CLPAblage.GetFromClipboard

    Cells(1, 1).Value = CLPAblage.GetText(1)

    

Set CLPAblage = Nothing

End Sub Code eingefügt mit Syntaxhighlighter 1.16
Der Zugvogel
(mIsCHa Reichelt)


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: