Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
Anzeige

40 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige