Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Hyperlink in Zelle ändern
#1
Hallo,

durch einen Excel-Absturz habe ich in ca. 1400 Zellen Links drin stehen, die nicht mehr "..\" als Beginn haben sondern
"C:\Users\name\AppData\Roaming\Microsoft\"

Beim Klick auf diesen Link kommt eine Sicherheitswarnung die dort nicht liegende Datei kann natürlich auch nicht geöffnet werden.

Wie kann ich nun den Pfad durch das "..\" ersetzen?
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#2
Hallo,

hast du es mal mit Suchen und Ersetzen probiert?

Evtl. unter den Optionen den Haken für 'Gesamten Zellinhalt vergleichen' bzw. 'Groß-Kleineschreibung beachten' entfernen.
Gruß
Peter
to top
#3
Hi Ralf,

vielleicht kannst Du damit was anfangen ...

Code:
Sub Hyperlink_einfuegen()
'*****************************
'*   Hyperlinks eintragen    *
'*   Ergänzung von Kl@us-M.  *
'*****************************
Dim verz As String
verz = InputBox("Wie lautet der Pfadname ?", "Kompletten Pfadnamen angeben (z.B. C:\Klaus\", "C:\Klaus\")
    For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        For k = 2 To Cells(j, Columns.Count).End(xlToLeft).Column
            Cells(j, k).Hyperlinks.Add Cells(j, k), verz & Cells(j, k) & ".html"
        Next k
    Next j
End Sub
to top
#4
(14.05.2014, 10:22)Peter schrieb: hast du es mal mit Suchen und Ersetzen probiert?

ja, das war mein erster Versuch auch ohne die Häkchen, denn ich wollte ja nur einen Teil des jeweiligen Hyperlinks ersetzen.

Da kam dann die Fehlermeldung, daß der Such-Text nicht gefunden oder nichts ersetzt werden konnte.

Zum Glück habe ich noch eine Version bei meinen tschechischen Kollegen gefunden, aus der ich dann die ganzen Links rüberkopieren konnte.

Das Problem ist beseitigt, aber das Ersetzen eines Textes innerhalb eines Hyperlinks kann ich immer noch nicht.
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top
#5
Hi Ralf,

per VBA kannst du alle Hyperlinks im Tabellenblatt wie folgt ändern:

Code:
Sub hyperlink_inhalte_ersetzen()
    Dim hyAdresse As Hyperlink
    With Worksheets("Tabelle1").UsedRange
        For Each hyAdresse In .Hyperlinks
            hyAdresse.Address = Replace(hyAdresse.Parent.Formula, "C:\Users\name\AppData\Roaming\Microsoft\", "..\")
        Next hyAdresse
    End With
End Sub


GrußformelBeverly's Excel - Inn
Ein Fragesteller sollte Antworten gründlich und komplett lesen und nicht nur die für ihn angenehmen Teile.
to top
#6
Hi Karin,

(14.05.2014, 16:26)Beverly schrieb: per VBA kannst du alle Hyperlinks im Tabellenblatt wie folgt ändern:

Super, danke, das teste ich morgen.
Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Hyperlink Funktion bei Leerzeichen waldemarrrrr 2 43 29.11.2016, 22:47
Letzter Beitrag: waldemarrrrr
  Hyperlink Text aus anderer Worksheet Spike87 4 56 11.11.2016, 12:39
Letzter Beitrag: snb
  Registerfarbe ändern wenn Zelle Farbe hat michel34497 9 200 06.11.2016, 11:39
Letzter Beitrag: michel34497
  Zellbezug zu externer Datei via Hyperlink Fred B 10 170 28.10.2016, 11:33
Letzter Beitrag: schauan
  Hyperlink ergänzen Murmelino 3 132 15.10.2016, 09:50
Letzter Beitrag: IchBinIch
  Hyperlink erstellen, je nach Zellinfo Mirei 1 106 02.10.2016, 04:53
Letzter Beitrag: schauan
Question Hyperlink ordner ändern ??? CherryX 3 154 19.09.2016, 14:07
Letzter Beitrag: CherryX
  Power Query Hyperlink-Liste Abfragen Peter Undso 2 139 17.09.2016, 17:14
Letzter Beitrag: Peter Undso
  Hyperlink fortlaufend nach unten Kopieren Martin und Kamilla 2 185 27.08.2016, 08:42
Letzter Beitrag: Martin und Kamilla
  Hyperlink automatisch aktualisieren Sandra 8 358 25.08.2016, 10:49
Letzter Beitrag: Sandra

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste