AW: Sorry, hier nun der Code
07.11.2007 21:55:28
Benji
Hallo
Sub Text2ClipBoard()
Dim ClipAbLage As DataObject
Set ClipAbLage = New DataObject
For i = 6 To 9
ClipAbLage.SetText Cells(i,3).Text
ClipAbLage.PutInClipboard
Next
End Sub
Was nun passiert: die Schleife "for..next" durchlaefte die Zellen C6 bis C26, holt den Inhalt (Text) und kopiert ihn in die Zwischenablage.
Probem: Bei jedem Durchlauf wird der Inhalt der Zwischenablage ueberschrieben, d.h. du musst noch eine Aktion mit dem Inhalt machen:
For i = 6 To 9
ClipAbLage.SetText Cells(i,3).Text
ClipAbLage.PutInClipboard
...Jetzt was mit dem Inhalt machen...
Next
Alternativ kannst du auch folgendes machen:
Dim ClipAbLage As DataObject
Dim MyText As String
Set ClipAbLage = New DataObject
for i = 6 to 26
MyText = MyText & " " & Cells(i,3)
next
ClipAbLage.SetText MyText
ClipAbLage.PutInClipboard
Dieses haengt nun immer die Inahlte aneinander und du hast alles, getrennt durch ein Space im ClipBoard
Br,
Benji