Hallo Leute,
also ich lese aus einem Verzeichnis welche ich über eine input box Abfrage alle Dateien aus und lasse mir davon Hyperlinks erstelln. Nun möchte ich aber nicht das er mir den gesamten Pfad anzeigt sondern von Links was weg schneidet.
Quellcode
Sub Auto_Open()
Dim name As String
name = InputBox("Lieber Helge Bitte gib das Verzeichnis ein")
Dim i As Long
Dim Bereich As Range
Dim Zelle As Range
verz = name
ChDir verz
Range("A:A").ClearContents
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
End With
Range("A1").Select
Set Bereich = ActiveCell.CurrentRegion
For Each Zelle In Bereich
Zelle.Hyperlinks.Add Zelle, Zelle.Value
Next Zelle
End Sub
Weiß einer Rat?
Danke im vorraus.
|