Daten aus anderer Datei

[Gast 123]

Hallo,    kein Problem, siehe unten

zwischen On Error Resume next und On Error Goto 0   die neu eingefügten Zeilen einfügen!  Das ist alles.
If Err > 0 Then Exit Sub habe ich noch eingefügt, wenn -keine Datei gewaehlt wir  (bei Abbruch) 

mfg  Gast 123

Code:

On Error Resume Next
Workbooks.Open Application.GetOpenFilename, Notify:=False
If Err > 0 Then Exit Sub   'Exit wenn -keine Datei- gewaehlt wurde

'Dateiname in Zelle C1 eintragen
ThisWorkbook.Sheets("Formular").Range("C1") = ActiveWorkbook.Name

On Error GoTo 0

[KarlimannIII]

Jawoll,

ein recht herzliches Dankeschön zum Abschluss. Momentan fallen mir auch kein weiteren Optimierungsmaßnahmen noch ein. Ich komm super damit klar.

Gruß K