Dateiname ohne Endung an Variable übergeben

Um den Dateinamen der aktiven Datei incl. der Endung bzw. mit Dateipfad und Endung zu ermitteln nutze ich dies:Sub dateiname() MsgBox ActiveWorkbook.Name 'Dateiname mit Extension MsgBox ActiveWorkbook.FullName 'Dateiname mit Endung und Pfad End Sub

Um einen Dateinamen ohne die Endung an eine Variable zu übergeben nutze ich diesen Code:Sub Dateiname_ohne_Dateiendung_ermitteln() Dim datname As String datname = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) msg = MsgBox("Der Dateiname ohne Endung lautet: " & Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)) End Sub

Die InStrRev-Funktion gibt die Position eines Vorkommnisses einer Zeichenfolge in einer anderen Zeichenfolge vom Ende der Zeichenfolge gesehen an. So kann ich auch bei Dateinamen die im Namen einen weiteren Punkt enthalten (auch wenn das eigentlich nicht sein sollte!) über diese Funktion den Dateinamen ohne Endung auslesen.Share on Facebook

Read more http://vba-codeschnipsel.de/dateiname-ohne-endung-an-variable-ubergeben/