AW: VBA Hyperlinks ohne Unterstrich und in Schwarz
31.01.2010 13:08:05
alex
also ich hab schon einen code mit dem makrorecorder aufgezeichnet, dieser funktioniert auch wenn ich ihn ganz normal über einen button starte.
allerdings nicht wenn ich ihn in mit
Sub workbook before close calle. dann setzt er zwar den hyperlink aber in blau mit unterstrich.
ich danchte das es vielleicht noch eine elegantere lösung gibt als die des makrorecorders, mit _
der excel besser klar kommt.
Sub test()
Set c = .Find(t, LookAT:=xlWhole)
c.Offset(0, 0).Hyperlinks.Add Anchor:=c.Offset(0, 0), Address:=ThisWorkbook.FullName, _
TextToDisplay:=ThisWorkbook.Sheets("kt").Cells(11, 3).Text
c.Offset(0, 0).Font.Underline = xlUnderlineStyleNone
c.Offset(0, 0).Font.ColorIndex = 0
End Sub
gruß alex