Wert von Tabellenblatt kopieren

[empo]

Hallo,

ich möchte beim Betätigen einer Schaltfläche den letzten Wert von Tabellenblatt "Werte" Spalte1, in das Tabellenblatt "E get" Spalte 57 2 Zeilen unter denm letzten Eintrag kopieren. Wer kann mir helfen?

Vielen Dank  und Grüße Empo

[Crazy Tom]

Hallo

zu starten aus Tabellenblatt "Werte"

Code:

Sub test()
   Dim lngLetzteQuelle As Long
   Dim lngZiel As Long
   lngLetzteQuelle = Cells(Rows.Count, 1).End(xlUp).Row
   With Sheets("E get")
       lngZiel = .Cells(.Rows.Count, 57).End(xlUp).Row + 2
       .Cells(lngZiel, 57).Value = Cells(lngLetzteQuelle, 1).Value
   End With
End Sub

MfG Tom