Liebe Excelfreunde,
wie kann ich einen eingelesenen Dateinamen um die Stellen der Dateiendung kürzen?
Statt:
DN = ActiveWorkbook.Name '(Ergebnis "Test.xls")
gewünschtes Ergebnis ist nur das Wort "Test"
Gruß Manfred
Hallo,
so müsste es gehen.
DN = Left$(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".xls") - 1)
Gruß
Tino
ist ja noch besser - Danke (owT)
06.05.2008 15:03:00
Manfred
AW: ist ja noch besser - Danke (owT)
06.05.2008 15:06:37
Uwe
Hi,
ist man so:
DN = Left(ActiveWorkbook.Name, InStr(1, ActiveWorkbook.Name, ".") - 1)
nicht noch mehr "auf der sicheren Seite", falls es mal 'ne andere Endung ist?
Gruß
Uwe
(:o)
AW: ist ja noch besser - Danke (owT)
06.05.2008 15:10:00
Tino
Hallo,
aber bei Mapp.e1.xls ist es auch vorbei.
Gruß
Tino
AW: ist ja noch besser - Danke (owT)
06.05.2008 15:16:18
Rudi
hallo,
dann eben ab xl2000 mit InstrRev.
AW: genau so ist es- oT
06.05.2008 15:21:00
Tino
.
Anzeige
AW: ist ja noch besser - Danke (owT)
06.05.2008 16:53:00
Andi
Hi,
dann such doch mit InStrRev nach dem ersten Punkt von rechts.
Schönen Gruß,
Andi