Hallo Leute,
meine VBA Kenntnisse lassen noch zu wünschen übrig und ich weis wirklich nicht mehr weiter.

Ich lese automatisch in einer Tabelle in „Spalte A“ fortlaufend Dateinamen aus einem bestimmten Verzeichnis ein.

Wie ist es möglich, jetzt in Spalte B immer das Wort „Dokument“ zu schreiben und gleichzeitig automatisch einen Link auf den eingelesenen Dateinamen zu setzten. (Der Link der auf dem Namen „Dokument“ liegen soll, soll immer direkt auf das „Originaldokument“, dessen Name ich in Spalte A eingelesen habe, verweisen.

Ich hoffe ich habe verständlich geschrieben ;-)

Das Makro habe ich nachstehend nur teilweise veröffentlicht, da noch weitere Schritte erleigt werden die funktionieren.

Public Sub lesen()
Dim fso As New FileSystemObject
Dim f As Folder
Dim p As File
Dim str As String
Dim aktuell As String
Dim u As UsedObjects

Set f = fso.GetFolder("E:\DATEN")

h = 0
l = 1
Do While h <> 1
If Sheets("Archiv").Cells(l, 1) = 0 Then
h = 1
Else
l = l + 1
End If
Loop
leer = l

i = leer
For Each p In f.Files
Sheets("Archiv").Cells(i, 1) = p.Name
i = i + 1
Next