Supportnet / Forum / Tabellenkalkulation
Dateinamen aufrufen
Frage
Hallo liebe Excelgemeinde,
wie kann ich den Namen der aktuell geöffneten Exceldatei in einer Zelle eines Blattes dieser Datei anzeigen lassen???
Vielen Dank im Voraus für Eure Mühen!!!
Gruß, mac_d
Antwort 1 von rainberg
Hallo mac,
das macht dieser Enzeiler.
Private Sub Workbook_Open()
ActiveWorkbook.Sheets(1).Range("A1") = ActiveWorkbook.Name
End Sub
Kopiere den Code in Das Codefenster von DieseArbeitsmappe.
Der Dateiname wird dir in A1 der ersten Tabelle angezeigt.
Gruß
Rainer
das macht dieser Enzeiler.
Private Sub Workbook_Open()
ActiveWorkbook.Sheets(1).Range("A1") = ActiveWorkbook.Name
End Sub
Kopiere den Code in Das Codefenster von DieseArbeitsmappe.
Der Dateiname wird dir in A1 der ersten Tabelle angezeigt.
Gruß
Rainer
Antwort 2 von mac_d
Vielen Dank für Dein Beispiel!!
Gibt es eine Möglichkeit die Dateiendung .xls nicht mit zu übernehmen??
Danke+Gruß
Gibt es eine Möglichkeit die Dateiendung .xls nicht mit zu übernehmen??
Danke+Gruß
Antwort 3 von rainberg
Hallo mac,
das sieht dann so aus:
Gruß
Rainer
das sieht dann so aus:
Option Explicit
Private Sub Workbook_Open()
Dim strNam As String
strNam = ActiveWorkbook.Name
ActiveWorkbook.Sheets(1).Range("A1") = Left(strNam, Len(strNam) - 4)
End Sub
Gruß
Rainer
Antwort 4 von mac_d
Super!!!!!
Vielen Dank für die schnelle Hilfe!!!!!
Gruß, mac_d
Vielen Dank für die schnelle Hilfe!!!!!
Gruß, mac_d