Hallo Daniel,
heute bin ich schon ein wenig müde und schlecht zum Raten aufgelegt.
Also bitte hilf mir vorab bei der Übersetzung deine Begriffe und zwar
Excel-Quellformular - Eine Ansammlung von Zellen in einem Excel - Arbeitsblatt, auch als Tabelle bezeichnet
- als Bestandteil einer Excel - Mappe, wiederum (Excel)-Datei genannt.
So eine Mappe hat ggf. verflucht viele solcher Arbeitsblätter und das Makro möchte es genau wissen
(sonst muss als Ziel immer ActiveSheet herhalten und das ist schlechter Stil).
Deine "z.B." kann man(n) im Makro zwar statisch/konstant umsetzen, nur die echten Bezüge kennst nur du.
Anders kann das Makro nicht - oder es gibt eine Referenz (-tabelle) auf die so ein Makro Bezug nehmen kann.
Diese wiederum muss für jede ausgewählte Mappe gleich sein - oder?
Sub Test1()
Dim oWb As Workbook
Dim rng As Range
Application.FindFile
Set oWb = ActiveWorkbook
Set rng = oWb.Names("Vorname").RefersToRange
rng.Copy ThisWorkbook.ActiveSheet.Range("A1")
'
Set rng = oWb.Names("Bemerkungen").RefersToRange
rng.Copy ThisWorkbook.ActiveSheet.Range("C1")
'
' usw.
'
oWb.Close False
End Sub
|