Wert von aktiver Zeile in neue Tabelle kopieren
10.10.2007 16:17:00
aktiver
Ich trage einen Wert in Tabelle1 ein und möchte, das bei Verlassen der Zelle dieser Wert in die Zelle A1 der Tabelle2 kopiert wird. Ich weiß, das ist super simpel aber ich verzweifele langsam. Das habe ich versucht:
Private Sub Worksheet_Activate()
Worksheets("tabelle2").Cells(1, 1) = Worksheets("tabelle1").Cells(ActiveCell.Row, 1).Value
End Sub
bzw.
Private Sub Worksheet_Activate()
Worksheets("tabelle1").Cells(ActiveCell.Row, 1).Copy Worksheets("tabelle2").Cells(1, 1)
End Sub
Wichtig ist dabei, dass der Wert der Zelle der ersten Spalte der ausgewählten Zeile übertragen wird.
1000 Dank schonmal, Peter
