Ordner mit Schaltfläche für Name öffnen
18.05.2018 07:47:09
Luca
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
Danke und Gruss,
Luca
Anzeige