CutCopyMode: welche Zellen sind markiert

Hallo zusammen,
ich möchte gerne in einer Worksheet_SelectionChange-Sub rausfinden, welche Zellen zum kopieren markiert sind (also wenn man Strg+C drückt und die Zellen dann einen gestrichelten Rand bekommen).
Beispiel:
1. User klickt auf Zelle A1, dann Strg+ C
2. User klickt auf Zelle A2: in der SelectionChange-Sub kann ich über Application.CutCopyMode = 1 und die vorherige Auswahl von A1 (in Variable gespeichert) rausfinden, dass der User die Zelle A1 markiert hat
3. Der User fügt jetzt nicht die Werte in A2 ein
4. Stattdessen klickt er auf A3 und drückt dann wieder Strg + C. Er hatte also ursprünglich A1 kopiert, nirgends eingefügt und dann aber eine andere Zelle (A3) markiert und diese dann kopiert. Wenn der User jetzt auf A4 klickt, möchte ich wissen, dass A3 zum kopieren markiert ist. Und auch wen er jetzt noch mehrfach rumklickt ohne einzufügen, möchte ich immer noch wissen, dass A3 zum kopieren markiert ist.
Hoffe das war verständlich...
Hat jemand eine Idee?
LG Sebastian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hier meine finalen Lösungen:
A: Wenn der User Strg+C drückt

Sub Kopieren_und_protokollieren()
'Diese Sub wird mit Str+c ausgeführt. Also immer wenn der User eine Zelle kopiert.
Set varWasWurdeKopiert = Selection
Selection.Copy
End Sub

Dem Makro wurde die Tastenkombination Strg+c zugewiesen
B: Der User macht einen Rechtsklick und wählt dann im Kontextmenu den Befehl kopieren aus

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Call Kopieren_und_protokollieren_2
End Sub

Sub Kopieren_und_protokollieren_2()
'Diese Sub wird ausgeführt, bevor der User einen Rechtsklick macht und dann möglicherweise auf  _
kopieren klickt.
Set varWasWurdeKopiert = Selection
End Sub

Im SeletionChange dann auf CutCopyMode = 1 prüfen (klappt für A und B):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = 1 Then
Msgbox varWasWurdeKopiert.Address
End If

Jetzt ist lediglich die Kopierfunktion, wenn der User über das normale Menü/Ribbons bzw. den Schnellzugriff geht noch nicht abgefangen. Aber damit kann ich in diesem Fall leben.

Beliebteste Forumthreads (12 Monate)

CutCopyMode: welche Zellen sind markiert

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

17 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CutCopyMode: welche Zellen sind markiert

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

17 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread