Thema Datum  Von Nutzer Rating
Antwort
04.02.2013 13:49:36 Andreas
NotSolved
05.02.2013 11:10:41 schokobons
NotSolved
05.02.2013 13:09:50 Gast96675
NotSolved
05.02.2013 13:24:12 schokobons
NotSolved
07.02.2013 17:14:23 Gast39216
NotSolved
Blau Hyperlink finden und ersetzen
 15.02.2013 09:52:26 Gast83484
NotSolved

Ansicht des Beitrags:
Von:
Gast83484		 Datum:
15.02.2013 09:52:26		 Views:
1012		 Rating:
     
Antwort:
  Ja
Thema:
Hyperlink finden und ersetzen

Hi Nochmal!

 

Habe mir jetzt etwas mehr Gedanken über das ganze gemacht... und stecke nun wieder fest...

Der untere Code öffnet jeden Link, anstatt nur die nicht funktionierenden. Ne Idee wie ich das entsprechend anpassen kann?

 

Riesen Dank schon mal im Voraus!!

 

#

Sub FindHyperlink()

Dim Zeile       As Integer
Dim Zeile_Max   As Integer
Dim Spalte_Max  As Integer
Dim x           As Hyperlink
Dim fs          As Object
Dim sFileToOpen As Variant


Spalte_Max = Application.InputBox("Bitte Geben Sie die Spalte in der gesucht werden soll nach Form '2' ein.", Type:=1)
Zeile_Max = Application.InputBox("Bitte Geben Sie die letzte Zeile aus dem ausgewählen Bereich nach Form '1' ein.", Type:=1)

Zeile = 1

    Do While Zeile <= Zeile_Max
            Cells(Zeile, Spalte_Max).Activate
            Set fs = CreateObject("Scripting.FileSystemObject")
                For Each x In ActiveCell.Hyperlinks
                If Not fs.fileexists(x.Address) Then MsgBox (x.Address & vbLf & " ist nicht gefunden")
                sFileToOpen = Application.FindFile
                    If sFileToOpen = True Then x = File.Address
                    Else: MsgBox (x.Address & vbLf & "Neuer Link wurde nicht gesetzt")
                   Next

Zeile = Zeile + 1
Loop

 

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
04.02.2013 13:49:36 Andreas
NotSolved
05.02.2013 11:10:41 schokobons
NotSolved
05.02.2013 13:09:50 Gast96675
NotSolved
05.02.2013 13:24:12 schokobons
NotSolved
07.02.2013 17:14:23 Gast39216
NotSolved
Blau Hyperlink finden und ersetzen
 15.02.2013 09:52:26 Gast83484
NotSolved