Hallo Spezialisten!
Hab da ein Problem und finde leider keine passende Lösung.
Habe folgende Code programmiert.
Sub Daten_übertragen()
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim iRow As Integer
Set wksSource = Workbooks("Mappe1.xls").Worksheets(1)
Set wksTarget = Workbooks("Mappe2.xls").Worksheets(2)
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
wksTarget.Cells(iRow, 3).Value = wksSource.Range("B9").Value
wksTarget.Cells(iRow, 4).Value = wksSource.Range("B7").Value
So weit so gut -funktioniert ja auch ohne probleme.
Jetzt habe ich aber folgendes Problem:
wksSource ist zurzeit Mappe1.xls - diese Mappe ist aber eine Dokumentvorlage und wird deshalb immer wieder unter einem neuen Namen gespeichert und somit stimmt dann Mappe1.xls nicht mehr sondern ist dann zB Kundexyz.xls und muß deshalb irgendwie variabel gehalten werden mit ActiveWorkbook ? - hab ich schon probiert, aber klappt bei mir nicht.
Dasselbe gilt für wksTarget. Das ist immer wieder eine Datei mit anderem Namen. Muß diese (immer wieder neue) Datei über Application.xlDialogs öffnen. Das heißt auch diese Datei muß variabel sein.
Hab schon herumprobiert- finde aber keine Lösung.
Kann mir jemand helfen?
Bin dankbar für jeden Tip
Grüße
Najda