Dateipfad zuordnen aus Listboxeintrag
04.05.2015 14:52:21
pseher
nach meinem ersten VBA Seminar für Anfänger, möchte ich mich auch gleich mal ausprobieren.
Ich möchte aus einer Listbox eine Datei öffnen. Das ist mit einem Eintrag ohne weiteres möglich. Wenn ich jedoch verschiedenen Einträge habe die auf verschiedene Dateipfade zugreifen, werden bei einem Doppelklick auf einen Eintrag immer alle Dateien geöffnet, die in der Listbox aufgeführt werden.
Ich muß also den Eintrag einem bestimmten Pfad zuordnen.
Nun ist meine Frage wie definiere ich hier die Zuordnung?
Hier die bereits vorhandenen codes:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Workbooks.Open Filename:= _
"Y:\Beispiel\Beispiel.xlsx"
Workbooks.Open Filename:= _
"Y:\Beispiel\Beispiel1.xlsx"
Workbooks.Open Filename:= _
""Y:\Beispiel\Beispiel2.xlsx"
End Sub
und im Modul:
Option Explicit
Dim uf As UserForm2
Sub Dateianzeigen()
Set uf = New UserForm2
uf.Show (vbModeless)
With uf.ListBox1
.AddItem ("Beispiel")
.AddItem ("Beispiel1")
.AddItem ("Beispiel2")
End With
End Sub
Die Bezeichnung der Einträge stimmt nicht mit dem eigentlichen Dateinamen überein.
Dankeschön