Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
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


Gehe zu:


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