Gruppe
Allgemein
Problem
Wie kann ich den in einer Variablen gespeicherten Wert in die Zwischenablage übernehmen, so daß ich ihn mit STRG+V an beliebige Stellen des Arbeitsblattes einfügen kann?
StandardModule: basMain
Sub Var2ClipBoard()
Dim ClipAbLage As DataObject
Dim sTxt As String
Set ClipAbLage = New DataObject
Range("A1").Select
sTxt = InputBox("Variablenwert:", , "Hallo!")
ClipAbLage.SetText sTxt
ClipAbLage.PutInClipboard
ActiveSheet.Paste
End Sub