Hallo Leute,
ich habe eine Frage.
Wenn in Spalte C die Zelle die Füllfarbe 16 und ein Hyperlink hat, dann soll der Hyperlink dieser Zelle entfernt werden und auf die Zelle soll dieses Makro ausgeführt werden.
Was muss ich im Makro ändern, damit es wie oben beschrieben funktioniert?
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
Vielen Dank im Voraus !
Grüße,
Selma