Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

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?
Antworten 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
Antworten 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
Überlegen macht überlegen
Gruss aus dem schönen Hunsrück
_______ Klaus-Martin _______
Antworten 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.
Antworten 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


Dateiupload bitte im Forum! So geht es: Klick mich!
" height=35" align="left" alt="Grußformel">Dateiupload bitte im Forum! So geht es: Klick mich!
" height=35" align="middle" alt="Beverly's Excel - Inn">
Ein Fragesteller sollte Antworten gründlich und komplett lesen und nicht nur die für ihn angenehmen Teile.
Antworten 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.
Antworten Top


Gehe zu:


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