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

[Niko]

Hallo an alle,
irgendwo hänge ich wieder mal  …
brauch ein “bisschen Hilfe“
 
Kann mit mein Button die User Form nicht aufrufen…wo mache ich den Fehler?



  Test userform_CSV_Spezial.xlsm (Größe: 17,6 KB / Downloads: 9)

 
Kann mir mal einer dies zum Laufen bringen, so kann ich sehen wie dumm ich hängen geblieben bin.
 
Danke vorab,

   Niko

[Werner.M]

Hallo,

geh mal im VBA-Editor auf Extras - Optionen - Allgemein
dort bitte bei Unterbrechen bei Fehlern - bei jedem Fehler auswählen

Jetzt wird dir bei Start der Userform die tatsächliche Fehlerstelle im Code angezeigt.

Bei mir war die Zeile

Code:

SubFolderName = "E:\ICP-Smartmål\Ny fil fra ICP"

Das ist jetzt nicht wirklich verwunderlich, da es diesen Pfad bei mir natürlich nicht gibt.
Ändere ich die Codezeile in einen existierenden Pfad, dann öffnet sich die Userform mit den Dateien in der Listbox.

Gruß Werner

[Niko]

Ein Beispiel wie es laufen soll in der eingefügten Datei??  


Danke  im voraus

Niko

[Niko]

Code:

SubFolderName = "E:\ICP-Smartmål\Ny fil fra ICP"

Der Fehler ist nicht da...der Fehler ist 

   


habe Subfolder geändert und an mein Laptop angepasst, ohne erfolg.
Es zeigt mir dass das problem bei

Modul1:

Sub openuserform()
    UserForm2.Show
End Sub

Jeder Vorschlag wie ich meine Userform aufrufen könnte ohne probleme ist willkommen.

Danke,

  Niko

[schauan]

Hallöchen,

gehe den Code mit F8 im Einzelschritt durch und schaue, wo das UF verlassen wird...

[Heino]

Hallo,

Versuch's mal so.
Vermute du hast die 2 vergessen.

Private Sub UserForm2_Initialize()

Gruß
Heino

[Klaus-Dieter]

Hallo Nko,

im Modul des Userform findest du unter anderem dies:

Code:

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

da ist auch die Zeile, die Werner schon benannt hat. Wenn dieser Pfad auf dem Rechner nicht vorhanden ist, kommt es zum Ausstieg. Das muß nicht unbedingt die Zeile sein, die dir im VBE markiert wird. Wo hast du diesen Quelltext denn her? Bzw. was soll er bei dir bewirken?

---

@Heino,

Private Sub UserForm2_Initialize()

völlig falsch. Da das Makro im Modul des Userform steht, gehört dessen Name da nicht hin.

[Heino]

Hallo Nko,

im Modul des Userform findest du unter anderem dies:

Code:

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

da ist auch die Zeile, die Werner schon benannt hat. Wenn dieser Pfad auf dem Rechner nicht vorhanden ist, kommt es zum Ausstieg. Das muß nicht unbedingt die Zeile sein, die dir im VBE markiert wird. Wo hast du diesen Quelltext denn her? Bzw. was soll er bei dir bewirken?

---

@Heino,

völlig falsch. Da das Makro im Modul des Userform steht, gehört dessen Name da nicht hin.



Habe es gerade getestet. Bei mir geht die UF auf.

[Klaus-Dieter]

Hallo zusammen,

was ist da passiert, diesen Satz:

Habe es gerade getestet. Bei mir geht die UF auf.

habe ich nicht geschrieben, weshalb erscheint der in meinem Beitrag? Admins: bitte herausnehmen.

---

Hallo Heino,

ich weiß nicht, wie der Satz: Habe es gerade getestet. Bei mir geht die UF auf. in meinen Beitrag kommt. Gehe aber davon aus, dass du das geschrieben hast. Erstaunlicherweise kommt die Fehlermeldung tatsächlich nicht mehr, wenn man anstatt UserForm UserForm2 schreibt. Davon wird das aber nicht richtig, auch wenn dadurch der Fehler offenbar unterdrückt wird. Das Restprogramm wird jedenfalls nicht ausgeführt, denn im Listenfeld sollten ja Dateien aus dem Pfad: SubFolderName = "E:\ICP-Smartmål\Ny fil fra ICP"  gelistet werden. Wenn du dort mal einen Pfad einträgst, den es bei dir gibt, merkst du was ich meine.

[Heino]

Sorry Klaus Dieter,
das war mein Fehler.

Gruß
Heino