Inhalte einfügen
Karsten
ich möchte, dass, wenn ich eine ganze Zelle kopiere, der Inhalt über:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
und wenn ich einen Teilinhalt der Zelle kopiert habe über:
ActiveSheet.Paste
einfüge. Mir geht es darum, die Zellformatierungen nicht mit zu übertragen.
Oder anders gesagt: Teilinhalte einer Zelle lassen sich nicht mit:
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
einfügen. Gibt es dafür eine anderen Befehl?
Im Moment siht mein Makro folgendermassen aus:
Sub Strg_V()
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
On Error Resume Next
ActiveSheet.Paste
Application.CutCopyMode = False
Dim NeuData As DataObject
Set NeuData = New DataObject
NeuData.SetText ""
NeuData.PutInClipboard
End Sub
Danke für eure Hilfe.
Gruß
Karsten