Thema Datum  Von Nutzer Rating
Antwort
Rot Hyperlinks mit gleicher Addresse ändern
 04.03.2021 09:54:38 VBANeuling123
NotSolved
06.03.2021 18:26:19 xlKing
NotSolved
08.03.2021 13:53:29 Gast93786
NotSolved

Ansicht des Beitrags:
Von:
VBANeuling123		 Datum:
04.03.2021 09:54:38		 Views:
1184		 Rating:
     
Antwort:
  Ja
Thema:
Hyperlinks mit gleicher Addresse ändern

Hallo zusammen, 
ich bin ein Neuling in VBA. Ich habe eine Excel Mappe die aus mehrere Tabellenblätter besteht. In der Spalte E einer jeden Tabelle befinden sich u.a. Links auf Dokumente oder Ordner eines Netzlaufwerks. Ich habe bereits eine Überprüfung der funktionalität der Links eingebaut und die Links werden in rot angezeigt, wenn diese nicht funktionieren. <br><br>
Ich möchte nun die Änderung dieser Links automatisieren. Das heißt der Benutzer wählt einen fehlerhaften Link aus und ändert die Adresse  auf das neue Dokument und ggf. auch den Anzeigetext. Das Makro soll nun alle Hyperlinks, bei denen die gleiche fehlerhafte Adresse hinterlegt ist, auf die neue Adresse und den neuen Anzeigetext ändern. <br><br>
<br><br>
Ich habe es bisher wie folgt versucht. <br><br>
Option Explicit<br><br>
Public Linkalt As String<br><br>
----------------<pre>

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Hyperlink.Count = 1 Then
Linkalt = Hyperlinks(1).Address
End If
End Sub</pre><br><br>
----------------------<pre>

Private Sub Worksheet_Change(ByVal Target As Range)
Public Linkneu As String
Dim hyp As Hyperlink
Linkneu = Zelle.Hyperlinks(1).Address
For Each hyp In ActiveSheet
If Hyperlinks(1).Address = Linkalt Then
Hyperlinks(1).Address = Replace(Hyperlinks(1).Address, Linkalt, Linkneu)
End If
Next
End Sub</pre><br><br>
Es wird mir allerdings der Laufzeitfehler 438 angezeigt. 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Hyperlinks mit gleicher Addresse ändern
 04.03.2021 09:54:38 VBANeuling123
NotSolved
06.03.2021 18:26:19 xlKing
NotSolved
08.03.2021 13:53:29 Gast93786
NotSolved