Worksheet Selection Change
15.01.2006 15:02:42
Max
mit dem folgenden Makro schreibt Tabelle2 die Daten aus Tabelle1 mit:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("Tabelle2").Cells(1, 1).Value = Worksheets("Tabelle1").Cells(1, 1).Value
Worksheets("Tabelle2").Cells(2, 1).Value = Worksheets("Tabelle1").Cells(2, 1).Value
Worksheets("Tabelle2").Cells(3, 1).Value = Worksheets("Tabelle1").Cells(3, 1).Value
End Sub
https://www.herber.de/bbs/user/30070.xlt
Mein Problem:
Nach dem letzten Eintrag in Tabelle1 muß eine weitere Zelle
ausgewählt/markiert werden, damit der letzte Eintrag übertragen wird.
Da ich das Makro in einem Formular verwende und nicht weiß, welchen Eintrag
der Anwender zuletzt macht, muß vor oder beim Wechsel in das Ziel-Blatt noch eine beliebige Änderung im Quell-Blatt erfolgen damit auch der letzte Eintrag mitgenommen wird.
Das gleiche Problem besteht beim Löschen im Quell-Blatt.
Weiß jemand wie ich das Problem lösen kann?
Danke!
Gruß
Max
Anzeige