Copy & Paste immer nur Werte übernehmen

[Gast 123]

Hallo

gehe in der Menüleiste auf das Menü Makros (zeigen) dort kannst du den xlDialog mit allen Makros öffnen.
In diesem xlDialog gibt es einen Button für Optionen. Dort in den Optionen kannst du das Kürzel festlegen.

Wenn du "v" auswählst ist die Standard Funktion von Excel aufgehoben, dein Kopier Makro wird ausgeführt!!
Bei meiner alten Excel 2003 Datei kann ich damit nur noch Werte kopieren. Bei neuen Versionen bitte selbst testen!

mfg Gast 123

[HKindler]

Hi,

damit ist dann aber nur das Einfügen mit der Tastatur geändert. Über Rechtsklick oder Menu ist ein "normales" Einfügen immer noch möglich. Außerdem hast du das damit Excel-weit, also für alle geöffnete Dateien gesperrt und nicht nur für deine eigene Mappe. Und - ungetestet aber bei OnTime schon so erlebt - es könnte sein, dass wenn du die Datei aber nicht Excel selbst schließt (weil noch eine andere Datei offen ist), deine bereits geschlossene Datei mit jedem Druck von Strg-V erneut geöffnet wird.

Das alles wasserdicht zu bekommen, ist also wirklich aufwendig.

[RPP63]

Über Rechtsklick oder Menu ist ein "normales" Einfügen immer noch möglich.

Gut, Rechtsklick wurde ja schon "brutal" unterdrückt (Cancel = True).
Aber dann gibt es ja noch Umschalt+F10 …
Aus Neugier, @Boris:
Ist das in Deiner Lösung auch berücksichtigt?

Zur einfachen Lösung von @Gast123:
Ist mir zu einfach!
Was machst Du, wenn .Areas.Count > 1
Was passiert, wenn sich etwas in der Windows-Zwischenablage befindet, aber nichts in Excel kopiert wurde?
Sollte man nicht zumindest .CutCopyMode abfragen?

Man könnte die Liste meiner Nachfrage noch erweitern …

Gruß Ralf

[schauan]

Hallöchen,

schaue Dir mal die Möglichkeiten der Menügestaltung an - siehe dort:

Excel-Einstieg-in-das-Thema-Ribbons-Teil-1

Man kann da hinsichtlich Menü und Kontextmenü das eine oder andere deaktivieren oder auch hinzufügen ... Die Änderungen wären dann Bestandteil Deiner Datei und gelten z.B. nur in dieser

[HKindler]

Hi,

Wollen wir jetzt alle Möglichkeiten aufzählen?

Für die rechte Maustaste funktioniert neben Shift F10 auch noch die Taste zwischen AltGr und STRG (das "Burger"-Menu, wie es heute so schön in WEB-Anwendungen heißt).

Statt Strg-V funktioniert auch Shift-Einfg (während Strg-Einfg dem üblichen Strg-C entspricht).

Und vermutlich gibt es noch weitere Wege.

Kann man eigentlich auch per Sprachbefehl einfügen?

Man sieht, mal wieder schlägt Murphy zu: Es ist unmöglich, etwas idiotensicher zu machen, weil Idioten so genial sind.

[RPP63]

Ooops, mal wieder etwas zu spät!
Gestatte mir, auf Umschalt+F10 herumzureiten.
Der Shortcut entspricht der "Kontextmenue-Taste" zwischen Alt Gr und rechter Strg-Taste.
Ich weiß, die dürfte die am wenigsten benutzte Taste sein …
… sie löst aber kein Event aus, sondern idR nur das Rechtsklick-Äquivalent.
Könnte man mittels OnKey umleiten.

[HKindler]

Ach so, wenn es wirklich darum geht, "nur" die Formatierungen zu retten, dann würde ich eine Schattenkopie des Blattes anlegen und bei jeder Änderung per Worksheet_Change-Event das Format von aus der Schattenkopie in das aktuelle Blatt kopieren. Dann können die User sich auf den Kopf stellen...

[Binary91]

Uiui,

ich merke schon, "wasserdicht" wird ziemlich schwierig.

Erst einmal vielen Dank euch allen für die Infos. Ich wusste gar nicht, über wie viele (Um)Wege man bei Excel etwas einfügen kann.

Da es offenbar kaum möglich ist, sämtliche Wege des Einfügens zu kontrollieren, ist wahrscheinlich der idiotensicherste Weg tatsächlich, das über eine Schattenkopie zu lösen. Ich frage mich einfach, ob dadurch nicht die Performance nachher leidet? Wie viel Zeitverzögerung wird es geben, wenn sagen wir 30 Formatierungsregeln, die sich über 10'000 x 20 Zellen erstrecken, bei jeder Änderung des Dokuments (das kann schonmal 2-3x pro 10 Sekunden sein) jedes Mal kopiert werden? Ich habe keine Erfahrung damit, auch nicht, wie man das in VBA programmiert (möglichst effizient natürlich)..

[schauan]

Hallöchen,

eine Schattenkopie deckt eventuell aber auch nicht alles ab oder Deine Formatierung deckt einen größeren Bereich ab, als momentan benötigt - z.B. wegen dem Anfügen von Zeilen.

Zur Vorgehensweise:

Eventuell kann man
- die Kopie auf Knopfdruck auslösen statt bei jeder Änderung
- die Kopie beim Speichern automatisch auslösen
- statt der Kopie der Formate das Formatieren per Makro vornehmen
- die Vorschläge von snb bzw. derHoepp nutzen
--> ( Ist natürlich auch eine Frage, wer wann warum welche Formatierung braucht ...)

[HKindler]

Hi,

so schwer ist das nicht. Habe es mal in einer Beispieldatei getestet. Natürlich merkt man ein kurzes "Aufblitzen". Das liegt daran, dass ich wegen der bed.Form. einfach alle Formate aller Zellen kopiere, egal was geändert wurde.

Kommen keine bed.Form. vor, so kann man sich auch auf den tatsächlich geänderten Bereich beschränken, dann sollte man nichts feststellen können. Wahlweise könne man auch generell jegliche bed.Form. im geänderten Bereich löschen, dann prüfen, ob der geänderte Bereich ursprünglich eine bed.Form. hatte und dann nur diese löschen und neu erstellen.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim aktSelektion As Object
Set aktSelektion = Selection
Application.EnableEvents = False
On Error Resume Next
Tabelle2.Cells.Copy
Cells.PasteSpecial xlPasteFormats
On Error GoTo 0
Application.EnableEvents = True
aktSelektion.Select
End Sub