|
Autor
|
Thema: Hyperlinks und icons entfernen (2171 mal gelesen)
|
UGMANX
Mitglied
   Beiträge: 182
Registriert: 11.10.2005 UG NX3
SolidWorks office Professional 2006
CINEMA 4D R9
|
erstellt am: 13. Nov. 2007 17:16  <-- editieren / zitieren -->   Unities abgeben:          
Hallo zusammen, wer kann mir helfen, ich habe mehrere Excel-Datenblätter worin Hyperlinksund icons sind, wie kann ich das Excel-Blatt bereinigen. Vielen dank im voraus für eure Hilfe. mgfg UGMANX
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen
Mitglied
Bauing./SW-Entwickler
Beiträge: 1227
Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 13. Nov. 2007 17:58 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX 
Guten Abend, nehme mal an, mit "bereinigen" meinst Du die 'Hyperlinks und die Icons entfernen'? Wie wär's mit markieren und löschen  - kommt darauf an, wieviele Du mit "mehrere" meinst; oder für die Hyperlinks per VBA mit diesem Code:
Selection.Hyperlinks.Delete
Das löscht nur den link, nicht aber den Text. Bei den Icons fällt mir nur das Löschen per Hand ein. Lohnt der Aufwand, da was mit VBA zu basteln, sprich: Brauchst Du das noch öfter? Oder ist's 'ne einmalige Sache?Gruß,
Frederik ------------------
DIN1055.de | Lastannahmen für Anwender Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
UGMANX
Mitglied
Beiträge: 182
Registriert: 11.10.2005 UG NX3
SolidWorks office Professional 2006
CINEMA 4D R9
|
erstellt am: 13. Nov. 2007 18:05 <-- editieren / zitieren --> Unities abgeben:
|
okl
Mitglied
Wirtsch-Ing (Maschbau)
Beiträge: 157
Registriert: 21.04.2006 3,6 GHz, 2 GB RAM, NVIDIA Quadro FX 1300, Delmia V5R16 SP1, Win XP Prof SP2, Office 2003, VS 2005, VB 6
|
erstellt am: 13. Nov. 2007 18:47 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
Moin! Mit VBA und dem folgenden niedlichen kleinen Dreizeiler werden alle Steuerelemente (ich habe das als Icon verstanden) gelöscht. Code:
For Each Item In ActiveSheet.Shapes
Item.Delete
Next
Bei Fragen, fragen!!!
Edit:
So geht das auch mit den Hyperlinks
Code:
For Each Item In ActiveSheet.Hyperlinks
Item.Delete
Next
Aber Achtung: je mehr Items vorhanden sind, desto länger dauert es!!! Und das hat bei mir (10^5 Hyperlinks und Steuerelemente mal testweise hinzugefügt und wieder gelöscht) eín paar Augenblicke dauern (so ca. 2,5 min). Grüße, Ole [Diese Nachricht wurde von okl am 13. Nov. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Beverly
Mitglied
Dipl.-Geologe (Rentner)
Beiträge: 394
Registriert: 11.08.2007
|
erstellt am: 13. Nov. 2007 20:00 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
Hi, die einfachste Möglichkeit Sub shapes_loeschen()
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub Sub hyperlinks_loeschen()
ActiveSheet.Hyperlinks.Delete
End Sub
------------------
Bis später,
Karin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de (alle Foren)
| 
