Gebruik van * in een formule

[Visus]

Ik wil onderstaande formule ook laten werken als op blad1 in kolom J een andere waarde voor komt dan 1 DO, bijvoorbeeld 1 DL of 1 BC, maar niet 2 DO etc. of 3 DO etc.

Als ik "1*" gebruik werkt het niet. Is hier een oplossing voor ?

=SOMPRODUCT((Blad1!$Y$1:$Y$2000=Analyse!$E$2)*(Blad1!$J$1:$J$2000="1 DO")*(Blad1!$D$1:$D$2000=Analyse!$B$3))

Groeten

Visus

 

[wiki]

op basis van je uitleg wil je dus weten of in de cel een 1 voorkomt met de volgende code/UDF kun je de letters of cijfers uit een celwaarde halen en daarna controleren.

plaats deze code in een module

Function RemoveNumeric(rng As String) As String
Dim Tmp As String
Dim i As Integer

Tmp = rng
For i = 0 To 9
Tmp = Application.Substitute(Tmp, i, " ")
Next i
Tmp = Replace(Tmp, ",", "")
Tmp = Replace(Tmp, "X", "")
Tmp = Replace(Tmp, "/", "")
Tmp = Replace(Tmp, "€", "")

RemoveNumeric = Tmp
End Function

Function StripAlphas(source_ref As Range) As String
'' Remove alpha characters from a string.
Application.Volatile
Dim intI As Integer
Dim strNotNum As String, strTemp As String
strTemp = ""
For intI = 1 To Len(source_ref.Value)
If Mid(source_ref.Value, intI, 1) Like "[0-9]" Or Mid(source_ref.Value, intI, 1) Like "," Or Mid(source_ref.Value, intI, 1) Like " " Then
 strNotNum = Mid(source_ref.Value, intI, 1)
Else: strNotNum = " "
End If
strTemp = strTemp & strNotNum

Next intI

StripAlphas = strTemp
End Function 'StripAlphas()

en test de volgende formules
=StripAlphas(A1)

=RemoveNumeric(A1)

gr wim

 

[bandito bob]

Als het altijd met een 1 begint kan het ook als volgt:

=SOMPRODUCT((Blad1!$Y$1:$Y$2000=Analyse!$E$2)*([COLOR="red"]links[/COLOR](Blad1!$J$1:$J$2000[COLOR="red"];1)="1"[/COLOR])*(Blad1!$D$1:$D$2000=Analyse!$B$3))

 

[Visus]

Wim, vergeef me dat ik eerst heb gekeken naar de oplossing van bandito bob en die bleek voor mij te voldoen.
Ik ga de andere zeker nog gebruiken.

Bedankt