Ausgewählte Datei in ComboBox öffnen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Patrick
Davon ausgehend, dass in der ComboBox immer der vollständige Pfad + Dateiname + Dateiendung angezeigt wird...
z Bsp G:\Ordner\Datei.pdf
...dann versuch es mal so:

ActiveWorkbook.FollowHyperlink ComboBox1.Text

oder

ActiveWorkbook.FollowHyperlink Sheets("NAME")ComboBox1.Text

(es kann sein, dass der Befehl .Follow... eine ganz genaue Referenzierung benötigt. In dem Fall ersetz NAME durch den Namen der Tabelle, in dem sich die ComboBox befindet)
Hilft das?
Wenn aber in der ComboBox NUR der Dateiname (ohne Pfad) angezeigt wird...
z Bsp Datei.pdf
...dann versuch es so:

ActiveWorkbook.FollowHyperlink Left(ThisWorkbook.Path, 1) & ":\Personal Verwaltung\System\Ordner\Sonstiges\" & ComboBox1.Text

Hilft das?
Wenn alles nix hilft, dann weiß ich auch nicht weiter.
Ciao
Thorsten

Hi Patrick
Danke. Nun verstehe ich, was wann wie womit warum passieren soll.
Die Fehler, die ich erkannt habe:
Fehler 1
im Userform(ular) "SonstigesÖffnen" dieser Code:

Private Sub ButtonÖffnen_Click()
ActiveWorkbook.FollowHyperlink "F:\Personal Verwaltung\System\Ordner\Sonstiges\" & ComboBox1. _
Text
End Sub

Der Pfad beginnt mit "F:\...".
Wieso? Da die Dateien ja auf einem USB-Stick gespeichert sind, kann es ja auch fast jeder andere Laufwerksbuchstabe sein.
Deshalb...

Private Sub ButtonÖffnen_Click()
ActiveWorkbook.FollowHyperlink Left(ThisWorkbook.Path, 1) & ":\Personal Verwaltung\System\ _
Ordner\Sonstiges\" & ComboBox1.Text
End Sub

Voraussetzung ist natürlich, dass die Verzeichnisstruktur - immer - mit dem Verzeichnis "Personal Verwaltung" beginnt und mit dem Verzeichnis "Sonstiges" endet.
Fehler 2
Ich habe festgestellt, dass der ButtonKlick immer ausgeführt wird, auch dann, wenn in ComboBox gar nichts ausgewählt ist. Das führt natürlich auch zu einem Fehler.
Versuch mal diesen Code:

Private Sub ButtonÖffnen_Click()
If ComboBox1.Text = "" Then Exit Sub
ActiveWorkbook.FollowHyperlink Left(ThisWorkbook.Path, 1) & ":\Personal Verwaltung\System\ _
Ordner\Sonstiges\" & ComboBox1.Text
End Sub

Wenn in ComboBox nix ausgewählt, kannst du nun so lange auf den Button klicken, wie du willst. Es wird keine Fehlermeldung mehr angezeigt.
Die Idee von Michael würde ihc übernehmen.
In deinem Code ist der Pfad an mehreren Stellen fest vorgegeben. Wenn sich also mal in der Pfadstruktur etwas ändert, musst du - überall - wo der Pfad vorgegeben ist, alles anpassen.
Nach Michaels Idee wird der Pfad an eine globale Variable übergeben.
Und überall, wo der Pfad benötigt wird, trägst du die Variable ein.
So musst du nur noch - an nur einer Stelle - den Pfad anpassen, wenn erforderlich.
Konnten wir helfen?
Ciao
Thorsten

Option Explicit Public pfad$ Private Sub ButtonAbbrechen_Click() Unload SonstigesÖffnen End Sub Private Sub ButtonÖffnen_Click() ActiveWorkbook.FollowHyperlink pfad & ComboBox1.Text End Sub Private Sub UserForm_Initialize() pfad = Left(ThisWorkbook.Path, 1) & _ ":\bla\beispiel\Personal Verwaltung\System\Ordner\Sonstiges\" _ & ActiveSheet.Range("A1").Text & "\" ComboBox1.List = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir """ _ & pfad & "*.*"" /b /a-d /on").stdout.readall, vbCrLf), ".") End Sub

Option Explicit Public pfad$ Public hyperOk As Boolean Private Sub ButtonAbbrechen_Click() Unload SonstigesÖffnen End Sub Private Sub ButtonÖffnen_Click() If hyperOk And ComboBox1.Text "" Then ActiveWorkbook.FollowHyperlink pfad & ComboBox1.Text hyperOk = False ' oder auch auskommentieren End If End Sub Private Sub UserForm_Initialize() pfad = Left(ThisWorkbook.Path, 1) & _ ":\bla\beispiel\Personal Verwaltung\System\Ordner\Sonstiges\" _ & ActiveSheet.Range("A1").Text & "\" ComboBox1.List = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir """ _ & pfad & "*.*"" /b /a-d /on").stdout.readall, vbCrLf), ".") hyperOk = ComboBox1.ListCount > 0 ' oder so; evtl. msgbox? End Sub

Beliebteste Forumthreads (12 Monate)

Ausgewählte Datei in ComboBox öffnen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ausgewählte Datei in ComboBox öffnen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread