Automatisch sorteren

[Outlook 2003 installeren]

Ik heb een excel bestandje met twee kolommen. In de eerste kolom staan onder
elkaar 16 namen, in de tweede kolom staan op gelijk hoogte als de namen
punten (cijfers) die bij de respectievelijke namen horen.
Is het mogelijk dat wanneer ik de punten (cijfers) wijzig het bestand
automatisch wordt gesorteerd en zo ja kan iemand mij een voorbeeldje maken.
Voor deze Willie Wortel hatelijk dank.

[Jan B.]

Outlook,

vraag1:
waarop moet worden gesorteerd: namen of cijfers ?
vraag2:
wanneer moet worden gesorteerd :
telkens als er een cijfer is gewijzigd ?
of als je klaar bent, dus met een knop ?
--
met vriendelijke groet,
Jan B.

Post by Outlook 2003 installeren
Ik heb een excel bestandje met twee kolommen. In de eerste kolom staan onder
elkaar 16 namen, in de tweede kolom staan op gelijk hoogte als de namen
punten (cijfers) die bij de respectievelijke namen horen.
Is het mogelijk dat wanneer ik de punten (cijfers) wijzig het bestand
automatisch wordt gesorteerd en zo ja kan iemand mij een voorbeeldje maken.
Voor deze Willie Wortel hatelijk dank.

[Outlook 2003 installeren]

Hallo Jan,

Ja dom van mij dat hed ik er bij moeten vermelden.
1 op de tweede kolom, dus het cijfer moet gesorteedr worden, terwijl wel de
naam moet worden meegenomen
2 Het maakt in principe niet uit of dit direct na invoer van het nieuwe
cijfer is of na invoer en vervolgens het sorteren starten middels een druk op
de knop.

Het zou fijn zijn als je mij kan helpen.

Post by Jan B.
Outlook,
waarop moet worden gesorteerd: namen of cijfers ?
telkens als er een cijfer is gewijzigd ?
of als je klaar bent, dus met een knop ?
--
met vriendelijke groet,
Jan B.

Post by Outlook 2003 installeren
Ik heb een excel bestandje met twee kolommen. In de eerste kolom staan onder
elkaar 16 namen, in de tweede kolom staan op gelijk hoogte als de namen
punten (cijfers) die bij de respectievelijke namen horen.
Is het mogelijk dat wanneer ik de punten (cijfers) wijzig het bestand
automatisch wordt gesorteerd en zo ja kan iemand mij een voorbeeldje maken.
Voor deze Willie Wortel hatelijk dank.

[Jan B.]

als je met een knop werkt dan luidt de subroutine eenvoudig:

Sub sorteren()
Range("A1:B17").Sort key1:=Range("B1"), header:=xlYes
End Sub

een stukje dus uit die andere oplossing van die andere Jan.
--
met vriendelijke groet,
Jan B.

Post by Outlook 2003 installeren
Hallo Jan,
Ja dom van mij dat hed ik er bij moeten vermelden.
1 op de tweede kolom, dus het cijfer moet gesorteedr worden, terwijl wel de
naam moet worden meegenomen
2 Het maakt in principe niet uit of dit direct na invoer van het nieuwe
cijfer is of na invoer en vervolgens het sorteren starten middels een druk op
de knop.
Het zou fijn zijn als je mij kan helpen.

Post by Jan B.
Outlook,
waarop moet worden gesorteerd: namen of cijfers ?
telkens als er een cijfer is gewijzigd ?
of als je klaar bent, dus met een knop ?
--
met vriendelijke groet,
Jan B.

Post by Outlook 2003 installeren
Ik heb een excel bestandje met twee kolommen. In de eerste kolom staan onder
elkaar 16 namen, in de tweede kolom staan op gelijk hoogte als de namen
punten (cijfers) die bij de respectievelijke namen horen.
Is het mogelijk dat wanneer ik de punten (cijfers) wijzig het bestand
automatisch wordt gesorteerd en zo ja kan iemand mij een voorbeeldje maken.
Voor deze Willie Wortel hatelijk dank.

[jan]

Zo zou dat kunnen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("A1:B17").Sort key1:=Range("B1"), header:=xlYes
End If
End Sub

aangenomen dat de gegevens in kolom A en B staan met in rij 1 een titel per kolom

Jan

[Outlook 2003 installeren]

Hallo Jan,
Waar moet ik dan de regels vanaf "Private SUb etc" tot en met "End Sub"
opnemen?

Groet en dank

Ton.

Post by jan
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("A1:B17").Sort key1:=Range("B1"), header:=xlYes
End If
End Sub
aangenomen dat de gegevens in kolom A en B staan met in rij 1 een titel per kolom
Jan

[Outlook 2003 installeren]

Hallo Jan,
Klin kt goed maar waar moet ik de regel vanaf "Private SUB...." t/m "End
Sub" wegschrijven?

Alvast dank voor de moeite.

Ton

Post by jan
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("A1:B17").Sort key1:=Range("B1"), header:=xlYes
End If
End Sub
aangenomen dat de gegevens in kolom A en B staan met in rij 1 een titel per kolom
Jan

[jan]

Ton,

Druk, als je het betreffende bestand geopend voor je hebt, op Alt+F11.
Nu opent het VBA-scherm.

Links zie je de Projectverkenner met daarin o.a. de namen van de werkbladen.
Dubbelklik op de naam van het werkblad waar het om gaat.
Rechts krijg je nu de module behorend bij dit werkblad.
Plak hierin de code uit m'n vorige bericht.

Sluit het VBA-scherm.

Nu werkt het sorteren.
Zodra je een punt aanpast, wordt er opnieuw gesorteerd.

Jan

Post by Outlook 2003 installeren
Hallo Jan,
Klin kt goed maar waar moet ik de regel vanaf "Private SUB...." t/m "End
Sub" wegschrijven?
Alvast dank voor de moeite.
Ton

Post by jan
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("A1:B17").Sort key1:=Range("B1"), header:=xlYes
End If
End Sub
aangenomen dat de gegevens in kolom A en B staan met in rij 1 een titel per kolom
Jan

[Outlook 2003 installeren]

Hallo Jan,

Het werk klasse, er is een maartje de sortering geschied oplopend dus van
laag (beginnend) naar hoog. Ik heb dit graag andersom, wat moet ik aan passen?

Dank en prettig weekend.

Ton.

Post by jan
Ton,
Druk, als je het betreffende bestand geopend voor je hebt, op Alt+F11.
Nu opent het VBA-scherm.
Links zie je de Projectverkenner met daarin o.a. de namen van de werkbladen.
Dubbelklik op de naam van het werkblad waar het om gaat.
Rechts krijg je nu de module behorend bij dit werkblad.
Plak hierin de code uit m'n vorige bericht.
Sluit het VBA-scherm.
Nu werkt het sorteren.
Zodra je een punt aanpast, wordt er opnieuw gesorteerd.
Jan

Post by Outlook 2003 installeren
Hallo Jan,
Klin kt goed maar waar moet ik de regel vanaf "Private SUB...." t/m "End
Sub" wegschrijven?
Alvast dank voor de moeite.
Ton

Post by jan
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("A1:B17").Sort key1:=Range("B1"), header:=xlYes
End If
End Sub
aangenomen dat de gegevens in kolom A en B staan met in rij 1 een titel per kolom
Jan

[jan]

Ton,

Dan moet het argument "order1" worden toegevoegd en op aflopend worden gezet:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("A1:B17").Sort key1:=Range("B1"), _
order1:=xlDescending, header:=xlYes
End If
End Sub

Jan

[Outlook 2003 installeren]

Hallo Jan,

Het werk als een tierelier, dit bespaart me wekelijks veel werk (voor de
vereniging)

Hartelijk dank voor de moeite. en een prettig weekend

Ton

Post by jan
Ton,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("A1:B17").Sort key1:=Range("B1"), _
order1:=xlDescending, header:=xlYes
End If
End Sub
Jan

[Arend]

Ik was er ook even mee aan het stoeien(met een oud WK-poule) en kan niet
goed ontdekken hoe ik dit kan doen met 3 kolommen waarbij ik in vanaf a10 nr
1 t/m 6 heb staan, Vanaf b10 de namen en vanaf c10 de punten.

Groet,
Arend


"Outlook 2003 installeren"

Post by Outlook 2003 installeren
Hallo Jan,
Het werk als een tierelier, dit bespaart me wekelijks veel werk (voor de
vereniging)
Hartelijk dank voor de moeite. en een prettig weekend
Ton

Post by jan
Ton,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Range("A1:B17").Sort key1:=Range("B1"), _
order1:=xlDescending, header:=xlYes
End If
End Sub
Jan

[jan]

Arend,

Dat zou zo kunnen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Range("A10:C100").Sort key1:=Range("C10"), order1:=xlDescending,
header:=xlYes
End If
End Sub

Daarbij heb ik aangenomen dat in rij 10 de titels van de kolommen staan.

Jan

[Arend]

Bedankt Jan, ik had een foutje gemaakt door kolom A mee te tellen, maar dat
kon ik eenvoudig aanpassen.
Is het ook mogelijk dat als mensen hetzelfde aantal punten hebben, dat het
er zoals onderstaande komt uit te zien. Dat 3 dus wegvalt omdat op plaats 2,
twee met hetzelfde aantal punten zijn en dat hij dan weer doortelt met 4

A B C
1) jansen 50
2) brouwer 45
martens 45
4) de vries 40

Groet,
Arend

Post by jan
Arend,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Range("A10:C100").Sort key1:=Range("C10"), order1:=xlDescending,
header:=xlYes
End If
End Sub
Daarbij heb ik aangenomen dat in rij 10 de titels van de kolommen staan.
Jan

[jan]

Arend,

Ik dacht dat in kolom A een soort klasse-indeling stond, maar zo te zien staat daar
a.h.w. de rangorde.
Hoe worden de waarden in kolom A nu bepaald?
Gebruik je daar een formule voor?

Jan

[Arend]

Hoi Jan,
Nee, ik had er gewoon handmatig 1, 2 enz. ingezet.

Groet,
Arend

Post by jan
Arend,
Ik dacht dat in kolom A een soort klasse-indeling stond, maar zo te zien
staat daar a.h.w. de rangorde.
Hoe worden de waarden in kolom A nu bepaald?
Gebruik je daar een formule voor?
Jan

[jan]

Arend,

Plaats

=RANG(C11;$C$11:$C$26)

in A11 en voer deze formule door tot (in dit geval) A26.

Nu staat in kolom A de rangorde van de punten in kolom C.
Doordat kolom C gesorteerd is, krijg je dus in kolom A ook een gesorteerde reeks.

Bedoel je dit?
Met voorwaardelijke opmaak, of met een wat uitgebreidere formule kun je eventueel
opvolgend gelijke waarden verbergen.

Jan

[Arend]

Hoi Jan,
Super, bedankt.
De vba formule moet je zeker aanpassen als je die gelijk voor de hele map
wilt laten gelden.
Plaats je die dan in This Workbook met een aanpassing?

Groet,
Arend

Post by jan
Arend,
Plaats
=RANG(C11;$C$11:$C$26)
in A11 en voer deze formule door tot (in dit geval) A26.
Nu staat in kolom A de rangorde van de punten in kolom C.
Doordat kolom C gesorteerd is, krijg je dus in kolom A ook een gesorteerde reeks.
Bedoel je dit?
Met voorwaardelijke opmaak, of met een wat uitgebreidere formule kun je
eventueel opvolgend gelijke waarden verbergen.
Jan

[jan]

Arend,

Wat moet de code doen wil deze voor de hele map gelden?
Bedoel je dat er ook gegevens in de andere werkbladen op dezelfde posities staan,
waarop de (automatische) sortering ook van kracht moet zijn?

Je kunt dan inderdaad iets doen met de gebeurtenis Workbook_SheetChange van
ThisWorkbook. Wat, is uiteraard afhankleijk van wat er precies moet gebeuren.

Jan

Post by Arend
Hoi Jan,
Super, bedankt.
De vba formule moet je zeker aanpassen als je die gelijk voor de hele map wilt
laten gelden.
Plaats je die dan in This Workbook met een aanpassing?
Groet,
Arend

Post by jan
Arend,
Plaats
=RANG(C11;$C$11:$C$26)
in A11 en voer deze formule door tot (in dit geval) A26.
Nu staat in kolom A de rangorde van de punten in kolom C.
Doordat kolom C gesorteerd is, krijg je dus in kolom A ook een gesorteerde reeks.
Bedoel je dit?
Met voorwaardelijke opmaak, of met een wat uitgebreidere formule kun je eventueel
opvolgend gelijke waarden verbergen.
Jan

[Arend]

Hoi Jan,
Ja, alles staat op dezelfde plek in de verschillende bladen.

Groet,
Arend

Post by jan
Arend,
Wat moet de code doen wil deze voor de hele map gelden?
Bedoel je dat er ook gegevens in de andere werkbladen op dezelfde posities
staan, waarop de (automatische) sortering ook van kracht moet zijn?
Je kunt dan inderdaad iets doen met de gebeurtenis Workbook_SheetChange
van ThisWorkbook. Wat, is uiteraard afhankleijk van wat er precies moet
gebeuren.
Jan

Post by Arend
Hoi Jan,
Super, bedankt.
De vba formule moet je zeker aanpassen als je die gelijk voor de hele map
wilt laten gelden.
Plaats je die dan in This Workbook met een aanpassing?
Groet,
Arend

Post by jan
Arend,
Plaats
=RANG(C11;$C$11:$C$26)
in A11 en voer deze formule door tot (in dit geval) A26.
Nu staat in kolom A de rangorde van de punten in kolom C.
Doordat kolom C gesorteerd is, krijg je dus in kolom A ook een gesorteerde reeks.
Bedoel je dit?
Met voorwaardelijke opmaak, of met een wat uitgebreidere formule kun je
eventueel opvolgend gelijke waarden verbergen.
Jan

[jan]

Arend,

Of je plaatst bij elk werkblad de code zoals je die nu bij 1 blad hebt geplaatst, of
je zet onderstaande code in de module behorend bij ThisWorkbook:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
Sh.Range("B10:C100").Sort key1:=Sh.Range("C10"), _
order1:=xlDescending, key2:=Range("B10"), _
order2:=xlAscending, header:=xlYes
End If
End Sub

Er wordt ook nog op naam gesorteerd, met name van belang bij gelijk puntental.

Jan

Post by Arend
Hoi Jan,
Ja, alles staat op dezelfde plek in de verschillende bladen.
Groet,
Arend

Post by jan
Arend,
Wat moet de code doen wil deze voor de hele map gelden?
Bedoel je dat er ook gegevens in de andere werkbladen op dezelfde posities staan,
waarop de (automatische) sortering ook van kracht moet zijn?
Je kunt dan inderdaad iets doen met de gebeurtenis Workbook_SheetChange van
ThisWorkbook. Wat, is uiteraard afhankleijk van wat er precies moet gebeuren.
Jan

Post by Arend
Hoi Jan,
Super, bedankt.
De vba formule moet je zeker aanpassen als je die gelijk voor de hele map wilt
laten gelden.
Plaats je die dan in This Workbook met een aanpassing?
Groet,
Arend

Post by jan
Arend,
Plaats
=RANG(C11;$C$11:$C$26)
in A11 en voer deze formule door tot (in dit geval) A26.
Nu staat in kolom A de rangorde van de punten in kolom C.
Doordat kolom C gesorteerd is, krijg je dus in kolom A ook een gesorteerde reeks.
Bedoel je dit?
Met voorwaardelijke opmaak, of met een wat uitgebreidere formule kun je
eventueel opvolgend gelijke waarden verbergen.
Jan

[Arend]

Helemaal geweldig Jan, hartstikke bedankt.

Post by jan
Arend,
Of je plaatst bij elk werkblad de code zoals je die nu bij 1 blad hebt
geplaatst, of je zet onderstaande code in de module behorend bij
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
Sh.Range("B10:C100").Sort key1:=Sh.Range("C10"), _
order1:=xlDescending, key2:=Range("B10"), _
order2:=xlAscending, header:=xlYes
End If
End Sub
Er wordt ook nog op naam gesorteerd, met name van belang bij gelijk puntental.
Jan

Post by Arend
Hoi Jan,
Ja, alles staat op dezelfde plek in de verschillende bladen.
Groet,
Arend

Post by jan
Arend,
Wat moet de code doen wil deze voor de hele map gelden?
Bedoel je dat er ook gegevens in de andere werkbladen op dezelfde
posities staan, waarop de (automatische) sortering ook van kracht moet
zijn?
Je kunt dan inderdaad iets doen met de gebeurtenis Workbook_SheetChange
van ThisWorkbook. Wat, is uiteraard afhankleijk van wat er precies moet
gebeuren.
Jan

Post by Arend
Hoi Jan,
Super, bedankt.
De vba formule moet je zeker aanpassen als je die gelijk voor de hele
map wilt laten gelden.
Plaats je die dan in This Workbook met een aanpassing?
Groet,
Arend

Post by jan
Arend,
Plaats
=RANG(C11;$C$11:$C$26)
in A11 en voer deze formule door tot (in dit geval) A26.
Nu staat in kolom A de rangorde van de punten in kolom C.
Doordat kolom C gesorteerd is, krijg je dus in kolom A ook een gesorteerde reeks.
Bedoel je dit?
Met voorwaardelijke opmaak, of met een wat uitgebreidere formule kun
je eventueel opvolgend gelijke waarden verbergen.
Jan

[Arend]

Nog een vraagje Jan, over de vba code.
Als ik het wil uitbreiden met namen vanaf f10 en punten vanaf g10, hoe doe
ik dat.
Heb al verscheidene pogingen geprobeer met behulp van je code maar ik kom er
niet uit.

Groet,
Arend

Post by Arend
Helemaal geweldig Jan, hartstikke bedankt.

Post by jan
Arend,
Of je plaatst bij elk werkblad de code zoals je die nu bij 1 blad hebt
geplaatst, of je zet onderstaande code in de module behorend bij
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
Sh.Range("B10:C100").Sort key1:=Sh.Range("C10"), _
order1:=xlDescending, key2:=Range("B10"), _
order2:=xlAscending, header:=xlYes
End If
End Sub
Er wordt ook nog op naam gesorteerd, met name van belang bij gelijk puntental.
Jan

Post by Arend
Hoi Jan,
Ja, alles staat op dezelfde plek in de verschillende bladen.
Groet,
Arend

Post by jan
Arend,
Wat moet de code doen wil deze voor de hele map gelden?
Bedoel je dat er ook gegevens in de andere werkbladen op dezelfde
posities staan, waarop de (automatische) sortering ook van kracht moet
zijn?
Je kunt dan inderdaad iets doen met de gebeurtenis Workbook_SheetChange
van ThisWorkbook. Wat, is uiteraard afhankleijk van wat er precies moet
gebeuren.
Jan

Post by Arend
Hoi Jan,
Super, bedankt.
De vba formule moet je zeker aanpassen als je die gelijk voor de hele
map wilt laten gelden.
Plaats je die dan in This Workbook met een aanpassing?
Groet,
Arend

Post by jan
Arend,
Plaats
=RANG(C11;$C$11:$C$26)
in A11 en voer deze formule door tot (in dit geval) A26.
Nu staat in kolom A de rangorde van de punten in kolom C.
Doordat kolom C gesorteerd is, krijg je dus in kolom A ook een gesorteerde reeks.
Bedoel je dit?
Met voorwaardelijke opmaak, of met een wat uitgebreidere formule kun
je eventueel opvolgend gelijke waarden verbergen.
Jan

[jan]

Arend,

Gezien je nieuwe vraag (beantwoord door Jan B.) wil je de gebieden gezamenlijk
sorteren, alsof ze onderelkaar stonden. Dit is, voorzover ik weet, niet mogelijk,
tenzij je een omweg bewandelt.
Die omweg zou zijn: zet alle gegevens (tijdelijk) onderelkaar, sorteer dit en splits
het resultaat weer in twee gebieden.
Dit zou nog kunnen als je het sorteren zo nu en dan doet met een knop, maar op de
automatische manier, zoals tot nu toe, lijkt het me erg onprettig werken.

Jan

[jan]

Arend,

Hierbij een uitwerking van wat ik in m'n vorige antwoord als mogelijkheid
suggereerde.
Het betreft 1 werkblad en de code staat dan ook in de module van het werkblad.
Ik ben er hierbij van uitgegaan dat je B10:B27 gecombineerd met F10:G27 (dus de
kolommen met namen en punten) de naam "Punten" hebt gegeven.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Or Target.Column = 7 Then
Sorteer_Punten
End If
End Sub

Sub Sorteer_Punten()
Dim sh As Worksheet
Set sh = ActiveSheet
Dim lngRow1 As Long
Dim lngRow2 As Long
lngRow1 = sh.Range("Punten").Areas(1).Rows.Count
lngRow2 = sh.Range("Punten").Areas(2).Rows.Count
'gebieden onderelkaar ztten
sh.Range("Punten").Areas(2).Copy
sh.Paste sh.Range("Punten").Areas(1).Offset(lngRow1, 0)
'gehele gebied sorteren
Range("B10:C100").Sort key1:=sh.Range("C10"), _
order1:=xlDescending, key2:=sh.Range("B10"), _
order2:=xlAscending, header:=xlYes
'gebieden splitsen
sh.Range("Punten").Areas(2) = _
sh.Range(Cells(11 + lngRow1, 2), Cells(11 + lngRow1 + lngRow2, 3)).Value
sh.Range(Cells(11 + lngRow1, 2), sh.Cells(11 + lngRow1 + lngRow2, 3)).Clear
End Sub

Jan

[jan]

Arend,

Mocht je één en ander willen gebruiken, dan is er in elk geval 1 wijziging nodig in
Worksheet_Change, omdat deze anders, bij elke wijziging in het werkblad
veroorzaaktdoor VBA, elke keer weer wordt aangeroepen, waardoor het geheel wat
trager wordt..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Or Target.Column = 7 Then
Application.EnableEvents = False
Sorteer_Punten
Application.EnableEvents = True
End If
End Sub

Jan

[Arend]

Hoi Jan,
Ik ga ermee aan de slag, ik wilde het naast elkaar hebben zodat er gewoon
meer op je scherm staat, maar wordt dit moeilijk dan doe ik het gewoon onder
elkaar.
Was een beetje aan het experimenteren.
Weer bedankt voor je hulp.

Groet,
Arend

Post by jan
Arend,
Mocht je één en ander willen gebruiken, dan is er in elk geval 1 wijziging
nodig in Worksheet_Change, omdat deze anders, bij elke wijziging in het
werkblad veroorzaaktdoor VBA, elke keer weer wordt aangeroepen, waardoor
het geheel wat trager wordt..
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Or Target.Column = 7 Then
Application.EnableEvents = False
Sorteer_Punten
Application.EnableEvents = True
End If
End Sub
Jan

[Rudolf]

Hoi,

Ik ben bezig om een bowlingscore bestand te maken.
Het bestand is te vinden op: http://www.bvdorp.nl/Test/Test.xls.

In Kolom "H" telt de het aantal games automatisch op.

Wat ik graag nu nog zou willen is dat die de hoogste van kolom "H"
automatisch bovenaan zet. Is dit mogelijk?
Ik had jouw code al aangepast in:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
Range("A3:H15").Sort key1:=Range("H3"), _
order1:=xlDescending, Header:=xlYes
End If
End Sub

[JR]

On 31 jul, 18:31, Outlook 2003 installeren

Post by Outlook 2003 installeren
Ik heb een excel bestandje met twee kolommen. In de eerste kolom staan onder
elkaar 16 namen, in de tweede kolom staan op gelijk hoogte als de namen
punten (cijfers)  die bij de respectievelijke namen horen.
Is het mogelijk dat wanneer ik de punten (cijfers) wijzig het bestand
automatisch wordt gesorteerd en zo ja kan iemand mij een voorbeeldje maken.
Voor deze Willie Wortel hatelijk dank.

Hoewel reeds vele antwoorden hier binnen gekomen zijn kan ik nog een
antwoord doorgeven
Mijn bestand sorteer volautomatisch. download via: www.webng.com/janremue/PST07-08.xls
Er is ook een competietie programma volgens het schema all play all
download via: http://www.webng.com/janremue/Windows/wintabel.zip

Met vriendelijk groeten Jan