Mappen namen in excel unter vb

[Sonic2]

Workbooks.Open FileName:=xlDateiNamedererstenDatei
WorksheetnamedererstenDatei = ActiveSheet.Name
Workbookname1 = ActiveWorkbook.Worksheets(1).Name

With Workbooks
Workbookname1 = Mappe.Name
MsgBox (Workbookname1)
End With
--------------------------------------------------------------------
----------------------------------------------------------
Hallo du

ich habe eine Frage , Warum kommt da immer eine Fehlermeldung?
ich möchte den Arbeitsmappennamen einer Arbeitsmappe in der Variablen Workbookname1 speichern.


Danke dir

[MeLLe]

Original geschrieben von Sonic2
Workbooks.Open FileName:=xlDateiNamedererstenDatei
WorksheetnamedererstenDatei = ActiveSheet.Name
Workbookname1 = ActiveWorkbook.Worksheets(1).Name

With Workbooks
Workbookname1 = Mappe.Name
MsgBox (Workbookname1)
End With
--------------------------------------------------------------------
----------------------------------------------------------
Hallo du

ich habe eine Frage , Warum kommt da immer eine Fehlermeldung?
ich möchte den Arbeitsmappennamen einer Arbeitsmappe in der Variablen Workbookname1 speichern.


Danke dir
Workbookname1 = ActiveWorkbook.Name
Dann sollte das doch völlig reichen, oder?