Dateinamen in Zelle

Forumthread: Dateinamen in Zelle

Dateinamen in Zelle

16.04.2013 11:12:46

Rüdiger

Hallo,
ich habe wieder mal eine Frage.
Ich möchte in der Zelle C2 den Namen der Datei ohne die Endung stehen haben.
Wie kann das gemacht werden?
Vielen Dank schon mal an die Spezialisten.
Gruß Rüdiger

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

DeineZelle=THisworkbook.Name owT

16.04.2013 11:18:04

Matthias
achso ohne Endung ...

16.04.2013 11:31:16

Matthias
AW: Dateinamen in Zelle

16.04.2013 11:18:27

Klaus
AW: Dateinamen in Zelle

16.04.2013 11:25:03

haw
Viele Dank Heinz TOP!

16.04.2013 11:57:12

Rüdiger
AW: Viele Dank Heinz TOP!

16.04.2013 12:05:57

Klaus
AW: Dateinamen in Zelle

16.04.2013 12:12:03

Erich
und nochmal eine kurze VBA Lösung

16.04.2013 12:31:37

Matthias

DeineZelle=THisworkbook.Name owT

16.04.2013 11:18:04

Matthias

achso ohne Endung ...

16.04.2013 11:31:16

Matthias

Hallo
Hatte das mit der Endung nicht berücksichtigt
Ich vermute mal immer als Endung ".xls"
deshalb -4 am Ende

Range("C2") = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)

Gruß Matthias

AW: Dateinamen in Zelle

16.04.2013 11:18:27

Klaus

Hi Rüdiger,
die Archivsuche nach "Dateiname in Zelle" ergibt 3.500 Treffer.
Grüße,
Klaus M.vdT.

AW: Dateinamen in Zelle

16.04.2013 11:25:03

haw

Hallo Rüdiger,
hier eine Lösung, allerdings mit Dateiendung:
=TEIL(ZELLE("Dateiname";$A$1);FINDEN("[";ZELLE("Dateiname";$A$1))+1;FINDEN("]";ZELLE("Dateiname"; $A$1))-FINDEN("[";ZELLE("Dateiname";$A$1))-1)
Gruß
Heinz

Viele Dank Heinz TOP!

16.04.2013 11:57:12

Rüdiger

Vielen Dank Heinz,
hab herausgefunden, wenn du die letzte Zahl die -1 im Formular auf -5 änderst, kommt keine Endung!
DANKE!

AW: Viele Dank Heinz TOP!

16.04.2013 12:05:57

Klaus

die -1 im Formular auf -5 änderst
Ausserdem ist es dann fehlerhaft, wenn das Dateiformat mal .XLS statt XLSX oder XLSM sein sollte ...
Besser: (og. Formel in A2)
=Links(A2;finden(".";A2)-1)
oder als Monsterformel ohne Hilfszelle:
=Links(=TEIL(ZELLE("Dateiname";$A$1);FINDEN("[";ZELLE("Dateiname";$A$1))+1;FINDEN("]"; ZELLE("Dateiname"; $A$1))-FINDEN("[";ZELLE("Dateiname";$A$1))-1)
;finden(".";=TEIL(ZELLE("Dateiname";$A$1);FINDEN("[";ZELLE("Dateiname";$A$1))+1;FINDEN("]";ZELLE("Dateiname"; $A$1))-FINDEN("[";ZELLE("Dateiname";$A$1))-1)
)-1)
wenn du niemals Dateien im XLS Fomat nutzt, ist das natürlich nicht nötig.
Grüße,
Klaus M.vdT.

AW: Dateinamen in Zelle

16.04.2013 12:12:03

Erich

Hi Rüdiger,
probier mal die Formel in B3:

	A	B
1	F:\exc\www\2007\[Dateiname_In_Zelle2.xlsm]Tabelle1	Pfad + Datei + Register
2	Dateiname_In_Zelle2.xlsm	Dateiname mit Endung
3	Dateiname_In_Zelle2	Dateiname ohne Endung

Formeln der Tabelle

Zelle	Formel
A1	=ZELLE("Dateiname";A1)
A2	=TEIL(ZELLE("Dateiname";A1); FINDEN("[";ZELLE("Dateiname";A1))+1; FINDEN("]";ZELLE("Dateiname";A1))-FINDEN("[";ZELLE("Dateiname";A1))-1)
A3	=TEIL(ZELLE("Dateiname";A1); FINDEN("[";ZELLE("Dateiname";A1))+1; FINDEN("]";ZELLE("Dateiname";A1))-FINDEN("[";ZELLE("Dateiname";A1))-6+ (LINKS(RECHTS(TEIL(ZELLE("Dateiname";A1); FINDEN("[";ZELLE("Dateiname";A1))+1; FINDEN("]";ZELLE("Dateiname";A1))-FINDEN("[";ZELLE("Dateiname";A1))-1); 4); 3)=".xl"))

Die kann .xls und .xlsm und ...
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

und nochmal eine kurze VBA Lösung

16.04.2013 12:31:37

Matthias

Hallo

MsgBox Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)

Gruß Matthias

Forumthread: Dateinamen in Zelle

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread