Hyperlinks ausführbar machen
26.02.2014 11:00:21
Pascal
vor langer Zeit hab ich mir mal (auch mit Hilfe dieses tollen Forums hier) einen Code zusammengebastelt, mittels dem ich in einer grossen Arbeitsmappe nach allen Hyperlinks suchen kann und diese ausführbar mache.
d.h. es gab ab und zu das Problem in der Arbeitsmappe, dass zwar Hyperlinks enthalten waren, sich diese aber nicht einfach per Mausklick ausführen liessen. So mussten diese dann immer zuerst "aktiviert" werden.
Folgender Code funktionierte dazu bisher immer einwandfrei:
Sub Hyperlinks_aktivierbar_machen()
Dim Zelle As Range, Anzeige As String, wks As Worksheet
Application.ScreenUpdating = False
On Error GoTo Ende
For Each wks In ThisWorkbook.Worksheets
Select Case wks.Name
Case "D_WDB2", "F_WDB2", "Suche", "Suche_1" 'auf diesen Tabellenblättern wird nicht gesucht, _
da dort keine Links drauf sind
Case Else:
For Each Zelle In wks.UsedRange.SpecialCells(xlCellTypeConstants)
Anzeige = Mid(Zelle.Value, InStrRev(Zelle.Value, "/") + 1)
If Zelle.Value Like "http*" Then wks.Hyperlinks.Add Anchor:=Zelle, Address:=Zelle.Value
Next Zelle
End Select
Next wks
Ende:
Application.ScreenUpdating = True
If Err.Number 0 Then MsgBox Err.Number & vbLf & Err.Description _
& vbLf & wks.Name
End Sub
Nun hab ich aber seit einigen Tagen (obwohl am Code nichts geändert wurde) das Problem, dass sich - nachdem der Code durchgelaufen ist - sich die Excel-Arbeitsmappe dann nicht mehr speichern lässt.
Es erscheint immer die Meldung beim Speichern, dass die Datei nicht repariert werden könne.
Ich stell Euch daher die höfliche Frage:
was ist am obigen Code falsch ?
Was müsste ich ändern, damit dieser wieder alle in einer Arbeitsmappe enthaltenen Hyperlinks sucht und auch ausführbar macht ?
Herzlichen Dank für Eure Hilfe !