Hele waarde uit cel halen

[TheoR]

Kenners,


Situatie is als volgt:

Ik heb een cel met het getal 14 daarin. Doormiddel van de opmaak wordt hij weergegeven als A0.14 (opmaak: "A0."00)

Nu wil ik dat gebruiken in een andere cel. MAAR ik wil ook dat hij de A0. erbij pakt, dus niet alleen de 14, is dat mogelijk?
Dus de gehele waarde, inclusief opmaak.

 

[sylvester-ponte]

hoi TeoR

heb je al wat geprobeerd?
bv kopiëren en dan plakken
of = in tikken in een cel en dan klikken op de cel waar je opgemaakte waarde staat en dan enter.

groet
Sylvester

 

[TheoR]

Ja, ik heb al het één en ander geprobeerd. Anders was ik hier niet geweest... weet hoe een forum werkt, en het is Theo
[/mierenneuker]



Het probleem is dat ik de waarde met opmaak wil gebruiken in een formule (vert.zoeken). Die ziet alleen de inhoud, niet de opmaak. Is dit te regelen?

 

[robdgr]

Theo,

Waarom niet gewoon

="A0."&A1

 

[TheoR]

Omdat het ook A1. B0. B1. kan zijn...

 

[WHER]

Misschien is dit een mogelijke aanpak?

 

[TheoR]

Ja, dat werkt!

Wel een iets wat omslachtige manier... en vreemd dat je de functie CEL.LEZEN() niet direct in het werkblad kan gebruiken.


Bedankt!

 

[snb]

Het kan ook met een zelfgemaakte funktie (UDF)

Function A_tekst(c0 As Range)
    A_tekst = c0.Text
End Function

zet in een cel:

=A_tekst(A1)

@Wher
Kun jij vertellen waar je die cel.lezen vandaan hebt en waar daarover meer informatie staat ?

 

[robdgr]

Kun jij vertellen waar je die cel.lezen vandaan hebt en waar daarover meer informatie staat ?

Even googlen leverde ondermeer deze pagina op

 

[TheoR]

@snb, hoe maak ik die functie? Via knopje Visual Basic? Dan werkt het namelijk niet.

Heb je miss een voorbeeld bestandje?


===============


Edit: gelukt

 

[WHER]

snb,

Ik denk dat ik, naast de link die Rob reeds gaf, me gebaseerd heb op deze post:
http://www.mrexcel.com/forum/showthread.php?t=20611

TheoR,

Ik meen ergens te hebben gelezen dat, indien je Morefunc installeert, je deze functie wel rechtstreeks in het werkblad kunt gebruiken in de vorm "=xlm.get.cell(etc.)

 

[snb]

@Wher

Dankjewel.
Na lezing van JPK's pagina lijkt mij mijn UDF simpeler. JPK geeft ook aan dat het een manier is om eigenschappen binnen te halen die verder alleen met VBA mogelijk zijn. Daarvoor is een UDF prima geschikt.

werkwijze:
maak een macromodule
zet daarin de code van de funktie (Function... t/m ... End Function )
zet in een cel van een werkblad =A_tekst(XX)
waarbij XX de naam van een andere cel is. (A4, of Blad2!C12, etc)