04.11.2016, 14:56
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
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