Eerst Voorkomende Getal Uithalen...

[JanJantje]

Hallo

Ik heb de volgende probleem; Ik wil uit een kolom de eerst voorkomende getal uithalen...

bvb. bereik is D5: D50; dus als er zich een getal in D5 bevind wil ik deze uithalen. Maar als D5 leeg is moet de volgende getal uitgehaald worden, deze kan D6,D7 enz. zijn.

*En ik weet niet of dit nuttig maar, het is wel zo dat niet elke cel een getal bevat in het bereik D5: D50; deze kunnen lege cellen bevatten...

Wat ik wil is dus de eerst voorkomende getal uithalen.

Dank bij voorbaat,

Jantje

 

[Demeter]

Heb je hier wat aan:

Sub test()

For Each c In Range("D5:D50")
    If c <> "" Then
        c.Select
        Exit Sub
    End If
Next

End Sub

 

[JanJantje]

Bedankt voor de moeite,
Maar het moet zonder VBA

 

[Wigi]

=INDEX(D5: D50;MIN(ALS(D5: D50="";"";RIJ(D1: D46))))

en geen Enter, maar Ctrl-Shift-Enter.

Niet echt heel performant, maar zonder matrixformule lukte het mij niet.

Wigi

 

[JanJantje]

Beste Wigi,

Het werkt perfect. :thumb:
U bent hartelijk bedankt,

Jantje

 

[JanJantje]

Een beetje tevroeg gejuicht...

Bij het kopieren kloppen de bereiken nietmeer, waardoor het resulteert in "0" of "#N/B"...

 

[Wigi]

Zet er dan de nodige dollartekens tussen om naar de bereiken absoluut te verwijzen, ipv. relatief.

 

[JanJantje]

Heb ik geprobeerd,
het probleem is dat D5: D50 moet veranderen bij het kopieren;
maar (zover ik het snap) moet D1 in "RIJ(D1: D46)" op D1 blijven dus heb ik D$1 gedaan.

Uiteraard kloppen de verhoudingen dan nietmeer:
Vb: Ik heb van C5 naar C8 gekopieerd:

C5:
=INDEX(D5: D50;MIN(ALS(D5: D50="";"";RIJ(D1: D46))))

C8:
=INDEX(D8: D53;MIN(ALS(D8: D53="";"";RIJ(D$1: D49))))
Resultaat = "#N/B"

 

[Wigi]

=INDEX(D5: D50;MIN(ALS(D5: D50="";"";RIJ($D$1:$D$46))))

Wigi

 

[JanJantje]

Beste Wigi,

Nogmaals bedankt :thumb:

Jantje