Office: Bereich in Zwischenablage kopieren

Hallo,

ich verzweifle mal wieder an den simpelsten Dingen...
Ich möchte per Commandbutton einen Bereich eines Excelblattes markieren und in die Zwischenablage legen, um ihn dann in einem Wordformular manuell einzufügen.
Per Copy/Paste klappt das, nur per VBA Code irgendwie nicht.
Hatte erste den Verdacht, dass es am Schreibschutz liegt aber ohne gehts auch nicht. Der Paste-Bereich ist nicht verfügbar.
Was mache ich falsch?? Hier der Code vom Makro-Recorder:

Sub Bereich_in_Zwischenablage_speichern()

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.Unprotect
Range("C23:E30").Select
Selection.Copy
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

:)

 

Moin!
Nun, mit .CutCopyMode = False löscht Du die Zwischenablage!
Wo genau war noch mal das .Paste, besser die Übergabe der Zwischenablage?

Gruß Ralf

 

Hab im Netz ne Lösung gefunden:

Sub Zwischenspeichern()
Dim data As DataObject
Set data = New DataObject
Dim Text As String
ActiveSheet.Unprotect
ActiveSheet.Range("C23:E30").Select
nAreas = Selection.Areas.Count
For nArea = 1 To nAreas 'Schleife durch alle markierten Bereiche
nRows = Selection.Rows.Count
For nRow = 1 To nRows 'Schleife durch markierte Zeilen
nCells = Selection.Rows(nRow).Cells.Count
For nCell = 1 To nCells 'Schleife durch Zellen
Text = Text & Selection.Cells(nRow, nCell).Text
Next nCell
Text = Text & vbLf
Next nRow
Next nArea
data.SetText Text
data.PutInClipboard
Range("E28").Select
ActiveSheet.Protect
End Sub

Weiß nur noch nicht, wie ich die Schriftart beibehalte aber das ist nicht so wichtig.

Gruß,
Florian