Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1624to1628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ordner mit Schaltfläche für Name öffnen

Ordner mit Schaltfläche für Name öffnen
18.05.2018 07:47:09
Luca
Hallo zusammen!
Ich versuche über eine Schaltfläche einen Ordner im Explorer zu öffnen. Problem ist: Der Pfad ist bis zu einer gewissen Stelle immer der Selbe, der Unterordner jedoch nicht. Möchte dies über ein Eingabefeld für den Unterordner lösen. Der Unterordner entspricht einer Artikelnummer. Die Eingabe sollte sich dann ans Ende des Pfades "hängen" und den Ordner im Explorer öffnen. Beim Klicken auf die Schaltfläche sollte also zuerst das Eingabefeld erscheinen, wo man den Unterordner (die Artikelnummer) eingibt und mit "Ok" sich der Ordner öffnen. Die Information muss nicht in die Arbeitsmappe überführt werden oder gespeichert werden, es geht nur darum, schnell den entsprechenden Unterordner (es sind weit über 2000) zu erreichen.
Habe mit Ausprobieren bereits Folgendes zusammengekriegt:
Sub Schaltfläche_Ordneröffnen()
Dim Pfad, Eingabe As String
Pfad = "i:\beispiel\ordner\"
Eingabe = InputBox("Nummer eingeben", "Ordner öffnen")
Shell "explorer.exe" & Pfad & Eingabe
End Sub
Das Eingabefeld funktioniert genau so wie gewünscht, doch es fehlt noch der "Übergang" zum Öffnen im Explorer.
Danke und Gruss,
Luca

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Schreibe es mal...
18.05.2018 08:07:55
Case
Hallo, :-)
... so: ;-)
Shell "explorer.exe " & Pfad & Eingabe, vbNormalFocus
Servus
Case

AW: Schreibe es mal...
18.05.2018 08:38:19
Luca
Hallo Case
Vielen Dank für die Antwort. Das habe ich bereits ausprobiert. Es zeigt allerdings immer einen Laufzeitfehler "53" an "Datei nicht gefunden" doch der Pfad und die Eingabe stimmen und funktionieren, wenn direkt in den Explorer kopiert. Der Ordner existiert also, doch die Funktion kann ihn nicht finden.
AW: Schreibe es mal...
18.05.2018 08:48:45
Luca
Der Teufel liegt im Detail, ein Leerschlag zuwenig und es klappt nicht. Jetzt geht es perfekt, danke!
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige