nachstehendes Makro funktioniert hervorragend, wenn die Quell- und die Zieldatei geöffnet sind. Jetzt hat sich aber die Voraussetzung für das Makro dahingehend geändert, dass die Quelldatei jedes Mal einen anderen DAteinamen hat, geöffnet wird und dass dann die Inhalte der (immer gleichen) Zellen in die Zieldatei übertragen werden müssen.
Sub Eintragen()
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim iRow As Integer
Set wksSource = Workbooks("Mappe1.xls").Worksheets(5)
Set wksTarget = Workbooks("Mappe2.xls").Worksheets(1)
iRow = wksTarget.Cells(Rows.Count, 1).End(xlUp).Row + 1
wksTarget.Cells(iRow, 1).Value = wksSource.Range("B5").Value
wksTarget.Cells(iRow, 2).Value = wksSource.Range("B8").Value
etc.
Ich "eumle" immer an der dritten Zeile herum und habe schon zig Versuche hinter mir, vielleicht kann mir einer der ExpertInnen helfen?
Besten Dank!
Karin