Opgelost Zoeken op variabele tekst

[Egbert12345]

Beste forummers, zie mijn voorbeeld bestandje.

Er staan verschillende soorten Totaal met een toevoeging (xxx bbb etc).

Ik gebruik onderstaande macro maar die werkt uiteraard niet. Moet ik iets van een asterisk opnemen bij "Totaal"?

For A = 1 To 1000
If Cells(A, 2) = "Totaal" Then MsgBox "xx"

Next

 

[JEC.]

If left(variabele, 6) = "Totaal" then

 

[Egbert12345]

Sorry JEC, maar dit begrijp ik niet helemaal,
Waar plaats ik jou suggestie in
If Cells(A, 2) = "Totaal" Then MsgBox "xx"

 

[edmoor]

Lijkt me toch duidelijk:

If Left(Cells(A,2),6) = "Totaal" Then MsgBox "xx"

 

[Egbert12345]

Thx Edmoor, nu is het wel duidelijk.

 

[edmoor]

Er staat toch eigenlijk hetzelfde al wat JEC al zei

 

[HSV]

Kan ook.

If cells(a,2) like "Totaal*" then msgbox "xx"

 

[cow18]

als je ze allemaal 1 per 1 wilt hebben

 

[Warme bakkertje]

Of, misschien nog gebruiksvriendelijker, alles in 1 MsgBox.

Sub tst()
    Dim Data, Arr, msg As String, i As Long
    
    With Sheets("Blad1").Range("B1", Range("B" & Rows.Count).End(xlUp))
        Data = Filter(.Parent.Evaluate("transpose(if(isnumber(search(""Totaal""," & .Columns(1).Address & ")),row(1:" & .Rows.Count & ")))"), False, 0)
        If UBound(Data) = -1 Then MsgBox "Geen resultaten gevonden": Exit Sub
        Arr = Application.Index(.Value, Application.Transpose(Data), 1)
        msg = "Nr." & vbTab & "Adres" & vbTab & "Waarde" & Chr(10)
        For i = 1 To UBound(Arr)
            msg = msg & i & vbTab & "$B$" & Data(i - 1) & vbTab & Arr(i, 1) & Chr(10)
        Next
    End With
    MsgBox msg, vbOKOnly, "Resultaten"
End Sub

 

[snb]

@WB
Of ?

Sub M_snb()
     Intersect(UsedRange, Columns(2)).Name = "snb"
     MsgBox Join(Filter(Evaluate("transpose(if(left(snb,6)=""Totaal"",""    $B$"" & row(snb) & ""    "" & snb))"), False, 0), vbCr)
End Sub

 

[emields]

Altijd is er een meester boven wie zich meester voelt