was muss ich in unten stehendem Makro anpassen, damit nicht nur der Hyperlink in Spalte C entfernt wird, sondern auch der Wert der nach dem Entfernung des Hyperlinks stehen bleibt ?
Sub Hyperlink_Makro()
'Wenn in Spalte C die Zelle die Füllfarbe 22 und ein Hyperlink hat dann wird der Hyperlink _
dieser Zelle entfernt.
Dim h As Hyperlink
For Each h In ActiveSheet.Hyperlinks
If h.Range.Column = 3 Then
If h.Range.Interior.ColorIndex = 22 Then
h.Range.Select
h.Delete
With Selection.Font
.Name = "Lucida Sans"
.Italic = False
.Bold = True
.Size = 15
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Interior
.ColorIndex = 16
.Pattern = xlSolid
End With
End If
End If
Next
End Sub
Besten Dank !
Viele Grüße,
Selma