title image


Smiley So werden die Links automatisch auskommentiert....
Sub Links_weg()

Dim x%, hc%

hc = ActiveSheet.Hyperlinks.Count

Application.ScreenUpdating = False

For x = hc To 1 Step -1

ActiveSheet.Hyperlinks(x).Delete

Next

Application.ScreenUpdating = True

End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: