UserForm läuft/erscheint nicht nach button drücken

[Niko]

Habe nochmal alles umgestellt wie gewünscht...doch es läuft und läuft net!


  Test userform_CSV_Spezial.xlsm (Größe: 18,12 KB / Downloads: 3)

Ist es möglich das es jemand zum laufen bringen kann?
......mit klick auf dem button...wom Userform öffnet sich!


...so kann auch ein blinder wie ich sehen und vergleichen wo der fehler lag.

Danke,
Niko      

[Klaus-Dieter]

Hallo Nico,

der Fehler liegt in der rot markierten Zeile, weil es diesen Pfad bei dir offenbar nicht gibt:

Private Sub UserForm_Initialize()
'Files in folder listed in Listbox1

Dim FSO As Object, fld As Object, Fil As Object
Dim SubFolderName As String
Dim i As Integer
    Set FSO = CreateObject("Scripting.FileSystemObject")
    SubFolderName = "E:\ICP-SmartmÃ¥l\Ny fil fra ICP"
    Set fld = FSO.GetFolder(SubFolderName)
    For Each Fil In fld.Files
    i = i + 1
    Me.ListBox1.AddItem Fil.Name

Next Fil

End Sub

[mumpel]

M.E. fehlt da auch ein Backslash. "E:\ICP-SmartmÃ¥l\Ny fil fra ICP\". Und diese komischen Zeichen nach dem M bei "Smartm" könnten ein Problem auslösen.

[Niko]

Danke allen für die Hilfe...jetzt hatte es bei mir endlich geleuchtet…
 
 
stand auf der Leitung…war wohl eine lange Leitung
 
 
Danke nochmal allen


Niko  

[Niko]

Sry, wenn ich nochmal störe
 
Habe es ein bisschen aufgepäppelt und es läuft teils.
 
UserForm erscheint wie gewünscht.
TextForm reagiert wie Gewünscht.

Import Button ist mein thema…
Wie bekomme ich in der TextBox (in der UserForm) die ausgewählte csv Datei im Arbeitsblatt 1,2,3 etc. reinkopiert?
 Der ihalt von der csv datei soll im Arbeitsblatt "Start" ab "E2" eingebunden werden


  Test userform_CSV_Spezial-1.xlsm (Größe: 24,29 KB / Downloads: 1)


Anbei die geänderte Datei: 
  Test userform_CSV_Spezial-1.xlsm (Größe: 24,29 KB / Downloads: 1)


Danke

Niko