Thema Datum  Von Nutzer Rating
Antwort
Rot Hyperlinkstext verkürzen
 18.11.2011 10:59:51 Just
NotSolved
18.11.2011 14:40:59 Till
*****
NotSolved

Ansicht des Beitrags:
Von:
Just		 Datum:
18.11.2011 10:59:51		 Views:
2513		 Rating:
     
Antwort:
  Ja
Thema:
Hyperlinkstext verkürzen

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.

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Hyperlinkstext verkürzen
 18.11.2011 10:59:51 Just
NotSolved
18.11.2011 14:40:59 Till
*****
NotSolved