title image


Smiley Re: OffTopic: Range("M11:M260").Hyperlinks.Delete 'würde schon reichen ! _o
Hallo JerryB,



danke für den Tip. Weißt du, warum die Zelle danach gesperrt ist?



Ich habe das jetzt so gelöst ):



Sub AlleHyperlinksLoeschen()

Dim HypLink As Hyperlink

Range("M11:M260").Hyperlinks.Delete

ActiveSheet.Unprotect ("Spotlight")

Range("M11:M260").Locked = False

ActiveSheet.Protect Password:="Spotlight", DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub



Ist bestimmt noch verbesserungsfähig. Bin noch VBA-Anfängerin :-).



Gruß

Christine

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: