hi flo ^^
vielleicht reicht es ja schon so :-)
gruss nighty
öffne die zieldatei und starte das makro
aus der queldatei werden die zellen B10 bis B16 gelesen
das makro ist fuer kleine Datenmengen geeignet
pfad anpassen
eventuell dateiendung .xls anpassen
Sub ZellenLesen()
For Each ZellPos In Array("B10", "B11", "B12", "B13", "B14", "B15", "B16")
Cells(ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row + 1, 3) = ExecuteExcel4Macro("'D:\Temp\" & "[" & "DeinDateiname.xls" & "]DeinTabellennamen" & "'!" & Range("" & ZellPos).Address(, , xlR1C1))
Next ZellPos
End Sub