Excel VBA: Letzte Zeile in Spalte D ermitteln und dann in Spalte A Inhalt einfügen

[Crazy Tom]

Hallo

aus der Fragestellung ging ja auch gar nicht hervor, dass es auf einem anderen Blatt stattfinden soll
ansonsten hätte ich es in eine With-Anweisung gepackt

auch wenn es nicht unbedingt nötig ist, verwende ich gerne die Variable
denn oft kann man sie dann auch noch im weiteren Code verwenden

MfG Tom

[lupo1]

Variable: Ohne Frage sinnvoll! Meine Kritik bezog sich darauf, dass er "rumläuft", statt zu adressieren. Und wenn er dann nicht mehr weiß, wo er ist, oder wo er die Variable erstellt hat, ist das wie das Vertauschen des Medikamenten-Döschens im Altenheim.

[snb]

Code:

Sub Aufbereitung()
    Application.ScreenUpdating = False
     c00 = "G:\Dateipfad\"
     c01 = Dir(c00 & "*.xlsx")

     Do While c01 <> ""
         With GetObject(c00 & c01)
            .Range("A2:AD99").Copy Workbooks("Dateiname.xlsm").Sheets("Aggregation").Cells(Rows.Count, 4).End(xlUp).Offset(, -3)
            .Close 0
          End With
         c01 = Dir
     Loop
End Sub