Thema Datum  Von Nutzer Rating
Antwort
12.01.2017 11:42:45 BoBo
NotSolved
12.01.2017 11:53:36 SJ
NotSolved
13.01.2017 07:43:21 BoBo
NotSolved
Blau Pfad in einem Dialog auswählen und in Zelle schreiben
 13.01.2017 09:20:44 BoBo
NotSolved

Ansicht des Beitrags:
Von:
BoBo		 Datum:
13.01.2017 09:20:44		 Views:
712		 Rating:
     
Antwort:
  Ja
Thema:
Pfad in einem Dialog auswählen und in Zelle schreiben

Habe ein ähnlichen Code angepasst und der tut nun FAST das, was ich möchte:

ABER: Ich kriege keinen gültigen Hyperlink hin. Mit eine Formel wird der Hyperlink zwar erstellt, aber es kommt eine Fehlermeldung. Besser wäre es vermutlich mit einem Anker. Meine Versuche sind auskommentiert, da noch nicht erfolgreich. Hat jemand einen Lösungsvorschlag?

 

Sub FOLDER()
'
Dim lngCount As Long
    Dim cl As Range
    Set cl = ActiveCell
    '
Dim flder As FileDialog
Dim foldername As String
Set flder = Application.FileDialog(msoFileDialogFolderPicker)
With flder
.Title = "Bitte Ordner wählen"
.InitialFileName = "hier soll mein Startverzeichnis stehen"
.InitialView = msoFileDialogViewThumbnail
.ButtonName = "Ok"
.AllowMultiSelect = False
If .Show <> -1 Then GoTo NextCode
foldername = .SelectedItems(1)
End With
NextCode:
GetFolder = foldername
MsgBox foldername
ActiveSheet.Range("A1") = foldername
'
'ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:= _
'        objFile.Path, _
'        TextToDisplay:=objFile.Name
'
'Set flder = Nothing
End Sub

 

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

Thema Datum  Von Nutzer Rating
Antwort
12.01.2017 11:42:45 BoBo
NotSolved
12.01.2017 11:53:36 SJ
NotSolved
13.01.2017 07:43:21 BoBo
NotSolved
Blau Pfad in einem Dialog auswählen und in Zelle schreiben
 13.01.2017 09:20:44 BoBo
NotSolved