Microsoft Excel

Herbers Excel/VBA-Archiv

Code abändern

    Betrifft: Code abändern von: sigi
    Geschrieben am: 01.09.2003 14:29:12

    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
    

      


    Betrifft: AW: Code abändern von: Martin Bolleter
    Geschrieben am: 01.09.2003 15:21:55

    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