Code abändern

Forumthread: Code abändern
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Code abändern

Code abändern

01.09.2003 16:29:12

sigi

Hallo Spezialisten
wie ändere ich nachfolgnden Code so ab, dass
nur der Arbeitsmappenname ohne die Order aufgeführt wird?
Danke
Gruß Sigi


Sub Einlesen()
Dim arr As Variant
Dim iCounter As Integer
ActiveSheet.Hyperlinks.Delete
Range("A2:A100").ClearContents
With Application.FileSearch
.LookIn = Range("D1").Value
.FileType = msoFileTypeOfficeFiles
.Execute
For iCounter = 1 To .FoundFiles.Count
Cells(iCounter + 1, 1).Value = .FoundFiles(iCounter)
ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(iCounter + 1, 1), _
Address:=.FoundFiles(iCounter)
Next iCounter
End With
Columns(1).AutoFit
End Sub

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code abändern

01.09.2003 17:21:55

Martin Bolleter

AW: Code abändern

01.09.2003 17:21:55

Martin Bolleter

Hallo Sigi

zB indem du alles links vom letzten Backslash abschneidest. Ich habe das mal mit folgender Funktion gemacht:


Function ExtractFN(FN$)
Dim lg%, i%
lg = Len(FN)
For i = lg To 1 Step -1
If Mid(FN, i, 1) = "\" Then Exit For
Next i
ExtractFN = Right(FN, l - i)
End Function

Du kannst deine .FoundFiles mit dieser Funktion entsprechend umwandeln.

Gruss
Martin

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!