Office: Hyperlink prüft ob Ordner vorhanden ist, ansonsten erstellen

Hallo zusammen,

wir führen für unsere Firma eine Liste in der zu verschiedenen Vorgängen Bilder in Ordnern abgelegt werden sollen. In Spalte P (ab Zeile 3) sind zu diesen Ordnern immer Hyperlinks per Formel hinterlegt:
Code:

Damit der Hyperlink geöffnet werden kann, muss der Ordner natürlich erstellt sein. Und genau das würde ich gerne per VBA prüfen und umgehen lassen.
Sprich: Klicke ich auf den Link wird geprüft ob der Ordner bereits existiert:
Wenn Ja = Ordner öffnen
Wenn Nein = Ordner erstellen und öffnen

Kennt irgendwer eine Möglichkeit dafür?

Danke und Gruß
Who.

:)

 

Hallo Who,

würde das nicht mit Hyperlinks lösen sondern beim klicken auf die Zelle eine Prozedur auslösen. Dazu gibt es das Ereignis SelectionChange im Worksheet.

In dem Feld steht dann nur der string des Pfades. Ob der Ordner dann vorhande ist kannst Du wie folgt beschrieben prüfen:

http://www.herber.de/forum/archiv/45...vorhanden.html

Ist er nicht da, dann kannst Du ihn über:
Code:

erstellen. DAbei ist es wichtig in die entwprechenden vorhandenen Ordner zu wechseln sonst wird er gerade im aktuellen ORdner erstellt.
Zurst in das LAufwerk wechseln:
Code:

Dann den Ordner
Code:

Ist der Ordner da, dann kannst Du im Code den ORdner durch FolloHyperlink öffnen.

Viele Grüße
trekking

 

Hallo trekking,

vielen Dank für deine Hilfe.
Deine Hinweise haben mir sehr geholfen und so lernt man wenigstens selbst noch was ;-) Danke.

So ganz 100% funktionierts aber noch nicht. Habe mir jetzt folgenden Code zusammensucht und -gebaut:
Code:

(Keine Ahnung wieso, aber das Forum nimmt aus dem Pfad immer die backslashes raus. Im Pfad steht jedes "-" also eigentlich für einen backslash.)

Leider funktioniert der erste FollowHyperlink nicht, auch wenn der Ordner vorhanden ist.
Deswegen springt er zum Else, erstellt den Ordner an dem Pfad, wo auch die Liste gespeichert ist (wie kann ich ein Serverlaufwerk über ChDrive anwählen?) und öffnet dann den bereits vorhandenen Ordner im richtigen Pfad.
Hast du eine Idee wie ich das korrigieren kann? Lieg ich mit meinem Code so daneben? *rolleyes.gif*

Außerdem: Kann ich festlegen, dass er bei Klick in Spalte P den Code erst ab Zeile 3 ausführt? Also wenn ich in Zeile 1 oder 2 klicke nichts passiert?

Vielen Dank und Gruß
Who.

 

Code:

 

Hallo Hasso,

na toll, das ist ja einfacher als erwartet.

Bleibt nur noch die Frage offen, wieso der untere Teil nicht richtig funktioniert mit Öffnen und Erstellen der Ordner.

Danke und Gruß
Who.

 

Hallo Who.,

so?
Code:

In einem allgemeinen Modul muss zusätzlich diese Deklarationszeile stehen:
Code:

einen Backslash erzeugst Du, indem Du 2 schreibst.

Grüße
EarlFred

 

Hallo Who,

Du kannst es noch damit versuchen. Manchmal funktioniert das DIR je nach konfiguration nicht. Die Löung geht auf alle Fälle.
Ist zwar das Access wiki, aber >99% kannst Du davon auch in Excel verwenden. Gerade das mit Dateien und Verzeichnisssen ist super.

Viel Spaß wüünscht Dir

trekking

 

Da fehlt was entscheidendes:
Code:

 

HI Who,

da fehlte wohl der link:

http://dbwiki.net/wiki/Access_Tipps_...e.2C_Laufwerke

unter Dateien/Laufwerke/Verzeichnise
(Falls der link wieder verschwindet: debwiki .net)

VG
trekking

 

Hallo zusammen und sorry für die späte Rückmeldung, ich war außerlandes ;-)

Der Code von EarlFred hat perfekt so funktioniert wie ich es brauche...jezz werd ich mich mal reinfuchsen um ihn dann auch zu verstehen. Danke dafür auf jeden Fall.

Danke auch dir trekking für den Link. Den schau ich mir mal genauer an.
In vba gibt's so viel zu lernen. Bin immer über jede Hilfe von euch dankbar. :-)