Office: (Office 2013) Pfad (url) aus link auslesen

Scorefun · 12. Januar 2021

von JRaps

ich habe dein Skript ausgeführt:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das stammt aber nicht aus diesem Thema hier...

Zurückschreiben der Hyperlinks, wenn sich die neue Adresse in Spalte C des Tabellenblattes 'AlleHyperlinks' befindet :

Code:

Sub schreibeHyperlink()
Dim r As Long
Dim sSheet As String
Dim sRange As Range
Dim sLink As String

'Zeilenzähler initialisieren
r = 1

With Worksheets("AlleHyperlinks")

'Durchlaufe alle gefüllten Zeilen
Do While .Range("A" & r) ""
'Werte in Variablen speichern
sSheet = .Range("A" & r).Text 'Name des Worksheets
Set sRange = Worksheets(sSheet).Range(.Range("B" & r).Text) 'Zelle mit Hyperlink
sLink = .Range("C" & r).Text 'Der neue Hyperlink

'Vorhandenen Hyperlink der Zelle löschen
sRange.Hyperlinks.Delete

'Neuen Hyperlink setzen
Worksheets(sSheet).Hyperlinks.Add anchor:=sRange, Address:=sLink, TextToDisplay:=sRange.Text

'Zeilenzähler hochsetzen
r = r + 1

DoEvents
Loop
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

JRaps · 9. August 2019

Super, meine bisherigen Tests waren alle Erfolgreich. Vielen Dank für deine unkomplizierte und schnelle Hilfe.
Schönes Wochenende *wink.gif*

Office: (Office 2013) Pfad (url) aus link auslesen

Pfad (url) aus link auslesen

Pfad (url) aus link auslesen

Pfad (url) aus link auslesen - Similar Threads - Pfad url link

Dynamischer Pfad

Den Pfad verändern

Fehler beim Zugriff auf Pfad/Datei

Pfad standardisieren

Komplexes Makro ohne Ahnung :-/

Per Makro bestimmten Bereich per PDF unter bestimmten Pfad speichern.

Variable in Pfad zu externem Inhalt (Sharepoint)