Toon posts:

[Excel] meerdere cellen met platte tekst in formule omzetten

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

Verwijderd

Topicstarter
ik heb in een tekstverwerker allerlei ingenieuze formules gemaakt, die ik in mijn excelsheet geplakt heb. nou worden deze waarden als platte tekst gepakt. om te zorgen dat deze strings als formule geaccepteerd worden, kan ik telkens op F2 en enter drukken, maar aangezien het 10000en cellen zijn, vind ik dat een beetje zonde van m'n tijd.

is er een mogelijkheid om al die cellen platte tekst in 1 keer om te zetten in formules?

Verwijderd

Begint elke formule met deze tekens? Want dan kan je vervangen door dezelfde tekens met een = ervoor.

Bijv:

A1+A2

vervang A1 met =A1

Anders kan misschien VBA uitkomst bieden maar daar heb ik geen verstand van :P

  • onkl
  • Registratie: Oktober 2002
  • Laatst online: 04:24
VBA kan dat idd.
Probeer eens:
code:
1
2
3
4
5
6
7
sub omzetten
dim gebied as range
set range  = activesheet.selection
for each cel in range
cel.formula = cel.formula
next cel
end sub

zou wel eens kunnen helpen.
Ik ben een beetje uit de losse pols aan't typen, dus check even op typefouten.

Weet niet hoeveel je van VBA weet, idee is: plak dit in een module, selecteer de cellen waar het over gaat, run deze macro.

Verwijderd

Topicstarter
nada, ik weet niets van VB. ik selecteer zo'n 20000 cellen, run het script en ik krijg de error:

compileerfout:

het argument is niet optioneel

"Range =" wordt hierbij gehighlight. ik zal me zeker in VB gaan verdiepen, maar ik heb nu resultaat nodig, dus zou iemand zo vriendelijk willen zijn het foutje op te sporen?

  • Belgar
  • Registratie: Januari 2002
  • Laatst online: 22-09 09:37

Belgar

Archmaster ranzige code..

set gebied = activesheet.selection ??

...Als het maar werkt


  • onkl
  • Registratie: Oktober 2002
  • Laatst online: 04:24
* onkl schaamt zich diep
Zaten er nog een paar in. Probeer deze eens:

code:
1
2
3
4
5
6
7
8
Sub omzetten()
Dim gebied As Range
Dim cel As Range
Set gebied = Selection
For Each cel In gebied
cel.Formula = cel.Formula
Next cel
End Sub


* onkl moet minder uit de losse hand gaan typen en even kijken wat'ie post
Succes ermee
Pagina: 1