Verwende folgenden Code für's Einfügen:
Sub WerteEinfügen()
Application.EnableEvents = False
Selection.PasteSpecial Paste:=xlValues
Application.EnableEvents = True
Application.CutCopyMode = False
End Sub
Folgende Merkwürdigkeit passiert:
Wenn ich eine Zelle kopiere und in eine andere
einfüge ist alles ok. Wenn ich eine Zelle kopiere
und zwei oder mehr markiere und einfüge ist es
auch noch ok.
Aber wenn ich dann in eine andere Zelle klicke
ist der Laufrahmen wieder um die kopierte Zelle?
Passiert nur wenn in mehr wie eine Zelle eingefügt
wird.
Das sollte das doch verhindern:
Application.CutCopyMode = False
Hat jemand einen Rat?
Viele Grüße
Anneliese