Hab mein Glück gestern schon probiert aber ich konnte keine passende Lösung finden.
Habe folgende Code programmiert.
Sub Daten_übertragen()
Dim wksSource As Worksheet, wksTarget As Worksheet
Dim iRow As Integer
Set wksSource = Workbooks(Thisworkbook.Name).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 dank Rainer nun gelöst worden.
Kann mir jemand einen Tip geben wie ich das mit wksTarget hinbekomme?
Diese Datei ist immer wieder eine andere und daher nicht mehr Mappe2.xls.
D.h. diese Datei muß variabel sein. Kann ich das über Application.Dialog machen?
Hab schon herumprobiert- finde aber keine Lösung.
Kann mir jemand helfen?
Bin dankbar für jeden Tip
Grüße
Najda