Office: Als Inhalte einfügen, nur Werte erlauben, in nicht gesperrte Zellen

Hallo,
ich möchte in einer Excel-Datei (ca. 100 Tabellenregister) beim Kopieren nur Werte einfügen, möglich zu machen.

Ausschneiden+Drag&Drop habe ich bereits per Makro ausgeschaltet. Ich habe jetzt im Netz folgenden Code gefunden, den ich in
"Diese Arbeitsmappe" geschrieben habe:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Target.PasteSpecial xlPasteValues
Application.CutCopyMode = True
End Sub

(Der Code verursacht, dass ich nach kopieren, den Inhalt sofort als Wert in eine angeklickte Zelle kopiert bekomme)
Das funktioniert sehr gut, jedoch habe ich noch ein Problem dabei:

Wenn ich in dem Tabellenregister "Übersicht" Werte aus einer Zelle kopiere, kann ich diese auch in geschützte Zellen kopieren und das soll nicht sein. In vielen geschützten Zellen stehen Formeln die nicht überschrieben werden sollen.

Ich habe mal eine komprimierte Datei mit den Makros beigefügt, vielleicht kann mir von euch jemand helfen, was ich an dem Code ändern muss, dass er es nur erlaubt in nicht geschützte Zellen zu kopieren?

Gruß Heiko

Das Passwort für den Blattschutz ist "123"

Anhang:Beispiel-Datei

:)

 

Hallo Heiko,

bei mir klappt das so: Code:

Gruß von Luschi
aus klein-Paris

 

Luschi,
klappt echt prima. Danke!
Nur wenn man die Schere (Ausschneide-Symbol in der Menueleiste) anklickt und dann in eine freie Zelle klicke bekomme ich die Meldung
------------------
Laufzeitfehler '1004':
Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden.

Beenden Debuggen Hilfe
------------------

Bei dem Ursprungscode hat er bei dem Ausschneiden gar nichts gemacht.

Hast Du dazu vielleicht eine Idee?

Danke
Heiko

 

Hallo Heiko,

so klappt es jetzt bei mir: Code:

Gruß von Luschi
aus klein-Paris

 

Sorry, vielleicht hab ich es nicht korrekt beschrieben.

Ich hätte es gern, dass Ausschneiden nicht möglich ist.
Auch nicht über das Scheren-Symbol.
Nur kopieren und Wert einfügen soll möglich sein.


Mit Deinem jetzigen Code ist Ausschneiden möglich.

Wäre Klasse, wenn Du eine Lösung hättest.

Danke
heiko

 

Hallo Heiko,

warum soll ich mich damit noch beschäftigen, in dieser Anfrage:

https://www.ms-office-forum.net/foru...d.php?t=364762

hast Du doch Code aufgeführt, wie das geht, oder ist der plötzlich hinfällig geworden?

fragt sich Luschi
aus klein-Paris

 

Hallo Luschi,

Nein, in der gestrigen Anfrage gab es keine Lösung.

Ich konnte nur gestern nicht meine kpl. Ursprungsdatei hochladen,
deswegen hatte ich die Anfrage erst mal auf erledigt gesetzt.

Heute Morgen habe ich dann eine Beispieldatei erstellt und
in einer neuen Anfrage hochgeladen.

Bei dem bisherigen Code, der auch gestern aufgeführt war,
gab es folgendes Problem:

Wenn ich in dem Tabellenregister "Übersicht" Werte aus einer Zelle kopiere, kann ich diese auch in geschützte Zellen kopieren. Das soll nicht möglich sein.

Zudem soll es generell auch nicht möglich sein, auszuschneiden und einzufügen.

Wäre echt super nett wenn Du noch eine Idee hättest.

Danke heiko