title image


Smiley Re: Hyperlinks gesammelt entfernen
Hi Du,



vielleicht hilft dir als Anregung dieser Code für ein Makro:

Sub HyperlinksEntfernen()

' Bernd Held, Excel-VBA in 21 Tagen

Dim Zelle As Range

Dim Bereich As Range

Sheets("Tabelle1").Activate

Set Bereich = ActiveSheet.UsedRange

For Each Zelle In Bereich

With Zelle

If .Hyperlinks.Count > 0 Then

.Hyperlinks.Delete

With .Font

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

End If

End With

Next Zelle

End Sub

GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: