VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Gast19899	Datum: 19.10.2018 06:59:54	Views: 494	Rating:	Antwort:
Thema: Ordner finden Excel VBA
Hallo Sabina, vielen Dank für Dein Code. Der liefert mir aber nur eine Blanko MsgBox. Ich habe auch noch mal ein wenig rumgebastelt und komme auf folgende Lösung: Vielleicht schaust Du mal drüber, eventuell entdeckst Du ein Problem. Bisher läuft es recht stabil. Sub ordnersuchen() Dim sFolder Dim spath Dim Pfad Dim sordner On Error Resume Next sordner = "12345" 'ist mein Suchwort kann aber auch auf eine range verweisen spath = "\\testordner\" 'Mein bestimmtes Verzeichnis sFolder = Dir(spath & "" & sordner & "", vbDirectory) Pfad = spath & sFolder 'liefert mir den gesuchten Pfad 'ActiveSheet.Hyperlinks.Add Anchor:=Range("B9"), Address:=Pfad, _ TextToDisplay:=sFolder 'fügt den gesuchten Pfad als Hyperlink in eine Range ein End Sub Sorry ich finde leider den Code Button nicht ?) Gruß Pixxel

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen