Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Dateinamen ohne Endung

Dateinamen ohne Endung
28.07.2004 19:52:35
Franz
Hallo Fachleute,
ich suche den Namen einer Datei komplett mit Pfad, jedoch ohne ".xls". Ich erreiche das damit:
myName = Replace(ThisWorkbook.FullName, Right(ThisWorkbook.FullName, 4), "")
Schaut mir nur etwas umständlich aus...!!! Ist da okay so, oder gibt es dafür eine geschicktere Lösung?
Vielen Dank im Voraus und Grüße
Franz
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen ohne Endung
Ulf
Auch nicht beseer oder kürzer:
Option Explicit

Sub ohne()
Dim n As String
n = ThisWorkbook.FullName
n = Left(n, Len(n) - 4)
MsgBox n
End Sub

Ulf
Ulf, du bist schneller als meine Aktualisierung oT
28.07.2004 21:06:05
Björn
AW: Dateinamen ohne Endung
28.07.2004 21:00:34
Björn
Hallo Franz,
alternativ:
myname = Left(ThisWorkbook.FullName, Len(ThisWorkbook.FullName) - 4)
Ist aber auch nicht wirklich kürzer.
Gruß
Björn
Anzeige
Ok. Danke an Ulf und Björn!! o.T.
28.07.2004 21:04:54
Franz
Danke für die Rückmeldung - o. T.
28.07.2004 21:07:34
Björn
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige