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
|