Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
188to192
188to192
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

endung entfernen

Forumthread: endung entfernen

endung entfernen
09.12.2002 18:43:44
leo
hallo zusammen

also ich habe eien userform-listbox in der alle excel dateien eines ordners eingelesen werden. nun werden aber die dateine samt dateiendung .xls angezeigt. wie kann ich das unterbinden.

danke leo

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: endung entfernen
09.12.2002 18:48:44
Hajo
Hallo Leo

ein guter Ansatz wäre schon mal der Code mit dem Du die Listbox füllst zu posten.

Gruß Hajo

Re: endung entfernen
09.12.2002 18:52:58
leo
ListBox1.Clear
Dim TmpDat$
Dim i%
Application.ScreenUpdating = False
ChDir (TextBox1.text & "\")
TmpDat = Dir(TextBox1.text & "\" & "*.XLS")
Do While TmpDat <> ""
dataimport.ListBox1.AddItem TmpDat
TmpDat = Dir()
Loop
Anzeige
Re: endung entfernen
09.12.2002 18:57:45
Hajo_Zi
Hallo Leo


Option Explicit

	

Private Sub UserForm_Initialize()

	ListBox1.Clear

	Dim TmpDat$

	Dim i%

	Application.ScreenUpdating = False

	ChDir (TextBox1.Text & "\")

	TmpDat = Dir(TextBox1.Text & "\" & "*.XLS")

	Do While TmpDat <> ""

		dataimport.ListBox1.AddItem Mid(TmpDat, 1, Len(TmpDat) - 4)

		TmpDat = Dir()

	Loop

End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Hajo

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige