Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
04.02.2013 13:49:36 |
Andreas |
|
|
|
05.02.2013 11:10:41 |
schokobons |
|
|
|
05.02.2013 13:09:50 |
Gast96675 |
|
|
|
05.02.2013 13:24:12 |
schokobons |
|
|
|
07.02.2013 17:14:23 |
Gast39216 |
|
|
Hyperlink finden und ersetzen |
15.02.2013 09:52:26 |
Gast83484 |
|
|
Von:
Gast83484 |
Datum:
15.02.2013 09:52:26 |
Views:
1015 |
Rating:
|
Antwort:
|
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
#
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
05.02.2013 11:10:41 |
schokobons |
|
|
|
05.02.2013 13:09:50 |
Gast96675 |
|
|
|
05.02.2013 13:24:12 |
schokobons |
|
|
|
07.02.2013 17:14:23 |
Gast39216 |
|
|
Hyperlink finden und ersetzen |
15.02.2013 09:52:26 |
Gast83484 |
|
|