Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

sorteren gevulde cellen bovenaan

489 views
Skip to first unread message

jose

unread,
Jan 2, 2005, 5:05:31 AM1/2/05
to
Wanneer ik kolom a en b wilt sorteren van
rij 10 t/m 25 maar in cel a15 t/m b20 staat
niets, dan krijg ik eerste de lege cellen
en onder aan de gevulde cellen.
De vraag is hoe krijg ik de gevulde cellen bovenaan
en de lege cellen onderaan.

Quandan - Marcel Kreijne

unread,
Jan 2, 2005, 10:34:33 AM1/2/05
to
Jose,

Ik heb het vermoeden dat de "lege cellen" waar je het over hebt niet echt
leeg zijn. Waarschijnlijk staat er een spatie of een quootje (') in die
cellen die bovenaan terecht komen bij het sorteren. Je kunt dit probleem op
twee manieren oplossen:

De "lege cellen" echt leeg maken of
de lijst aflopend sorteren in plaats van oplopend.

Met vriendelijke groet,

Marcel Kreijne
Quandan - Steunpunt voor spreadsheetgebruikers
www.quandan.nl

"jose" <anon...@discussions.microsoft.com> schreef in bericht
news:05f901c4f0b2$97abf350$a501...@phx.gbl...

Jose

unread,
Jan 2, 2005, 1:59:13 PM1/2/05
to
Hoe kan ik dan "lege cellen" echt leeg maken"
als dit door elkaar staat.
Jose
>-----Oorspronkelijk bericht-----
>.
>

jan

unread,
Jan 2, 2005, 2:39:12 PM1/2/05
to
Jose,

Sorteer op de betreffende kolom.
De z.g. lege cellen komen nu bovenaan.
Selecteer deze cellen en druk op de knop Delete van je toetsenbord.
Sorteer de kolom opnieuw en je zult zien dat de nu echt lege cellen niet
meer bovenaan komen.

Jan

Quandan - Marcel Kreijne

unread,
Jan 2, 2005, 2:45:28 PM1/2/05
to
Wat staat er in de "lege cellen" als je er op gaat staan? Staat er een ' in
de formulebalk?
Als je op F2 druk (bewerken formule) kun je dan met de pijltjes heen en weer
gaan (kortom, staat er een spatie?)

Spaties zijn eenvoudig te verwijderen door in de menubalk te kiezen voor
Bewerken / Vervangen
Zoeken naar (spatie invullen)
Vervangen door (leeg laten)
en Identieke celinhoud aanvinken.
Klik op Alles Vervangen.

Als er ' in staan wordt het wat lastiger... laat het in dat geval nog even
weten.

groetjes,

Marcel

"Jose" <anon...@discussions.microsoft.com> schreef in bericht
news:0b4e01c4f0fd$26364720$a301...@phx.gbl...

Quandan - Marcel Kreijne

unread,
Jan 2, 2005, 2:46:51 PM1/2/05
to
uiteraard is de oplossing van Jan ook prima!

"Quandan - Marcel Kreijne" <marcel...@quandan.nl> schreef in bericht
news:...

Jose

unread,
Jan 2, 2005, 3:35:12 PM1/2/05
to
In de cellen staat geen spatie of ' maar als
ik Delete, dan gaat het wel goed.
Maar in de cellen is niets te zien.
Jose

>-----Oorspronkelijk bericht-----

>.
>

Jose

unread,
Jan 2, 2005, 3:37:15 PM1/2/05
to
Ja maar, dan is dit elke keer veel werk!!!
Want de lege cellen is elke keer anders,
maar het werkt wel.
Jose
>-----Oorspronkelijk bericht-----
>.
>

jan

unread,
Jan 2, 2005, 3:51:57 PM1/2/05
to
Jose,

Waardoor worden deze cellen gevuld?
Is dat door plakken vanuit een ander bestand, eventueel via een macro?
Staan er formules in de cellen?
De cellen die wel waardes bevatten, is de inhoud tekst of staan er getallen
in. In het laatste geval is er nog wel een snelle methode om iets te doen.
Kun je overweg met VBA, dan is er ook wel wat te doen.

Jan


Jose

unread,
Jan 2, 2005, 4:06:52 PM1/2/05
to
De cellen worden gevuld met waarde plakken.
In alle cellen staat een formule.
En in elke staat tekst of getallen
Wanneer de waarde geplakt is, dan staat er in somige cellen
dus niets en in andere tekst of getallen.
Dus na waarde plakken geen formules meer in cellen.
Jose

>-----Oorspronkelijk bericht-----

>.
>

jan

unread,
Jan 2, 2005, 4:50:45 PM1/2/05
to
Jose,

Met onderstaande code, geplakt in een algemene module, kun je de cellen met
een lege string (""), echt leegmaken:

Sub LeegIsLeeg()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange
If Not rng.HasFormula Then
If Len(rng) = 0 Then
rng = Null
End If
End If
Next
End Sub

Deze code doorzoekt het hele in gebruikzijnde gebied. Dat zou je eventueel
kunnen beperken tot het doorzoeken van een geselecteerd gebied.

Een andere methode zou de volgende kunnen zijn.
Hier vervang je de opdracht Plakken Speciaal> Waarden door onderstaande
code.
Daarin wordt na het plakken, het geplakte gebied doorzocht op tekst met
lengte 0. Deze wordt vervangen door "qqqq"
Vervolgens wordt deze weer vervangen door een lege waarde, die nu echt leeg
is.

Sub PlakkenSpeciaalENLeeg()
If Application.CutCopyMode = xlCopy Then
Selection.PasteSpecial Paste:=xlPasteValues
Selection.Replace What:="", Replacement:="qqqq", LookAt:=xlWhole, _
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="qqqq", Replacement:="", LookAt:=xlWhole, _
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
End Sub

Jan


Jose

unread,
Jan 3, 2005, 3:15:30 AM1/3/05
to
Jan,
Bedankt.
Jose
>-----Oorspronkelijk bericht-----
>.
>
0 new messages