Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: mehrere links gleichzeitig verändern

mehrere links gleichzeitig verändern
08.10.2024 16:34:01
kai
Hallo zusammen,
ich habe in einem Datenblatt ca. 300 Verlinkungen zu *.pdf Dateien auf dem Server. Diese sehen so aus:
\\Server1\Demo\01.1_Anwendung\01.03_User\Daten\Dokumente\Test1.pdf
\\Server1\Demo\01.1_Anwendung\01.03_User\Daten\Dokumente\Test2.pdf
\\Server1\Demo\01.1_Anwendung\01.03_User\Daten\Dokumente\Test3.pdf
....
Jetzt hat sich dieser "Server1" verabschiedet. Es konnten zwar alle Daten gerettet werden, aber der neue Server ist nur noch über die IP zu erreichen. Bedeutet ich muss alle "Server1" links in die IP ändern. Mit suchen und ersetzen geht es leider nicht.
Danke für die Hilfe
LG
Kai
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere links gleichzeitig verändern
08.10.2024 16:58:46
Fennek
Hallo,

als Konzept:


dim Hy as Hyperlink

for each Hy in Activesheet.Hyperlinks
Hy.Address = Replace(Hy.Address, "//server", "//127.0.0.1")
next Hy


mfg
AW: mehrere links gleichzeitig verändern
08.10.2024 16:59:46
snb
Sub M_snb()

ThisWorkbook.BuiltinDocumentProperties("hyperlink base") = "G:\OF\"
For Each it In Hyperlinks
it.Address = Replace(it.Address, "..\", "")
Next
End Sub

Anzeige
AW: mehrere links gleichzeitig verändern
08.10.2024 17:03:52
Piet
Hallo

erstelle dir doch einfach mal einen neuen Link zu einer Datei, und zeichne es mit dem Macrorecorder auf.
Diesen aufgezeichneten Code kannst du verwenden um mit einer For Next Schleife allle Links neu zu programmieren.
Wenn du nicht weiterkommst sende uns bitte den aufgezeichneten Makrocode.

mfg Piet
Anzeige
AW: mehrere links gleichzeitig verändern
08.10.2024 22:45:22
Piet
Hallo Kai

hast du mal den Code von Fennek oder snb ausprobiert.?
Bei Fennek musst du noch Sub Hyperlink_Ändern() einfügen und End Sub.

mfg Piet
AW: mehrere links gleichzeitig verändern
08.10.2024 19:27:53
kai
Hallo Piet.
soweit so gut. Hier die Aufzeichnung
function main(workbook: ExcelScript.Workbook) {
let selectedSheet = workbook.getActiveWorksheet();
// Apply hyperlink to range A6 on selectedSheet}
selectedSheet.getRange("A6").setHyperlink({textToDisplay: "test2", address: "\\\\192.168.15.10\\Demo\\01.12_Anwendung\\01.03_User\\Daten\\Dokumente\\Test1.pdf"});
}

Nur ändere ich jetzt die Zelle A6 in A7 und führe das Macro wieder aus wird die zwar vorne in die IP geändert, nur es sind dann alles Test1.pdf. Kann ich hier mit *. arbeiten?

Danke
Kai
Anzeige
AW: mehrere links gleichzeitig verändern
08.10.2024 22:47:46
Piet
Nachtrag

mit deinem Code kann ich nichts anfangen. Da klebt alles aneinander!

mfg Piet

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige