Ausgangs- und Zielzelle markieren

Computer: Software & Programmierung Office Software
1

Hallo Experten,
ich möchte in einer Tabelle Zellen innerhalb einer Zeile verschieben (kopieren geht auch). In der Zielzelle soll ein Verweis auf die Ursprungszelle erfolgen, also eine Art „Spur zum Vorgänger“ ohne Formel.
Am einfachsten gänge es natürlich, wenn ich die Ausgangszelle farbig markiere und kopiere. Vieleicht gibt es aber eine professionellere Lösung.
Freundliche Grüße aus dem Osten!
Matthias

2

Besser zur Erläuterung: Ich erhalte eine Tabelle, verschiebe darin einzelne Zellen und möchte dem Absender zeigen, welche Zellen ich verschoben habe!

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Besser zur Erläuterung: Ich erhalte eine Tabelle, verschiebe
darin einzelne Zellen und möchte dem Absender zeigen, welche
Zellen ich verschoben habe!

Hi Matthias,
Makro „start“ aktiviert das Ganze, makro „ende“ deaktiviert es wieder.
Je nach Modus, Auscchneid oder Kopier, wird die Zielzelle bzw Zielbereich unterschiedlich farbig.

Option Explicit

Sub kopier()
Selection.Interior.ColorIndex = 3
Selection.Copy
End Sub

Sub verschieb()
Selection.Interior.ColorIndex = 3
Selection.Cut
End Sub

Sub einfüg()
Dim Farbe As Byte
ActiveSheet.Paste
Farbe = IIf(Application.CutCopyMode = xlCopy, 4, 5)
Range(ActiveCell, ActiveCell.Offset(0, Selection.Cells.Count - 1)).Interior.ColorIndex = Farbe
Application.CutCopyMode = False
End Sub

Sub start()
Application.OnKey "^c", "kopier"
Application.OnKey "^v", "einfüg"
Application.OnKey "^x", "verschieb"
End Sub

Sub ende()
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "^x"
End Sub

Gruß
Reinhard