Alle hyperlinks verwijderen in een excel document ??

Pagina: 1
Acties:
  • 879 views sinds 30-01-2008
  • Reageer

Anoniem: 27786

Topicstarter
Hoe gaat dat in zijn werk ?
Ik kan wel iedere hyperlink per stuk verwijderen, maar dat zijn er Te veel.

Heeft iemand een oplossing?
Met control A , alles selecteren en dan......

Ik heb nog geen oplossing.

Alvast bedankt,

Groeten.

  • Blizard
  • Registratie: September 2001
  • Niet online
Van excel zelf :
Type the number 1 in a blank cell, and right-click the cell.
Click Copy on the shortcut menu.
While pressing CTRL, select each hyperlink you want to deactivate.
How?

To select a cell that has a hyperlink in it without jumping to the hyperlink destination, click the cell and hold the mouse button until the cursor becomes a cross , then release the mouse button.
Click Paste Special on the Edit menu.
Under Operation, click Multiply and then click OK.

Indien je geen engels verstaat laat het dan even weten, dan vertalen we het eventjes ...

<edit>
Ik doe soms ook nog : ctrl a en dan naar kladblok en dan vanuit kladblok terug naar excel ...
En groeten zijn niet nodig op got ;) ... iedereen apprecieert iedereens hulp hier (lees maar ff de policy) maar toch graag gedaan
</edit>

[ Voor 22% gewijzigd door Blizard op 21-08-2003 17:53 ]


Anoniem: 27786

Topicstarter
Dat werkt.. maar het is te veel werk als er erg veel hyperlinks inzitten die er niet horen te zitten. Ook hyperlinks waarbij er niets geschreven staat in de cel.

Ik zoek dus een een oplossing om in 1 klap geen enkele hyperlink in mijn werkblad te hebben.

:) Ik kom hier niet zo vaak, een groet moet kunnen ? :)

  • BtM909
  • Registratie: Juni 2000
  • Niet online

BtM909

Watch out Guys...

Of je stapt de wondere wereld van VBA in :)

Visual Basic:
1
2
3
4
5
6
7
Sub removeHyperlinks()

    For Each hypLink In ActiveSheet.Hyperlinks
        hypLink.Delete
    Next

End Sub

Ace of Base vs Charli XCX - All That She Boom Claps (RMT) | Clean Bandit vs Galantis - I'd Rather Be You (RMT)
You've moved up on my notch-list. You have 1 notch
I have a black belt in Kung Flu.


Anoniem: 27786

Topicstarter
:S Waar kan ik zoiets in Excel invoeren ?
Is er geen andere oplossing ?

  • F_J_K
  • Registratie: Juni 2001
  • Niet online

F_J_K

Moderator CSA/PB

Front verplichte underscores

Anoniem: 27786 schreef op 21 augustus 2003 @ 18:51:
:S Waar kan ik zoiets in Excel invoeren ?
Is er geen andere oplossing ?
Ik zou eens goed kijken naar de mogelijkheden van Excel. Dit is namelijk veruit de makkelijkste mogelijkheid en je hebt je hele verdere 'Office-carriere' veel aan het leren van VBA ;)

Maar goed: Extra -> Tools -> Macro -> VB Editor. En dan in je sheet of onder een module de code plakken. Dan kan je in Excel zelf de macro afspelen via bovenstaande menu. Maar als ik jou was zou ik eens een tutorial of twee doorlopen (of gewoon een uurtje spelen met de vele knoppen in Excel ewn wat spelen met de macro-opneemknop).

'Multiple exclamation marks,' he went on, shaking his head, 'are a sure sign of a diseased mind' (Terry Pratchett, Eric)


Acties:
  • 0 Henk 'm!

Anoniem: 27786

Topicstarter
Het volgende macro heb ik uitgevoerd:

Sub removeHyperlinks()

For Each hypLink In ActiveSheet.Hyperlinks
hypLink.Delete
Next

End Sub


Alleen krijg ik nu een foutmelding:

Systeemfout &H80010108 (-2147417848). The object invoked has disconnected from its clients....

:(

Acties:
  • 0 Henk 'm!

Anoniem: 27786

Topicstarter
Dan loopt excel ook vast, herstelt zich en start opnieuw op, en mis ik vanalles in het document.
:(
Pagina: 1