Einfügen aus Zwischenablage
01.12.2005 13:39:16
Kersten
Ich habe eine eigene Menüleiste mit einem Button für "Werte einfügen" gebastelt.
Dahinter ist folgender Code hinterlegt.
Dim rngUndo As Range
Sub InhalteEinfügen()
On Error GoTo Fehler
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Set rngUndo = Selection
Application.OnUndo "Einfügen Rückgänging", ThisWorkbook.Name & "!UndoEinf"
Exit Sub
Fehler:
End Sub
Sub UndoEinf()
rngUndo.ClearContents
End Sub
Zunächst funktioniert es mal. Wenn ich aber aus einer anderen Anwendung z.B. MS-Word einen Text kopieren und mit diesem Code in Excel einfügen möchte, funktioniert das nicht.
Mit dem Originalbutton in der Excelleiste funktioniert das.
Kann ich mit diesem Code nicht aus der Zwischenablage einlesen?
Was muß ich an dem Code ändern, dass es damit auch funktioniert?
Im Archiv und auf der ExcelCD finde ich darüber nichts.
Danke Gruß Kersten