Hallo,

ich habe folgenden Code für den ich die Fehlermeldung "Laufzeitfehler 424 Objekt erforderlich" erhalte, Leider weiss ich nicht warum. Die Funktion sollte mir ja eigentlich genau den namen den Workbooks zurückgeben oder?

beste grüße

Manuel

Sub tester123()
Dim wb As Workbook
Set wb = my_FileName ' Objekt erforderlich

Dim ws As Worksheet
For Each ws In wb.Worksheets
Tabelle5.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = ws.CodeName
Next


End Sub


Function my_FileName() 'geht das irgendwie als Funktion?
Dim my_Filenam As Variant

my_FileName = Application.GetOpenFilename(FileFilter:="ExcelFiles,*.xl*;*.csv*;*.xm*;*.xls*")
Debug.Print (my_FileName)

If my_FileName <> False Then
    Workbooks.Open Filename:=my_FileName
End If
End Function