Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 09:22:11
Wenn Istleer über mehrere Blätter
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzeigetext eines Links kürzen

Anzeigetext eines Links kürzen
16.11.2017 09:01:00
Claus
Hallo Excelianer,
sehr häufig habe ich links auf Exceldateien (in einer Excelübersicht), deren Anzeigetext ich kürzen möchte, und zwar auf den Dateinamen. Davor hängt immer ein langer Pfad über mehrere Verzeichnisebenen. Die Adresse des links soll nicht geändert werden, nur das was in der Zelle angezeigt wird.
Beispiel:
\\Entwicklung01\Entwicklung\Variantenanlage\Schlagbohrmaschinen\VA offen\6blablabla_CN.xlsm
soll gekürzt werden auf:
6blablabla_CN.xlsm
Liebe Grüße, Claus

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anzeigetext eines Links kürzen
16.11.2017 09:19:22
UweD
Hallo
per makro....
Sub Makro2()
    Dim TB As Worksheet, HL
    Set TB = Sheets("Tabelle1")
    
    For Each HL In TB.Hyperlinks
        If Dir(HL.TextToDisplay) <> "" Then 'Datei existiert 
            HL.TextToDisplay = Dir(HL.TextToDisplay) 'Namen extrahieren 
        End If
    Next
End Sub

LG UweD
Anzeige
AW: Anzeigetext eines Links kürzen
16.11.2017 09:34:50
Claus
Hallo Uwe,
prima, vielen Dank.
Verstehe ich das richtig? - dieser Makro macht das für alle in der aktuellen Datei existierenden Hyperlinks? Das wäre mir nämlich zu viel - es soll nur in der Zelle passieren wo der Cursor grade steht. Ich muss es nicht einmalig für sehr viele links machen, sondern immer wieder und dann nur für wenige oder einen Hyperlink. Wenn andere in diesem sheet stehenden HLs anders aussehen sollen die so bleiben. Sorry, das hätte ich gleich dazuschreiben sollen.
AW: Anzeigetext eines Links kürzen
16.11.2017 09:47:05
Daniel
Hi
- Hyperlink mit der rechten Maustaste anklicken
- im Kontextmenü "Hyperlink bearbeiten" anklicken
- im Feld "Anzuzeigender Text" den gewünschten Text eintragen.
bei Erstellung eines Hyperlinks wird bei "anzuzeigender Text" automatisch die vollständige Adresse eingetragen.
Dieser Text kann dann nachträglich geändert werden.
Gruß Daniel
Anzeige
AW: Anzeigetext eines Links kürzen
16.11.2017 11:19:42
Claus
Hallo Daniel,
vielen Dank für diesen Hinweis. Sorry... das kenne ich, das hätte ich dazuschreiben sollen. Ich will eben diese Prozedur abkürzen, indem ich einen Makro wünsche, der den Anzeigetext des links der active.cell kürzt, und zwar auf den Dateinamen ohne Pfad. (den Makro lege ich mir dann auf eine Schaltfläche im Benutzermenue und könnte das dann jeweils mit einem Klick erledigen)
Im Prinzip mit dem Makro von Uwe
16.11.2017 11:31:41
Uwe
Hi
du kannst im Prinzip den Code von Uwe verwenden.
du musst nur die Schleife so umschreiben, dass sie nicht über alle Hyperlinks auf dem Blatt läuft, sondern nur über Hyperlinks derjenigen Zellen, die du selektiert hast:
Sub Makro2()
HL As Hyperlink
For Each HL In Selection.Hyperlinks
If Dir(HL.TextToDisplay)  "" Then 'Datei existiert
HL.TextToDisplay = Dir(HL.TextToDisplay) 'Namen extrahieren
End If
Next
End Sub
Gruß Daniel
Anzeige
AW: Im Prinzip mit dem Makro von Uwe
16.11.2017 11:51:09
Uwe
Hi Daniel,
fehlt da jetzt nicht vorne etwas in der ersten Zeile? (ich dachte "Dim" - aber damit passiert bei mir auch nichts)
AW: Im Prinzip mit dem Makro von Uwe
16.11.2017 12:16:28
Uwe
Hi
ja dim fehlt, hab ich aus versehen beim löschen der nicht mehr benötigten Deklarationen mit gelöscht.
hast du auch die Zelle mit dem Hyperlink selektiert?
es werden nur Hyperlinks in den Zellen umgewandelt, die zum selektierten Zellbereich gehören.
es werden auch nur die Hyperlinks umgewandelt, die auf eine vorhandene Datei verweisen.
Gruß Daniel
AW: Im Prinzip mit dem Makro von Uwe
16.11.2017 12:39:44
Uwe
Nochmals Hallo,
Jepp! Jetzt geht es, klasse, vielen Dank.
Das Testen war von unglücklichen Zufällen geprägt. Ein mal hätte es klappen müssen, aber da hatte ich einen Link in eine Testdatei kopiert - und ausgerechnet dieser Link funktionierte nicht (da der Name der ursprünglichen Datei geändert wurde - was sehr selten vorkommt).
Dann hab ich den Code geändert, dann - nach deinem Hinweis, dass der Link auf eine vorhandene Datei verweisen muss - zwar mit einem korrekten link aber dem falschen Code getestet. Murphy eben!
Also, vielen Dank nochmal für diesen VB-Code
Anzeige
AW: Anzeigetext eines Links kürzen
16.11.2017 10:44:29
UweD
OK
wenn in der Zelle was geämdert wird, läuft das makro ab.
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- dort diesen Code einfügen
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    With Target
        If .Hyperlinks.Count > 0 Then
            If Dir(.Hyperlinks(1).TextToDisplay) <> "" Then 'Datei existiert 
                Application.EnableEvents = False
                .Hyperlinks(1).TextToDisplay = Dir(.Hyperlinks(1).TextToDisplay) 'Namen extrahieren 
            End If
        End If
    End With
    
    
    '*** Fehlerbehandlung 
    Err.Clear
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub
LG UweD
Anzeige
AW: Anzeigetext eines Links kürzen
16.11.2017 11:24:43
Claus
Hallo Uwe,
oh, das ist zu viel für mich. Ich ändere sehr oft einen link manuell ab (wie das geht weiß ich) und will eben diese Prozedur abkürzen, indem ich einen Makro wünsche, der den Anzeigetext des links der active.cell kürzt, und zwar auf den Dateinamen ohne Pfad. (den Makro lege ich mir dann auf eine Schaltfläche im Benutzermenue und könnte das dann jeweils mit einem Klick erledigen)
Wenn active.cell keinen link enthält, soll der Makro nichts machen oder auf Fehler laufen (das käme ja nur vor wenn ich einen Anwendungsfehler mache - normal löse ich diesen Makro ja aus, wenn der Cursor auf einem link steht)
Anzeige

24 Forumthreads zu ähnlichen Themen

Hyperlinks als Text
Markus

Hallo,
ich habe im Archiv bereits gesucht, aber nix passendes gefunden.
Ich schreibe eine grössere Tabelle mit vielen LINKS
Z.B. info@hammer.ch, www.meier.ch, \\pdc\LaufwerkC$, etc.
Sobald ich diese Werte in eine Tabelle schreibe, macht Excel sofort einen Hyperlink daraus.
W...
15.01.2009 08:18:00
Thread-ID: 1039886
8 Beiträge
Anzeige
Hyperlink zu Dateien mit variablem Namen
Phil

Hallo Zusammen,
leider habe ich keine nahe zu keine Erfahrung mit Excel und probiere nun schon seit zwei Tagen ein passendes Makro zu schreiben, ohne irgend einen Erfolg. Ihr seid meine letzet Hoffnung..
Mein Problem/Meine Aufgabe:
- Es wird monatlich eine Excel Tabelle erfasst mit...
11.02.2015 13:13:52
Thread-ID: 1408726
3 Beiträge
Zahlen als Text anzeigen
Andreas

Hallo zusammen,
ich habe folgende Datei :
https://www.herber.de/bbs/user/22561.xls
heruntergalden..dieses funktioniert auch.
So, jetzt habe ich eine Tabelle darum gebastelt, sodas Beträge automatisch in einen Text umgewandelt werden..
Jetzt habe ich einem Bekannten diese Li...
05.03.2015 16:24:13
Thread-ID: 1413031
9 Beiträge
Anzeige
Suchen nach Wert aus Textfeld / öffnen von Links
Links

Hallo zusammen
Ich bin was VBA angeht noch ein absoluter Neuling und benötige Hilfe bei einem Problem.
Zur Ausgangslage:
Ich möchte in unserer Firma ein System einführen mit dem man mit Hilfe eines Barcodescanners und einer Excel-Datenbank Hyperlinks öffnen kann. Das Lesen des Bar...
05.09.2017 10:59:45
Thread-ID: 1578580
10 Beiträge
Makro bei Doppelklick text als Hyperlink format
blangmantl

Hallo,
kann mir jemand den Code sagen, wie ich in einer Tabellenspalte erreiche, dass wenn man auf die Zelle in der Spalte doppelklickt, der Text darin als Hyperlink formatiert wird? in diesen Spalten stehen E-Mail Adressen, die aber ggf bei einem Import nicht als Hyperlink erkannt werden,...
20.03.2018 23:20:38
Thread-ID: 1615373
3 Beiträge
ListBox in UF Text als Hyperlink bei Doppelklick ö
Heinz

Hallo im Forum
Ich habe eine ListBox der mir gefilterte Werte anzeigt.
In der Spalte "O" habe ich Hyperlinks hinterlegt.
Diese sollten bei Doppelklick aufgerufen werden.
In der ListBox werden sie mir als Text angezeigt.
Hätte es mit den Code " Private Sub ListBox1_Click()"...
21.06.2018 19:57:30
Thread-ID: 1629944
7 Beiträge
Hyperlinks zu Worksheets mit selbem Namen aus List
christina

Hallo zusammen,
ich habe eine Datei, wo ich anhand einer Liste via Makro etliche Worksheets generiere, die den selben Namen haben wie die Zellen in der Liste
Zelle A1 = 1; Worksheet 1 = 1
Zelle A2 = 5; Worksheet 2 = 5
...
Ich möchte In der Liste, woraus ich die Worksheets ge...
17.08.2018 22:15:50
Thread-ID: 1640169
2 Beiträge
Verlinkung auf Datei mit flexibelen Dateinamen
Matthias

Hallo zusammen,
ich möchte mittels der Index-Vergleich-Kombination, Daten aus einer anderen Excel-Datei abrufen. Soweit klappt das wunderbar.
Das Problem ist nun, dass sich bei dem Dateinamen der vordere Teil (Datum) ändert.
Ich habe nun eine Formel gebastelt, welche mir den richtig...
07.05.2019 14:10:26
Thread-ID: 1691318
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
1
2
8
7
9
2
6
1
5
2
2
3
8
2
5
1
1
15
3
4
4
9
4