Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Name einer importierten Datei darstellen

Forumthread: Name einer importierten Datei darstellen

Name einer importierten Datei darstellen
05.12.2004 18:38:29
Ines
Hallo zusammen,
eine Frage:
Ich importiere über VBA ASCII-Dateien in Excel-Sheets.
Nun möchte ich gerne in einer beliebigen Zelle den Dateinamen der Datei darstellen, die ich gerade importiert habe. Wie kann ich das in VBA erreichen?
Wer könnte mir weiterhelfen?
Vielen Dank.
Ines
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Name einer importierten Datei darstellen
05.12.2004 18:43:24
Josef
Hallo Ines!
Wenn du die Datei mit VBA importierst, dann hast du in deinem
Code doch irgendwo den Dateinamen!
Bei "VBA gut" wird es doch kein Problem sein, diesen in eine Zelle zu schreiben!
Gruß Sepp
AW: Name einer importierten Datei darstellen
05.12.2004 18:52:33
Ines
Richtig Sepp,
mein Problem ist jedoch, dass der gesamte Pfad in die Zelle gedrückt wird, ich will jedoch nur den Dateinamen.
Anzeige
AW: Name einer importierten Datei darstellen
05.12.2004 18:58:56
Josef
Hallo Ines!
das geht zB. so:

Sub ines()
Dim strFile As String
Dim strDatei As String
strFile = "C:\Eigene Dateien\Unterlagen\Text\meinText.txt"
strDatei = Right(strFile, InStr(1, StrReverse(strFile), "\") - 1)
MsgBox strDatei 'mit Dateierweiterung
strDatei = Left(strDatei, Len(strDatei) - 4)
MsgBox strDatei 'ohne dateierweiterung
End Sub
Code eingefügt mit: Excel Code Jeanie
Gruß Sepp
Anzeige
DANKE SEPP!!!
05.12.2004 19:08:03
Ines
DANKE, Du hast mir sehr geholfen!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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