Links kürzen

Bild

Betrifft: Links kürzen
von: Stiff M.
Geschrieben am: 29.07.2015 15:02:12

Hallo zusammen!
Wie kürze ich automatisiert Links?
Also von C:\Users\irgendeinname\Pictures\Camera\bilder.jpg
auf bilder.jpg?
liebe grüße, Steff

Bild

Betrifft: Automatisierte Kürzung mit VBA, ...
von: Luc:-?
Geschrieben am: 29.07.2015 15:15:26
…Steff;
aber da es sich um Links handelt, wirst du wohl eher nur die Anzeige des Links verkürzen wollen, nicht den Link selbst. Das kann man bei beiden Link-Varianten einstellen bzw angeben. Mit VBA muss dann nur die richtige Eigenschaft mit dem AnzeigeText belegt wdn. Den kann man per VBA ggf auch aus dem Link-Text selbst erzeugen: AnzVar = Split(LinkText, "\"): AnzVar = AnzVar(UBound(AnzVar))
Dafür muss AnzVar As Variant deklariert wdn.
Gruß, Luc :-?

Besser informiert mit …

Bild

Betrifft: AW: AnzVar As Variant
von: Stiff M.
Geschrieben am: 29.07.2015 15:25:06
Hey,
Danke für die tolle Antwort.
Du hast ja recht, die Links sollen ihre funktionalität behalten dürfen ;-))))
Also das mit dem als as variant deklarieren war mir jetzt zu hoch...
kannst du das bitte beispielhaft erklären?
Bei uns sollen Vorlagen für Dokumente an die Mitarbeiter gehen.
Ich habe die alle mit Hilfe von Excel verlinkt. Da es ca. 50 Vorlagen sind die immer mal wieder aktualisiert werden (das ist für mich nicht das Problem)
sollte ja auch in Zukunft das einkürzen auf das Notwendige schnell erfolgen können.
Daher frage ich ...sonst könnte ich das auch händisch machen.
liebe Grüße, steff!

Bild

Betrifft: Hat sich erledigt, danke!!!
von: Stiff M.
Geschrieben am: 29.07.2015 15:30:49
Hallo Luc,
Vielen Dank für die Hilfe, die Lösung war so nah!
Danke nochmal, liebe Grüße, steff!

Bild

Betrifft: AW: Links kürzen
von: EtoPHG
Geschrieben am: 29.07.2015 15:21:10
Hallo Steff,
Versuchs mal so, für das Aktive Tabellenblatt (Code in ein Modul):

Sub ShortenLinks()
    Dim hyl As Hyperlink
    Dim tToDisp As String
    If ActiveSheet.Type <> xlWorksheet Then Exit Sub
    For Each hyl In ActiveSheet.Hyperlinks
        tToDisp = hyl.TextToDisplay
        If InStrRev(tToDisp, "\") > 0 Then
            hyl.TextToDisplay = Right(tToDisp, Len(tToDisp) - InStrRev(tToDisp, "\"))
        End If
    Next hyl
End Sub
Gruess Hansueli

Bild

Betrifft: AW: Sub ShortenLinks()
von: Stiff M.
Geschrieben am: 29.07.2015 15:26:51
Hey Hans!
Das habe ich zu spät gesehen und die letzte Antwort schon wieder als aktiv gesetzt...sorry dafür. Ich probiere das direkt mal aus.
Vielen Dank dir!
lg Steff!

Bild

Betrifft: Links kürzen
von: Stiff M.
Geschrieben am: 29.07.2015 16:52:17
Hey Hans,
Das habe ich getestet...hat leider nicht funktioniert.
Ich habe es auch schon mit dieser Methode probiert:
http://www.excel-ticker.de/vollstaendige-dateinamen-per-formel-in-pfad-und-dateiname-trennen/
Das hat auch funktioniert.
Eine VBA Methode wäre mir natürlich lieber...
aber leider tut sich da nichts, wenn ich das Modul ausführe.
Hast du eine Idee woran es liegen könnte, das dein Code den HL nicht einkürzt?
Liebe Grüße

Bild

Betrifft: AW: Links kürzen
von: EtoPHG
Geschrieben am: 29.07.2015 17:02:48
Hallo Steff
Zitat: Das habe ich getestet...hat leider nicht funktioniert.
Ist leider keine Basis auf der ich eine Analyse durchführen kann.
Stell eine Beispielmappe zur Verfügung, mit Links (wie du sie hast!), und meinem Code, wie du ihn in dieser hochgeladenen Mappe getestet hast. Schliesslich kann ich nicht (mehr) hellsehen!
Gruess Hansueli

Bild

Betrifft: AW: Links kürzen
von: Stiff M.
Geschrieben am: 30.07.2015 08:23:50
Guten Morgen Hans,
Hier ist die Datei.
https://www.herber.de/bbs/user/99162.xlsm
Liebe Grüße, Stiffchen!

Bild

Betrifft: AW: Links kürzen
von: EtoPHG
Geschrieben am: 30.07.2015 08:49:14
Hallo Steff,
Hättest du von Anfang gesagt, dass die Hyperlinks per Formel erstellt sind, hätte ich mir die Mühe mit dem Code sparen können :-( ! Die Formeln müssen entsprechend so lauten:

=HYPERLINK(A1;TEIL(A1;VERWEIS(9^9;FINDEN("\";A1;ZEILE(A:A)))+1;200))

Gruess Hansueli

Bild

Betrifft: AW: Hansueli
von: Stiff M.
Geschrieben am: 30.07.2015 11:05:32
wönderfülly from yöu ;-)

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Links kürzen"