Hallo zusammen,
ich möchte aus der Tabelle Rohdaten die Spalte D dynamisch den letzten Wert auslesen und diesen letzten Wert dann in die Tabelle Auswertung auf D7 erscheinen lassen.
Leider funktioniert der code nicht ganz und sagt überlauf, ich weiß aber nicht warum.
Jemand ne Idee?
Sub dynamisch()
Dim LetzteZeileD As Integer
'Arbeitsblatt auswählen
Sheets("Rohdaten").Select
'letzte Spalte in D auswählen
Range("D1048576").Select
'Zurückspringen zur letzten befüllten Zeile
ActiveCell.End(xlUp).Select
LetzteZeileD = ActiveCell.Row
Sheets("Auswertung").Select
Range("D7").Value = LetzteZeileD
End Sub
|