c't 18/02
RSSName-Eigenschaft) in die fehlerhafte Address-Eigenschaft. Schreiben Sie das Makro in ein neues VBA-Modul der betroffenen Arbeitsmappe, und rufen Sie es anschließend über Extras/Makro/Makros auf. Die aktuelle Version von ctKatalog enthält übrigens eine komfortable Importfunktion, die Katalogblätter aus anderen Katalogmappen übernimmt und dabei automatisch die Hyperlinks repariert. (Ralf Nebelo/se)Public Sub HyperlinksReparieren()
Dim objBlatt As Worksheet
Dim objHyperlink As Hyperlink
'Alle Blätter der aktuellen Mappe durchlaufen
For Each objBlatt In ActiveWorkbook.Sheets
'Wenn Blattname nicht "Übersicht" lautet, dann...
If objBlatt.Name <> "Übersicht" Then
'...alle Hyperlinks des Blatts durchlaufen
For Each objHyperlink In objBlatt.Hyperlinks
'Wenn Hyperlink einen Backslash enthält, dann...
If InStr(objHyperlink.Name, "\") Then
'...Name in Address-Eigenschaft kopieren
objHyperlink.Address = objHyperlink.Name
End If
Next
End If
Next
End Sub
Dieses Makro repariert die beim Kopieren beschädigten Hyperlinks zum direkten Abspielen von Mediendateien.
Version zum Drucken | Per E-Mail versenden | Heft bestellen
Permalink: http://heise.de/-313018
Das aktuelle Heft ist jetzt im Handel erhältlich.
Ältere Artikel können Sie über unser Zeitschriften-Archiv bestellen.
