Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1196to1200
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
Dateinamen auslesen ohne Dateiendung!
Karel
Hallo Leute,
mit unterstehende code lesen ich dateinamen aus mit dateiendung, was muss ich ändere sodas dateiendung nicht mit ausgegeben wird.
also nicht so
abc.xx
aber so
abc
'Dateien auslesen
Private Sub CommandButton1_Click()
Dim zeile As Long, fn As String
Dim Pfad As String, Muster As String
Range("B4:B65536").ClearContents
zeile = 4
Pfad = Range("B1")
If Right(Pfad, 1)  "\" Then Pfad = Pfad & "\"
Muster = Range("B2")
fn = Dir(Pfad & Muster)
Do While fn  ""
Cells(zeile, 2) = fn
zeile = zeile + 1
fn = Dir()
Loop
End Sub
grüsse
Karel

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Dateinamen auslesen ohne Dateiendung!
07.02.2011 16:26:20
Hajo_Zi
Hallo Karel,
Du liest den aus einer Zelle aus?
Wir sehen nicht was in der Zele steht. Stelle mit Instr() fest wo der Punkt ist und dann Leftt mit dieser Zahl-1

AW: Dateinamen auslesen ohne Dateiendung!
07.02.2011 16:27:07
Josef

Hallo Karel,
Cells(zeile, 2) = Left(fn,InstrRev(fn,".")-1)


Gruß Sepp

Anzeige
AW: Dateinamen auslesen ohne Dateiendung!
07.02.2011 16:33:41
Karel
Danke Hajo und Sepp
Grüße
Karel

9 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige