Hi,
kann mir jemand sagen, wie ich in Excel mit einem Schlag alle hyperlinks (www und @) gelöscht bekomme, dabei aber alle sonstigen Formatierungen (z.B. Rahmen) bestehen bleiben?
Hyperlinks zu löschen funktioniert am einfachsten schon über:
Sub HyperlinksLoeschen()
Selection.Hyperlinks.Delete
End Sub
Fertig! Man muss lediglich vorher manuell den Bereich markieren. Leider sind danach aber auch alle anderen Formatierungen weg, wie Rahmen, Zellenfarben, etc.
Gefunden habe ich auch schon:
Sub HyperlinksEntfernen()
Dim Zelle As Range
Sheets("Tabelle1").Activate
ActiveSheet.UsedRange.Select
For Each Zelle In Selection
With Zelle
If .Hyperlinks.Count > 0 Then
.Hyperlinks.Delete
With .Font
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
End If
End With
Next
End Sub
Leider sind auch hierbei sämtliche Formatierungen weg (s.o.)! Einziger Unterschied ist, dass man vorher nichts markieren muss.
Thanks for suppport... ;-)
Th. |