Hallo zusammen,
mit diesem Code lade ich die Dateien des gewünschten Verzeichnisses in die Listbox
Sub UserForm_click()
Dim Datei As String
Datei = Dir("c:\tempword\*.*")
If Datei = "" Then Exit Sub
Do
If InStr(Datei, ".xx") = 0 Then ListBox1.AddItem Datei
Datei = Dir()
Loop Until Datei = ""
End Sub
Wie kann ich per Doppelklick eine gwünschte Datei auswählen und per Word starten.
Wie kann ich Doppelmarkierungen verhindern ?
Vielen Dank im voraus
mit diesem Code lade ich die Dateien des gewünschten Verzeichnisses in die Listbox
Sub UserForm_click()
Dim Datei As String
Datei = Dir("c:\tempword\*.*")
If Datei = "" Then Exit Sub
Do
If InStr(Datei, ".xx") = 0 Then ListBox1.AddItem Datei
Datei = Dir()
Loop Until Datei = ""
End Sub
Wie kann ich per Doppelklick eine gwünschte Datei auswählen und per Word starten.
Wie kann ich Doppelmarkierungen verhindern ?
Vielen Dank im voraus