alleen kleinste waarden

[corania17]

Geachte forumleden,
Ik moet jullie toch weer even wat vragen want ik heb geen oplossing kunnen vinden.
In het bijgevoegde bestand wil ik uit de data (Blad 10. begravingen) op Blad1 een overzicht krijgen die de kleinste waarde laat zien.
Ik heb op Blad1 de waarde nu zelf met de hand ingegeven als voorbeeld.
Er zijn echter veel meer regels zodat dit handmatig niet is te doen.
De namen in de kolommen kunnen verschillend zijn dus die kolommen zijn niet te gebruiken.
Nummer en Looptijd zijn wel te gebruiken bij een vergelijking alleen kunnen die weer verschillen in aantallen.
Zou iemand mij verder kunnen en willen helpen?
Bij voorbaat mijn dank, Rubik.

 

[AlexCEL]

je hebt het over "de kleinste waarde". Enkelvoud dus.

Welke kolom moet je "de kleinste waarde" van hebben? Of wil je toch de 10 kleinste waarden? Of 100? Graag nog enige toelichting.

Oplossing zal iets met functie RANG of KLEINSTE worden.

 

[JEC.]

Per nummer de kleinste waarde van looptijd en dat dan weergegeven als op tabblad 2

 

[corania17]

Dat zijn snelle reacties.
Het gaat om de kolom G waar Looptijd bij staat zoals JVeer het heeft verwoord.
Alle kleinste waarden moeten zichtbaar worden in het tweede tabblad Blad1.

 

[AlexCEL]

In tweede instantie na opmerking JVeer zag ik het.

Zie bijlage, een optie met formules.

 

[corania17]

Geachte AlexCel
Bedankt voor de oplossing die bijna werkt.
Ik heb u namelijk niet verteld dat ik nog een oude versie Excel 2013 heb waar de functie _xlfn.MINIFS niet werkt en dus de looptijd niet zichtbaar is.
Een macro zou in dit geval een betere uitkomst kunnen bieden, alleen hoe?
Toch bedankt voor uw moeite.
Rubik

 

[AlexCEL]

MINIFS = MIN.ALS.VOORWAARDEN. Dat is inderdaad een nieuwe functie. Een alternatief voor de formule in kolom P voor eerdere versies van Excel is:

=ALS($M2<>"";MIN(ALS('10. Begravingen'!$D$2:$D$28=$M2;'10. Begravingen'!$G$2:$G$28));"")

Let op: dit is een matrixfunctie (net als de functie in kolom M). Deze dien je af te sluiten met Control+Shift+Enter.

 

[sylvester-ponte]

of als je een hulpkolommetje geen probleem vind en je jouw tabel gesorteerd hebt op nummer en op looptijd:
met verticaal.zoeken: zie gele cellen

 

[corania17]

Geachte forumleden,

Hartelijk dank voor jullie meedenken.
Inmiddels heb ik een bestaande macro aangepast en het werkt zoals ik het beschreven heb.
Hierbij de macro de eventuele geïnteresseerden:
Sub kleinste()
Dim Br, Bq
Dim i As Long
Dim sN As String

With Sheets("10. Begravingen")
Br = .Cells(1).CurrentRegion
For i = 2 To UBound(Br)
If Br(i, 7) = Evaluate("MIN(IF('" & .Name & "'!D2" & UBound(Br) & "=""" & Br(i, 4) & _
""",'" & .Name & "'!G2:G" & UBound(Br) & "))") Then sN = sN & "|" & i
Next
Bq = Application.Transpose(Split(1 & sN, "|"))
End With
Sheets("Blad1").Cells(1).Resize(UBound(Bq), UBound(Br, 2)) = Application.Index(Br, Bq, [column(A:G)])
End Sub

Graag wil ik een andere keer nog eens terugkomen.

Rubik

 

[VenA]

Pas het bericht even aan door de code tussen codetags te zetten. Het is nu onleesbaar.

 

[corania17]

alleen kleinste waarde

Geachte VenA, bedankt voor je reactie maar wat bedoel je met codetags?
Ik heb gezien dat er een smilie staat op de plaats waar een dubbel punt en D staat, maar de rest is wel te lezen.
Echter heb ik de macro geprobeerd op de gehele lijst en nu blijkt dat enkele regels niet worden meegenomen.
Ook als er geen code in een cel staat dan stopt de macro.
Weet u misschien hoe dit is op te lossen?
Met vriendelijke groet, Rubik

 

[VenA]

Het gebruik van codetags staat o.a. hier beschrevenhttps://www.helpmij.nl/forum/announcement.php?f=5

Het zal dan waarschijnlijk hier fout gaan.

Br = .Cells(1).CurrentRegion

Ga in A1 staan en druk op <Ctrl> + a je ziet dan wat de currentregion is.

 

[sylvester-ponte]

in vba kun je geen spaties gebruiken in bladnamen dus sheets("10. Begravingen") gaat niet werken.
oeps, met dank aan Harry zie post 14, ik moet zeggen dat een bladnaam niet een punt mag bevatten.
daarom gebruikt de macro sheet(1) ipv sheets("10. Begravingen")
je kan in regel 3 aangeven op welk blad de starttabel staat
je kan in regel 4 aangeven waar het heen moet
de macro zoekt zelf naar het woord "Nummer"
en begint daar met de currentregion. dus zorg dat je starttabel niet raakt aan andere gegevens.
hij plaatst hem in de gele cellen op "blad1"
ik hoop dat je er wat aan hebt voor je orginele bestand.

 

[HSV]

in vba kun je geen spaties gebruiken in bladnamen dus sheets("10. Begravingen") gaat niet werken.
daarom gebruikt de macro sheet(1) ipv sheets("10. Begravingen")

Flauwekul zeker?

 

[sylvester-ponte]

Harry, je hebt gelijk. het komt omdat de naam van het blad niet een punt mag bevatten.

 

[HSV]

Mijn Vba heeft met beide geen probleem.

 

[sylvester-ponte]

welke versie gebruik jij? ik 2010

 

[HSV]

2007

 

[sylvester-ponte]

harry zou jij deze nabootsing van het probleem eens willen testen?

ik krijg als ik letterlijk doe wat er staat in de 2e run fout 1004 ( Eigenschap CurrentRegion van klasse Range kan niet worden opgehaald )

 

[HSV]

Dit werkt prima hier.

 Set Tabel = Sheets("10. begravingen").UsedRange