Copy & Paste immer nur Werte übernehmen

[{Boris}]

Hi Ralf,

Aus Neugier, @Boris:
Ist das in Deiner Lösung auch berücksichtigt?

Im Prinzip wird der Copy-/Cut-Mode in dem Moment ignoriert/beendet, in dem eine andere Zelle selektiert wird (also ist Copy/Cut erstmal möglich - egal auf welchem Weg).
Entweder einfach canceln oder aber per Kontextmenü/Userform/Dialog fragen, ob nur die Inhalte eingefügt werden sollen. Falls ja: Inhalte einfügen, ansonsten Cancel.
CellDragAndDrop wird per se ausgeschaltet.
Das mal "in ganz einfach".

[snb]

Wäre dieser Code s erfolgreich ?

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode Then Target.PasteSpecial -4163
End Sub

[{Boris}]

Wäre dieser Code s erfolgreich ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode Then Target.PasteSpecial -4163
End Sub

Und wenn man sich verklickt?

[Binary91]

Alles interessante Überlegungen.

Mal eine Verständnisfrage: Gibt es ein spezifisches "Paste"-Event, welches bei jeglicher Art des Einfügens, egal ob über Tastatur, Maus, Sprachbefehl etc., ausgeführt wird und abgefangen werden kann?

In diesem Fall müsste man doch lediglich dieses Event abfangen und die Zwischenablage auf die Art der Daten prüfen. Sind es Excel-konforme Tabellendaten, dann werden hiervon lediglich die Werte eingefügt. Sind es externe Daten (z. B. Bilder aus dem Web), dann kann unverändert eingefügt werden.

Oder?

[RPP63]

Gehe mal ins Modul einer Tabelle.
Im linken Dropdown der Symbolleiste wählst Du Worksheet.
Wenn Du das rechte Dropdown ausklappst, siehst Du alle Ereignismakros.
Ein Before_Paste ist nicht dabei.
Du kannst ja mal einen Vorschlag an MS schicken.
Erfolgsaussichten ist gleich Null!
MS entwickelt VBA seit etlichen Jahren nicht mehr weiter, sondern implementiert nur noch neue Funktionen.

[schauan]

Hallöchen,

nimm mal den Code von Boris , aber im Change statt im SelectionChange.

[Gast 123]

Hallo

ich weiss nicht ob es VBA Befehle gibt, mit denen man die Zwischenablage auswerten kann um festzustellen ob Bilder oder Textdaten vorliegen??  Das übersteigt man Wissen.

Alternativ könnte man die Zwischenablage in eine Hilfstabelle laden, auch genau an die Position die in der Tabelle vorkommt, und prüfen was man da hineinkopiert hat. Bei Bilder den Kopiervorgang mit Einfügen in die Zieltabelle wiederholen, bei Tabellendaten mit Werte einfügen wiederholen. Danach Application.CutCopyMode = False setzen, und die Hilfstabelle löschen.

Ich weiss nicht ob das wirklich weiterhilft, einen Versuch ist es evtl. wert ....

mfg Gast 123

[{Boris}]

Mal eine Verständnisfrage: Gibt es ein spezifisches "Paste"-Event, welches bei jeglicher Art des Einfügens, egal ob über Tastatur, Maus, Sprachbefehl etc., ausgeführt wird und abgefangen werden kann?

Direkt zu Beginn hab ich nicht umsonst geschrieben:

per VBA gibt es dafür eine Lösung - aber um es wasserdicht zu haben, nicht für Lau.

Zumindest, wenn Du auch den absoluten DAU einbremsen möchtest, denn die sind so was von erfinderisch

[Binary91]

Hallo nochmals,

also ich bin zu dem Schluss gekommen, dass eine wasserdichte Lösung zu aufwändig ist.

Mir würde es reichen, wenn STRG+V umgeleitet würde in das entsprechende Makro:

Code:

Sub Werte_kopieren()
    ActiveCell.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

und gleichzeitig der Rechtsklick prinzipiell blockiert würde:

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  Cancel = True
End Sub

Andere Einfügetricks durch den DAU sind dann wohl Berufsrisiko

Jetzt stelle ich mit Erschrecken fest, dass Makros über Tastenkombinationen bei Mac-Usern nicht über CMD + Buchstabe (z. B. 'v'), sondern über CMD+Option+Buchstabe aufgerufen werden! 

Ich vermute mal, dass sich das nicht ändern lässt, oder? Somit kann ich die ganze Lösung nur Windows-Usern anbieten?

[HKindler]

Hi,

weise dein Makro nicht über Bordmittel (aka Entickelrtools --> Makros --> [Makro auswählen] --> Optionen) der V-Taste zu, sondern verwende die Application.OnKey()-Methode innerhalb des Workbook_Open()-Events. Damit kannst du ein Makro einer beliebigen Tasten-Kombination zuordnen.