Excel vragen

[Auto]

Als je in een kolom allemaal codes hebt staan, bijvb "AA-12-12" en "11-XD-00"

Welke formule moet je gebruiken in de kolom er naast om alle records waar XD in voorkomt eruit te halen?

In oude versies had je volgens mij een formule die iets had met "=Contain("XD";A1) waarna er TRUE of FALSE kwam te staan. Of klopt dat niet?

[ZWP]

Met =VIND.SPEC("XD";A1) krijg je een waarde als het voorkomt en een fout (#WAARDE!) als het niet voorkomt.
Kun je dat gebruiken?

[ZWP]

Of natuurlijk een filter, met Bevat XD.

[Tiberius]

In de Engelse versie: Search

[Auto]

Met =VIND.SPEC("XD";A1) krijg je een waarde als het voorkomt en een fout (#WAARDE!) als het niet voorkomt.
Kun je dat gebruiken?

Die heb ik uitgeprobeerd en alleen dan krijg ik in veel velden die foutmelding (#waarde!) hoe kan je die dan wegkrijgen en dat het veld leegblijft indien er geen match is?

[ZWP]

Met =VIND.SPEC("XD";A1) krijg je een waarde als het voorkomt en een fout (#WAARDE!) als het niet voorkomt.
Kun je dat gebruiken?

Die heb ik uitgeprobeerd en alleen dan krijg ik in veel velden die foutmelding (#waarde!) hoe kan je die dan wegkrijgen en dat het veld leegblijft indien er geen match is?

=ALS.FOUT(VIND.SPEC("XD";A1);"")
Waar nu "" staat kun je een andere waarde of tekst invoeren die je wilt zien bij een fout.

[RacecaR]

Je kunt ook een EXCEL macro maken, dan heb je veel meer mogelijkheden:

Option Explicit

Sub test()
Dim nCnt1 As Integer

nCnt1 = 1
Do While Cells(nCnt1, 1) <> ""
If Right(Left(Cells(nCnt1, 1), 5), 2) = "XD" Then
Cells(nCnt1, 2) = 1
Else
Cells(nCnt1, 2) = 0
End If
nCnt1 = nCnt1 + 1
Loop
End Sub

[refo]

Je kunt ook een EXCEL macro maken, dan heb je veel meer mogelijkheden:

Option Explicit

Sub test()
Dim nCnt1 As Integer

nCnt1 = 1
Do While Cells(nCnt1, 1) <> ""
If Right(Left(Cells(nCnt1, 1), 5), 2) = "XD" Then
Cells(nCnt1, 2) = 1
Else
Cells(nCnt1, 2) = 0
End If
nCnt1 = nCnt1 + 1
Loop
End Sub

Lijkt het ouwe Basic wel.

Volgens mij is de vraag dat gesignaleerd moet worden of er ergens XD staat.
Het lijkt me dat deze macro het alleen signaleert als het in het midden staat.

[Tiberius]

Je kunt ook een EXCEL macro maken, dan heb je veel meer mogelijkheden:

Option Explicit

Sub test()
Dim nCnt1 As Integer

nCnt1 = 1
Do While Cells(nCnt1, 1) <> ""
If Right(Left(Cells(nCnt1, 1), 5), 2) = "XD" Then
Cells(nCnt1, 2) = 1
Else
Cells(nCnt1, 2) = 0
End If
nCnt1 = nCnt1 + 1
Loop
End Sub

Lijkt het ouwe Basic wel.

Sterker nog: het is Basic. VBA staat voor Visual Basic for Applications.