Hallo,
zunächst würde dir dein Code nur die Nummer der letzten Zeile bereitstellen. Ich hatte aber verstanden, dass der Wert übertragen werden soll. Das würde dann so klappen:
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
'Wert merken
LetzteZeileD = ActiveCell.End(xlUp)
'Zieltabelle bestücken
Sheets("Auswertung").Select
Range("D7").Value = LetzteZeileD
Gibt es immer noch Probleme, dann bitte Excel-Version benennen! Mein Code ist unter 2013 getestet.!
Gruß Codo
|