VBA Code funktioniert plötzlich nicht mehr!
10.09.2018 10:59:11
Micha
den unten stehenden Code habe ich vor einigen Jahren hier im Forum gefunden um Zellinhalte in die Zwischenablage zu kopieren. Diese Inhalte werden später als Kommentar in eine andere Datei eingefügt.
Das hat jahrelang gut funktioniert, doch seit einigen Tagen funktioniert das nicht mehr. Beim Einfügen werden nur zwei "" eingefügt.
Würde mich riesig über Hilfe freuen.
VG, Micha
Sub Zwischenablage()
Dim clipAbLage As DataObject
Dim x As String
Dim i As Integer
Set clipAbLage = New DataObject
For i = 62 To 105
x = x & Cells(i, 38).Value & Chr(10)
Next i
clipAbLage.SetText x
clipAbLage.PutInClipboard
MsgBox ("Die Daten sind in der Zwischenablage!")
End Sub