Zwischenablage löschen
18.09.2017 19:31:37
Jürgen
bin fast am Verzweifeln,
bin schon seit 2 Tagen am Suchen bei Google..
Ich habe ein Workbook mit 4 Tabellen
Ich kopiere von Tabelle1 zu Tabelle2 einige Werte mit:
Worksheets("Tabelle1").Range("M5:O44").Copy
Worksheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
zum Schluss will ich nur folgendes kopieren:
z = Range("C1").End(xlDown).Row
Worksheets("Tabelle2").Range("C1:C" & z).Copy
Diese Daten will ich weiter verwenden.
Wenn ich diese Daten in eine Excel Spalte einfüge ist alles ok,
es wird nur die Spalte C eingefügt.
Wenn ich aber die Werte aus dem Zwischenspeicher in eine Word-Datei einfüge
sind da immer noch die 3 Spalten M5:O44 vorhanden...
Wie es aussieht klappt es bei Excel 2016 und bei Excel 2013 nicht, das muss ich aber noch genauer testen...
Allerdings, wenn ich den Zwischenspeicher-Inhalt anzeigen lasse, ist dieser immer gefüllt, ich bekomme ihn einfach nicht gelöscht...
Manuell natürlich ja, es soll aber in einem Makro geschehen...
Routinen wie z.B.
Sub leer()
Dim za_daten As New DataObject
za_daten.GetFromClipboard
za_daten.SetText ""
za_daten.PutInClipboard
End Sub
habe ich alles schon getestet, geht einfach nicht....
Weis jemand einen Rat?
Vielen Dank, Jürgen