In meiner Listbox der Userform lese ich Dateinamen ein. (funktioniert auch mit untenstehendem Code)
Nur das Problem ist das Datei Endung .html auch in die Listbox eingelesen wird.
Frage :
Wie kann ich die Dateinamen ohne Endung .html in die Listbox der Userform einlesen?
Beispiel: Rambo.html es sollte aber nur Rambo in der Listbox stehen.
Private Sub UserForm_Initialize() Dim objFile As Object Dim FileSystem As Object Top = -2 Set FileSystem = CreateObject("Scripting.FileSystemObject") Dim objFolder As Object Set objFolder = FileSystem.GetFolder("D:\HtmlDateienExcel") For Each objFile In objFolder.Files Lst_Treffer.AddItem objFile.Name '''''' ' Lst_Treffer = Name der Listbox Next objFile Lst_Treffer.ListIndex = 1 End SubDanke
Gruß
Oraculix