Excel: laagste waarde uit een cel halen

[RF1000]

Ik heb een export vanuit een 3D programma met afmetingen van componenten ingelezen in Excel en wil uit deze combinatie van letters en getallen de laagste waarde halen. Het getal is altijd 100 of groter, nooit lager.

ø250

150x300

1200x300-1200x300

Dus met bovenstaande moet onderstaand uitgevoerd worden. Met welke formule zou dat moeten lukken?

250

150

300

[Reinier]

Worden de waardes altijd gescheiden met ø, x of -? Dan zou je iets met TEXTSPLIT() kunnen proberen, wat je een x-aantal nieuwe kolommen oplevert. Op die kolommen kun je een MIN() loslaten.

Of VBA, of een regex-plugin.

[dix-neuf]

RF1000 schreef op vrijdag 19 april 2024 @ 10:05:
Het getal is altijd een honderdtal, nooit lager.

250

150

300

250 en 150 zijn geen honderdtallen!

[TrafficBandit]

Ik zou dit oplossen met een custom functie in VBA die een regular expression gebruikt om de getallen uit de string te halen.

Om dit te doen moet je:
1.) In Excel in de "Developer" menu optie het "Visual Basic" icoon selecteren.
2.) In de VBA editor kan je dan rechts klikken op het VBAProject en insert "Module" selecteren.
3.) Selecteer de Module en plak daar de volgende code in:

code:

Public Function GetLowestValue(strInputText As String) As Integer

    Dim objRegEx As Object
    Dim objRegExMatches As Object
    Dim intCounter As Integer
    Dim intReturnValue As Integer
    
    Set objRegEx = CreateObject("VBScript.RegExp")
    
    objRegEx.pattern = "\d+"
    objRegEx.Global = True
    objRegEx.MultiLine = True
    objRegEx.ignorecase = True

    Set objRegExMatches = objRegEx.Execute(strInputText)
    
    If objRegExMatches.Count > 0 Then
    
        For intCounter = 0 To objRegExMatches.Count - 1
        
            If intCounter = 0 Then
                intReturnValue = objRegExMatches.Item(intCounter)
            Else
                If objRegExMatches.Item(intCounter) < intReturnValue Then
                    intReturnValue = objRegExMatches.Item(intCounter)
                End If
            End If
        
        Next
    
    End If
    
    GetLowestValue = intReturnValue
    
    Set objRegExMatches = Nothing
    Set objRegEx = Nothing
    
End Function

4.) In excel zelf kan je nu de custom functie "GetLowestValue" aanroepen (=GetLowestValue(E2)), met als argument de text uit jouw voorbeeld. Je krijgt als uitkomst van de formule het laagste getal.

[RF1000]

dix-neuf schreef op vrijdag 19 april 2024 @ 13:47:
[...]

250 en 150 zijn geen honderdtallen!

Ik bedoelde eigenlijk getallen groter of gelijk aan 100.

[RF1000]

TrafficBandit schreef op vrijdag 19 april 2024 @ 15:02:
Ik zou dit oplossen met een custom functie in VBA die een regular expression gebruikt om de getallen uit de string te halen.

Om dit te doen moet je:
1.) In Excel in de "Developer" menu optie het "Visual Basic" icoon selecteren.
2.) In de VBA editor kan je dan rechts klikken op het VBAProject en insert "Module" selecteren.
3.) Selecteer de Module en plak daar de volgende code in:

code:

Public Function GetLowestValue(strInputText As String) As Integer

    Dim objRegEx As Object
    Dim objRegExMatches As Object
    Dim intCounter As Integer
    Dim intReturnValue As Integer
    
    Set objRegEx = CreateObject("VBScript.RegExp")
    
    objRegEx.pattern = "\d+"
    objRegEx.Global = True
    objRegEx.MultiLine = True
    objRegEx.ignorecase = True

    Set objRegExMatches = objRegEx.Execute(strInputText)
    
    If objRegExMatches.Count > 0 Then
    
        For intCounter = 0 To objRegExMatches.Count - 1
        
            If intCounter = 0 Then
                intReturnValue = objRegExMatches.Item(intCounter)
            Else
                If objRegExMatches.Item(intCounter) < intReturnValue Then
                    intReturnValue = objRegExMatches.Item(intCounter)
                End If
            End If
        
        Next
    
    End If
    
    GetLowestValue = intReturnValue
    
    Set objRegExMatches = Nothing
    Set objRegEx = Nothing
    
End Function

4.) In excel zelf kan je nu de custom functie "GetLowestValue" aanroepen (=GetLowestValue(E2)), met als argument de text uit jouw voorbeeld. Je krijgt als uitkomst van de formule het laagste getal.

thx! Ik ga er eens mee aan de slag

[Cheesy]

Reinier schreef op vrijdag 19 april 2024 @ 10:11:
Worden de waardes altijd gescheiden met ø, x of -? Dan zou je iets met TEXTSPLIT() kunnen proberen, wat je een x-aantal nieuwe kolommen oplevert. Op die kolommen kun je een MIN() loslaten.

Dat dacht ik ook, maar die laatste stap (MIN) geeft als uitvoer 0.

[ Voor 10% gewijzigd door Cheesy op 19-04-2024 15:47 ]

[g0tanks]

Cheesy schreef op vrijdag 19 april 2024 @ 15:46:
[...]

Dat dacht ik ook, maar die laatste stap (MIN) geeft als uitvoer 0.

[Afbeelding]

Omdat TEXTSPLIT() als output tekst heeft waardoor MIN() het niet herkent. Zet er VALUE() omheen om het te converteren naar een getal.

[dixet]

Cheesy schreef op vrijdag 19 april 2024 @ 15:46:
[...]

Dat dacht ik ook, maar die laatste stap (MIN) geeft als uitvoer 0.

[Afbeelding]

Dat komt omdat het resultaat van TEXTSPLIT() tekst is. Dat moet je eerst naar nummers omzetten

Deze werkt bij mij (en in 1 formule)

code:

=MIN(VALUE(TEXTSPLIT(A2;$A$7:$A$9;;TRUE)))

[Reinier]

Ja da wou ik zegge ja

[Cheesy]

g0tanks schreef op vrijdag 19 april 2024 @ 15:57:
[...]


Omdat TEXTSPLIT() als output tekst heeft waardoor MIN() het niet herkent. Zet er VALUE() omheen om het te converteren naar een getal.

Tnx, achteraf gezien logisch natuurlijk. Ik had celeigenschap al op 'getal' gezet, dus het was in de richting