Hyperlinks - mehrere umwandeln | Link entfernen, Text bleibt
16.07.2024 15:23:25
tuska
Ich überarbeite derzeit meine Makros (ist ohnehin schon das letzte)
und habe zu diesem Thema folgenden Code vorhanden welcher leider nicht funktioniert.
Ziel: Der Hyperlink soll entfernt werden, der anzuzeigende Text soll jedoch bestehen bleiben.
(Anmerkung: Bei Löschung des Hyperlinks wird auch die Farbe beim Text automatisch gelöscht).
Bitte um Unterstützung.
Danke.
'Option Explicit
'Public Sub Hyperlinks_mehrere_umwandeln()
'Dim rngZelle As Range
'For Each rngZelle In Selection
' rngZelle.Value = rngZelle.Hyperlinks(1).Address
' rngZelle.Hyperlinks(1).Delete
'Next rngZelle
'End Sub
'
Sub Hyperlinks_CONVERT_multiple()
End Sub
Dim hyp As Hyperlink, rHyp As Range, Fett, sFarbe, hFarbe
For Each hyp In ActiveSheet.Hyperlinks
Set rHyp = hyp.Range
With rHyp
Fett = .Font.Bold
sFarbe = .Font.ColorIndex
hFarbe = .Interior.ColorIndex
End With
hyp.Delete
With rHyp
.Font.Bold = Fett
.Font.ColorIndex = sFarbe
.Interior.ColorIndex = hFarbe
End With
Next hypAnzeige