wie kann ich den dateinamen der aktuellen datei ohne die endung .xls in eine variable einlesen?
mfg
Daniel
Function Dateiname_ohne_Endung() As String
Dim strDateiname As String
Dim intPosition As Integer
strDateiname = ActiveWorkbook.Name
intPosition = InStr(strDateiname, ".")
If intPosition <> 0 Then strDateiname = Left(strDateiname, intPosition - 1)
Dateiname_ohne_Endung = strDateiname
End Function