Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
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
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordnerstruktur für Hyperlinks ändern

Ordnerstruktur für Hyperlinks ändern
08.11.2019 09:33:35
Katjuscha
Hallo,
ich habe mal wieder ein Problem mit meinen Hyperlinks und hoffe ihr könnt mir helfen.
Ich habe eine Tabelle mit vielen Einträgen und vielen Hyperlinks in diversen Spalten.
Jetzt haben sich einige Unterordner verändert.
Per Makro möchte ich jetzt prüfen lassen, ob der Link funktioniert oder "tot" ist.
Wenn er "tot" ist, soll geprüft werden, ob die Ordner des alten oder neuen Pfades existieren und den Link dann entsprechend ändern.
Beispiel:
alter Pfad:G:\Nachweise\Ort\002
neuer Pfad : G:\Nachweise\Ort\002_historisch
Nur der Zusatz _historisch ist ggf. hinzugekommen, der Rest ist immer gleich geblieben.
Ich hoffe ihr hab eine Idee. VBA verstehe ich kaum.
Gruß Katjuscha

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordnerstruktur für Hyperlinks ändern
08.11.2019 10:34:49
Marc
Liebe Katjuscha,
hast Du für uns eine Beispieldatei?
Liebe Grüße aus dem Rheinland
Marc
AW: Ordnerstruktur für Hyperlinks ändern
08.11.2019 12:11:37
Katjuscha
Hallo Marc,
die Beispieldatei kann ich dir erst am Montag ertsellen, wenn ich wieder auf Arbeit bin, da ich die Orignal-Dateien aus Datenschutz-Gründen nicht herausgeben darf.
Gruß Katjuscha
AW: Ordnerstruktur für Hyperlinks ändern
08.11.2019 10:36:35
Luschi
Hallo Katjuscha,
das geht auch ohne Vba, wenn Du die Excel-Funktion =HYPERLINK() benutzt und den Pfad als _ zusammengesetzten Text übergibst; siehe 

https://support.office.com/de-de/article/hyperlink-funktion-333c7ce6-c5ae-4164-9c47-7de9b76f577f?NS=EXCEL&Version=19&SysLcid=1031&UiLcid=1031&AppVer=ZXL190&HelpId=xlmain11.chm60407&ui=de-DE&rs=de-DE&ad=DE
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Ordnerstruktur für Hyperlinks ändern
08.11.2019 12:05:23
Katjuscha
Hallo Luschi,
meine Hyperlinks wurden leider nicht durch die Funktion gesetzt.
Ich brauche dafür ein Makro welches ich auf meine ca. 2000 Dateien anwenden kann.
Hast du noch ne Idee?
Gruß Katjuscha
AW: Ordnerstruktur für Hyperlinks ändern
08.11.2019 12:18:58
EtoPHG
Hallo Katjuscha,
Diesen Code in ein allgemeines Modul. 
Option Explicit
Sub correctHyperlinks()
Const hylDirOld As String = "G:\Nachweise\Ort\002"
Dim hylDirNew As String
Dim hyl As Hyperlink, splitHyl As Variant
Dim fName As String
Dim lCorrCnt As Long
hylDirNew = hylDirOld & "_historisch"
For Each hyl In ActiveSheet.Hyperlinks
splitHyl = Split(hyl.Address, "\")
fName = splitHyl(UBound(splitHyl))
If Dir(hylDirOld & "\" & fName)  "" Then
hyl.Address = hylDirOld & "\" & fName
Else
If Dir(hylDirNew & "\" & fName)  "" Then
hyl.Address = hylDirNew & "\" & fName
lCorrCnt = lCorrCnt + 1
Else
If vbYes = MsgBox(hyl.Address & " existiert NICHT mehr." & vbCrLf & _
"Wollen Sie den Link löschen?", vbExclamation + vbYesNo, _
"Gebrochener Hyperlink") Then hyl.Delete
End If
End If
Next hyl
If lCorrCnt = 0 Then
MsgBox "Es wurden keine Hyperlinks korrigiert", vbInformation
Else
MsgBox "Es wurden " & lCorrCnt & " Hyperlinks richtiggestellt!", vbInformation
End If
End Sub

Die Links des aktiven Blatts werden ggf. korrigiert.
Zum Testen bitte zuerst Kopie der Originaldatei verwenden.
Gruess Hansueli
Anzeige

66 Forumthreads zu ähnlichen Themen

Link zu einem Beitrag erstellen
robert

guten morgen,
ich möchte mit einem link auf einen beitrag hinweisen......
ich find's nicht-wie geht das ?
gruß
robert
26.03.2009 06:05:21
Thread-ID: 1064065
8 Beiträge
Anzeige
Link auf Desktop für Ordner
Dietmar

Einen schönen Samstag in die Runde,
Ich möchte für einen speziellen Ordner eine Verknüpfung auf dem Desktop erzeugen. Mit folgendem Code, den ich hier vor längerer Zeit bekommen habe geht das wunderbar, wenn es sich um eine DATEI handelt.
Wie erreiche ich, dass die Verlinkung für einen...
17.03.2012 15:49:46
Thread-ID: 1255420
4 Beiträge
Bitte um Hilfe einen Hyperlink zu erstellen
Peter

Hallo,
Ich möchte ein Makro schreiben, dass sobald eine neue Datei erstellt ist, in einem anderen Tabellenblatt einen Hyperlink erstellt.
Das Problem vor dem ich stehe, ist folgendes: Wie schreibe ich einen Hyperlink, desen Namen erst in der Zukunft festgelegt wird, aber der Pfad scho...
20.03.2012 08:11:33
Thread-ID: 1255593
2 Beiträge
Anzeige
Ordner festlegen für Hyperlink
Günter

Hallo,
um einen schnellen Zugriff auf Fachartikel zu bekommen, habe ich mir eine Tabelle angelegt und die Namen der Artikel eingegeben. Jetzt würde ich gerne direkt aus der Tabelle via Hyperlink die Artikel aufrufen. Die Artikel befinden sich alle im gleichen Ordner. Wenn ich über "rechte M...
31.12.2013 14:19:51
Thread-ID: 1343812
7 Beiträge
hyperlink auf markierte Zelle erstellen
David

Hallo zusammen,
Ich möchte eine Zelle mit STRG-C markieren und irgendwo beliebig mit Makro ein Verknüpfung per Hyperlink auf diese Zelle erstellen.
Grundsätzlich kriege ich das hin, aber mir fehlt die Info, in welchem Arbeitsblatt die markierte Zelle steht.
Mit Selection.Address bek...
09.04.2014 15:15:03
Thread-ID: 1356701
14 Beiträge
Hyperlinks zu abweichenden Ordnernamen
Tim

Auf der Suche nach einer Lösung für mein Problem, bin ich auf dieses Forum gestoßen.
Ich habe gefühlt schon das gesamte Netz durchsucht. Allerdings weiß ich auch nicht wirklich wie ich danach suchen soll.
Und zwar habe ich eine Excel-Liste in der wir unsere Aufträge mit allen Abteilunge...
06.10.2014 11:24:44
Thread-ID: 1385030
7 Beiträge
Hyperlink auf Vorlagen in anderen Ordnern
MB12

Hallo zusammen,
erst mal ein großes Lob an die Kompetenz, die sich in diesem Forum zusammengefunden hat. Egal welches Excel-Problem ich habe: Am Schluss lande ich hier.
Problem Hyperlink:
Alle Ordner befinden sich auf unserem Abteilungs-Laufwerk.
Ordner (insg. 8), z.B.:
A ge...
11.10.2014 10:40:49
Thread-ID: 1386108
3 Beiträge
Hyperlink auf Dateien erstellen
Olli

Hallo zusammen,
ich suche schon lange nach einer Lösung für mein Problem. Leider hat mir die SuFu und Google bisher nicht weiterhelfen können.
Zu meinem Problem:
Ich habe in einem Ordner jede Menge verschiedene Dateien (*.tif, *.pdf etc.
In einer Excel-Datei habe ich alle Dateie...
30.10.2014 10:19:57
Thread-ID: 1389521
2 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
3
3
1
3
6
13
6
2
1
2
3
1
14
1
6
7
5
3
3
3
1
1
4
1