Hallo Ralf
Vielen Dank für deine schnelle Hillfe.
Ich habe versucht das Makro zu schreiben aber scheitere bereits daran, bin noch ziemlich unerfahren aber lerne jeden Tag dazu.
Das Makro führt sich aus aber es passiert nichts, könnte es daran liegen, dass meine Daten in einer intelligenten Tabelle sind und er dort als letzte Zeile eine Leerzeile nimmt?
Ich kann auch damit leben wenn das Makro die Active.Cells nimmt, das hat aber auch irgendwie bei mir nicht funktioniert.
Was mache ich falsch?
Option Explicit
Sub DatenAnAntrag()
Dim letzteZeile As String
letzteZeile = Tabelle1.Cells(Rows.Count, "D").End(xlUp).Row
Tabelle5.Range("B25").Value = Tabelle1.Cells(letzteZeile, "D").Value
Debug.Print Now
End Sub
|