Ich muss (Berufsbedingt) eine Excel relativ schnell und mit Tablett mit vielen Daten füllen. Da kommt es immer wieder vor, dass ich vereinzelt falsche Einträge mache, bzw. Werte überschreibe.
Mittlerweile werde ich gewarnt, bevor ein Wert überschritten wird. Würde aber gerne den Wert bevor er überschrieben wird mit der Angabe der aktiven Celle in ein anderes Blatt kopieren.
ungefähr so
Tabelle1.ActiveCell.Adresse.copy Tabelle2.Range("A1").paste
Tabelle2.ActiveCell.Value.copy Tabelle2.Range("A2").paste
wobei ich den paste-Befehl in die nächste freie Zeile ansprechen will.
Jetzt ploppt beim anklicken eine beschriebenen Celle eine MsgBox Yes/No auf. Bei Yes sollte der Cut/Paste Vorgang gestartet werden.
Danke für eure Unterstützung