inverse van cellen in excel

[ervel]

Hoi,

Ik wil graag de inverse van geselecteerde cellen hebben.

Ik bedoel het volgende:
Geselecteerde cellen kunnen of leeg zijn of er kan tekst, een getal of een formule in staan.

Ik zou graag hebben dat:
1e: de inhoud van alle geselecteerde lege cellen gevuld wordt met bijvoorbeeld de letter X.
2e: de inhoud van alle geselecteerde gevulde cellen wordt gewist.

Vraagje: Is daar en bepaalde formule voor, of heb je hier een macro voor nodig? En natuurlijk, heb je enig idee waar ik die macro dan zou kunnen vinden? Mijn gezoek in allerlei forums heeft tot nu toe nog niets opgeleverd.

Kan iemand mij helpen?

ervel


'Wie nimmer dwaalt, wordt nooit verstandig'

 

[Roncancio]

Tja.
Een functie zal niet werken maar je hoeft ook geen macro te schrijven.
Bijv.
- Selecteer het bereik
- Ga naar Bewerken - Ga naar - Speciaal ...
- Selecteer lege waarden

Alle lege cellen in het bereik zijn nu geselecteerd.

- Type in: x
- Druk (gelijktijdig) op CTRL-ENTER.

Alle lege cellen hebben nu een x als waarde.

Met vriendelijke groet,


Roncancio

 

[ervel]

Ok,

Heel hartelijk bedankt voor je antwoord Roncancio: het werkt! :thumb:
simpel als je het zo leest.

Echter het 2e deel:
Nu wil ik nog alle cellen waar iets anders instaat dan de letter x wissen.
Ik durf het bijna niet te vragen. Gaat dit ook zo gemakkelijk?

ervel

'Wie nimmer dwaalt, wordt nooit verstandig.'

 

[Ginger]

Ervel, als je wil, kan 't wel in 1 keer met een (kleine) macro...

Sub InverseCellen()
Dim rVol As Range
Dim rLeeg As Range

    Set rVol = Selection.SpecialCells(xlCellTypeConstants)
    Set rLeeg = Selection.SpecialCells(xlCellTypeBlanks)
    
    rVol.Value = ""
    rLeeg.Value = "x"

End Sub

Selecteer het bereik waar de omzetting moet plaatsvinden en laat de code lopen.

Groet, Leo

 

[Wigi]

Ervel, als je wil, kan 't wel in 1 keer met een (kleine) macro...

Sub InverseCellen()
Dim rVol As Range
Dim rLeeg As Range

    Set rVol = Selection.SpecialCells(xlCellTypeConstants)
    Set rLeeg = Selection.SpecialCells(xlCellTypeBlanks)
    
    rVol.Value = ""
    rLeeg.Value = "x"

End Sub

Selecteer het bereik waar de omzetting moet plaatsvinden en laat de code lopen.

Groet, Leo

Leo

Niet enkel de constanten nemen, ook de formules.

 

[Wigi]

http://www.microsoft.com/communitie...8d0-b02b-a756cc4441f5&lang=nl&cr=BE&sloc=&p=1

 

[Ginger]

Leo

Niet enkel de constanten nemen, ook de formules.

Yep! Gisteren in de snelheid niet aan gedacht. Dank voor je aanvulling.
Voor de compleetheid nog ff 't aangvulde codeblokje...

Sub InverseCellen()
Dim rVol As Range
Dim rLeeg As Range
Dim rFormule As Range

    Set rVol = Selection.SpecialCells(xlCellTypeConstants)
    Set rLeeg = Selection.SpecialCells(xlCellTypeBlanks)
    Set rFormule = Selection.SpecialCells(xlCellTypeFormulas)
    
    rVol.Value = ""
    rLeeg.Value = "x"
    rFormule.Value = ""

End Sub

Groet, Leo

 

[ervel]

Nou, nou,

Ik ben erg verbaasd over hoe snel ik antwoord kreeg.
Dit is precies wat ik vroeg.
Je kunt de macro , merk ik, ook aanpassen om een andere tekst in de cellen te plaatsen.

Ginger en Wigi heel erg bedankt voor jullie oplossing.

Het gevolg is dat ik nu zelf in de wereld van de macros ga duiken.

ervel

'Wie nimmer dwaalt, wordt nooit verstandig.'

 

[Ginger]

Ervel, graag gedaan. Zet je deze (en die op die andere site + daar linkje naar deze oplossing) nog ff op opgelost?

Groet, Leo