vba cel bevat komma dan (loop)

[Tweety1]

Ik probeer een macro te maken die kijkt in een range of een cel een komma (,) bevat.
Alleen kom ik er niet uit.

Sub Test1()
Dim rCell As Object
Dim rRng As Range
Set rRng = Sheets(1).Range("A1:A100")

For Each rCell In rRng.Cells
    With rCell
        Select Case .Value
            Case InStr(1, rCell, ",")
        .ShrinkToFit = False

        End Select
    End With
Next rCell
End Sub

 

[edmoor]

Sub Test1()
Dim rCell As Object
Dim rRng As Range
Set rRng = Sheets(1).Range("A1:A100")

For Each rCell In rRng.Cells
    With rCell
        Select Case InStr(1, .Value, ",")
            Case Is > 0
                .ShrinkToFit = False
        End Select
    End With
Next rCell
End Sub

 

[Tweety1]

Thanks

 

[HSV]

Je hoeft niet alle cellen bijlangs als ze bv. leeg zijn.

For Each rCell In rRng.SpecialCells(2)
    If UBound(Split(rCell, ",")) > 0 Then rCell.ShrinkToFit = True
Next rCell

 

[snb]

Als je iets zoekt kun je 'find' gebruiken:

Sub M_snb()
    On Error Resume Next
    c00 = "niet gevonden"

    c00 = Range("A1:A100").Find(",").Address
    MsgBox c00
End Sub