Supportnet / Forum / Tabellenkalkulation
Erstellung von Hyperlinks zu allen Dateien in einem Ordner
Frage
hallo zusammen
ich möchte gerne ein makro schreiben, mit dem ich mir hyperlinks erstellen kann zu allen dateien, die sich in einem Ordner (und dessen unterordner) befinden.
ist sowas möglich?
gruss Richi
Antwort 1 von coros
Hallo Richi,
nachfolgendes Makro sollte das machen, was Du Dir vorgestellt hast.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Ich hoffe, Du meintest das so.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach.
Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
nachfolgendes Makro sollte das machen, was Du Dir vorgestellt hast.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Dim Obj As Object
Dim Dateien As Object
Dim Durchläufe As Object
Dim Dateityp As Object
Sub Auflistung_start()
Dim Verzeichnis As String
Dim i As Integer
Verzeichnis = InputBox("Bitte Pfad der Ausflistung eingeben", "Pfadeingabe...")
If Verzeichnis = "" Then Exit Sub
On Error GoTo Ende
For i = 1 To Worksheets.Count
If Sheets(i).Name = "Auflistung" Then
Application.DisplayAlerts = False
Sheets(i).Delete
Application.DisplayAlerts = True
Exit For
End If
Next
With Worksheets.Add
.Name = "Auflistung"
End With
Set Obj = CreateObject("Scripting.FileSystemObject")
Set Dateien = Obj.getfolder(Verzeichnis)
Auflistung
Ende:
End Sub
Sub Auflistung()
Application.ScreenUpdating = False
Dim i As Integer
For Each Dateityp In Dateien.Files
Sheets("Auflistung").Cells(Sheets("Auflistung").Range("A65536").End(xlUp).Offset(1, 0).Row, 1).Hyperlinks.Add _
Anchor:=Sheets("Auflistung").Cells(Sheets("Auflistung").Range("A65536").End(xlUp).Offset(1, 0).Row, 1), Address:= _
Dateityp.Path, TextToDisplay:=Dateityp.Path
Next
For Each Durchläufe In Dateien.subfolders
Set Dateien = Durchläufe
Auflistung
Next
End Sub
Ich hoffe, Du meintest das so.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach.
Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.