H

Problem Makro
Hyperlinks entfernen 'von Frank Arendt-Theilen:
Sub HyperlinksEntfernen()
Dim hypLink As Hyperlink
  For Each hypLink In ActiveSheet.Hyperlinks
    hypLink.Delete
  Next
End Sub
Hyperlinks von Emailadressen "reparieren"
(Bereich selektieren)		 'Zellen ohne das @-Zeichen werden nicht umgesetzt,
'die Schreibweise mit/ohne "Mailto:" ist egal

Sub HyperlinkReparatur()
For Each c In Selection
If InStr(1, c, "@") > 0 Then
If Left(c, 7) = "mailto:" Then
c.Hyperlinks.Add Anchor:=c, Address:=c
Else
c.Hyperlinks.Add Anchor:=c, Address:="mailto:" & c
End If
End If
Next c
End Sub
Internetadressen, die als Text vorliegen in Hyperlinks umwandeln 'die Schreibweise mit/ohne "http://" ist egal

Sub TextZuHyperlink()
Dim c As Range
For Each c In Selection
hyp = c.Value
If hyp <> "" Then
If Left(hyp, 7) = "http://" Then
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:=hyp
Else
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="http://" & hyp
End If
End If
Next c
End Sub
Aktuelle Macro-Hilfedatei für Excel 97 downloaden Diese ist über diesen Link zu finden:
http://www.microsoft.com/intlkb/germany/support/kb/d35/d35238.htm
   

Meine aktuellsten Exceltipps finden Sie hier: