Thema Datum  Von Nutzer Rating
Antwort
Rot Hyperlink aktualsierung auf mehreren Sheets per VBA Makro
 05.12.2013 07:41:59 Michael
NotSolved
05.12.2013 20:50:35 Gast43722
Solved
06.12.2013 07:45:19 Michael
NotSolved
06.12.2013 17:18:27 Gast43722
NotSolved

Ansicht des Beitrags:
Von:
Michael		 Datum:
05.12.2013 07:41:59		 Views:
1295		 Rating:
     
Antwort:
  Ja
Thema:
Hyperlink aktualsierung auf mehreren Sheets per VBA Makro

Guten Morgen,

hoffe ihr könnt mir hier weiterhelfen. Durch die Umstellung auf Office 2010 müssen ca. 500-600 Exceltabellen, welche zum großen Teil miteinander per
Hyperlink verbunden sind umgestellt werden. Um mir das ganze zu vereinfachen habe ich mir ein Makro geschrieben / teilweise gegoogelt. Das Makro
an sich funktioniert, jedoch ist das Problem dass, dass in jeder Excel-Datei 12 Datenblätter sind (1-12). Die Hyperlinks befinden sich jedoch nur auf
den Datenblättern 8-12. Das Makro hingegen ändert nur im aktiven Sheet die Hyperlinks. Ich habe schon mit Schleife etc. versucht ob es nicht möglich wäre.
Könntet man mir da weiterhelfen?

Hier der Code: 

Sub HypLiAkt()
   Dim hyp As Hyperlink, intL As Integer

      For Each hyp In ActiveSheet.Hyperlinks
        intL = Len(hyp.Address)
          If intL > 4 Then
             If LCase$(Right(hyp.Address, 4)) = ".xls" Then
                hyp.Address = Left(hyp.Address, intL - 3) & "xlsm"
             End If
          End If
       Next hyp
    Call PfadeAendern
End Sub

 

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 Hyperlink aktualsierung auf mehreren Sheets per VBA Makro
 05.12.2013 07:41:59 Michael
NotSolved
05.12.2013 20:50:35 Gast43722
Solved
06.12.2013 07:45:19 Michael
NotSolved
06.12.2013 17:18:27 Gast43722
NotSolved