Ceasar, heb je hier iets aan?

Groet, Leo

JC, Hmmmm... tja, dat had ik niet gezien... Dat het een pagina van Excel2007 was. Maar wellicht heb je dan hier meer aan?

Groet, Leo

bedankt voor jullie aandacht,

maar de oplossing is blijkbaar niet zo simpel.

voor de zekerheid en de kans te verminderen op fouten wordt in een andere toepassing het getal gekopieerd en in excell geplakt.

het is alsof er een onzichtbare ' er voor wordt geplakt.
ik los het voorlopig nog op met in de formulebalk voor het getal te staan en de terugspring toets in te drukken.

met het uitschakelen zoals Eric voorstelt, maakt het ook niet uit. er wordt een tekst toegevoegd ipv een getal.

de celeigengenschap van de cel is wel degelijk getal.

ik controleer dat door een som boven de kolom, die dan niet verandert als er een getal bijgevoegd wordt.

door het clipboard te bekijken zie ik ook niets abnormaals.

ik krijg er de zenuwen van, maar misschien is er toch nog iets over het hoofd gezien?

groeten
JC

 

Caesar,

Je oorspronkelijke vraag leek voor mij enkel te zijn om de foutmelding niet te krijgen. Vandaar mijn eerste voorstel.

Als je cellen correct zijn opgemaakt en je verder alles hebt gedaan wat nodig is om "echte" getallen te krijgen, zie ik enkele oplossingen.
1. de "moeilijkste":
via een macro
de inhoud van je klembord naar een matrix sturen
daar alles omzetten naar echte getallen
dan pas plakken
2a. als de getallen in 1 kolom staan:
manuele oplossing
alles selecteren
menu data/tekst naar kolommen
klik "voltooien"
2b. als de getallen in meerdere kolommen staan (werkt ook in 1 kolom)
tijp het getal 1 in een cel
copieer de cel (Ctrl+C)
selecteer bereik wat je wil omzetten naar echte getallen
rechtsklik "plakken speciaal"
selecteer "waarden" & onderaan "vermenigvuldigen"
2c. uiteraard kan dit naar een macro worden omgezet

Er zijn nog mogelijkheden...

fijne dag verder!
Erik

Ceasar,

heb je mijn suggesties gezien ?
beide procedures zoals ik hoger beschreef lossen het probleem op

Caesar, Zomaar ff een dingetje uit de losse pols... Als je niet teveel 'om te zetten cellen' hebt, zou je ook gebruik kunnen maken van dit stukje VBA...Sub TextToNumber()
'verwijder de foutmelding 'The number in this cell is formatted as text or preceded by an apstrophe.'
 Dim rng As Range
   
    For Each rng In Selection.CurrentRegion
        If Not (IsEmpty(rng.Value)) And IsNumeric(rng.Value) Then
            rng.Value = Val(rng.Value)
        End If
    Next
           
End Sub
De nadruk ligt vooral op 'niet teveel cellen'. De code gaat namelijk iedere cel af in je range. Kijkt of het een getal is. En zo ja, zet deze dan om in een 'echt'getal....Er wordt gewerkt met de currentregion methode. je gaat dus ergens in je tabel staan die je wilt omzetten, de 'currentregion' zorgt dan voor het bepalen van het bereik...

Groet, Leo

Erik, op je vraag...

waarom die lange omweg, cel per cel ?

...kan ik alleen maar zeggen dat dat nog het gebrek aan kennis is in de wereld van VBA...
_{(ik ben nu zo'n 2 jaar hier mee bezig en ben toch al behoorlijk tevreden met het behaalde resultaat... )}

Daarom vind ik het zeker prettig dat jij hier nu óók oplossingen aandraagt. Dat geeft mij de kans om me toch weer verder te verdiepen in de materie!

En voor wat betreft je stukje code... DAAR had ik NOOIT opgekomen. Werkt super!

Groet, Leo