Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1048to1052
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

VBA - Unterordner mit Hyperlink

VBA - Unterordner mit Hyperlink
17.02.2009 13:15:00
Tobias
wie kann ich per VBA alle unterordner mit hyperlink in spalte A auflisten?
(ich brauche nur die direkten unterordner, also keine unter-unterordner)
(das problem mit manuell gesetzten RELATIVEN hyperlinks ist, das die auf System A funktionieren, aber auf Rechner B wieder neu gesetzt werden - auf diesen unbrauchbaren pfad: E:\Dokumente und Einstellungen\Administrator\Anwendungsdaten\Microsoft\Excel\...)

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Unterordner mit Hyperlink
17.02.2009 13:20:00
Tobias
Ok, ich habs jetzt soweit, das die unterordner ausgelesen werden...
mit untenstehender funktion und Call ShowFolderlist (x)
... aber wie kriege ich die hyperlinks ?
----------------

Sub MakeTheList()
Dim x As String
x = ThisWorkbook.Path
Call ShowFolderList(x)
End Sub


----------------------


Function ShowFolderList(folderspec)
Dim fso, f, f1, s, Sf, n
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set Sf = f.SubFolders
n = 1
For Each f1 In Sf
s = f1.Name
' Cells(n, 1).Value = s
Cells(n, 1).Value = s
n = n + 1
Next
ShowFolderList = s
End Function


Anzeige
AW: VBA - Unterordner mit Hyperlink
17.02.2009 13:55:00
Renee
Hi Tobias,
Ersetze diesen Codeteil:

For Each f1 In Sf
Cells(n, 1).Formula = "=HYPERLINK(" & _
"""" & folderspec & "\" & f1.Name & "\""," & _
"""" & f1.Name & """)"
n = n + 1
Next


GreetZ Renée

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige