Hi,

I am writing a macro that splits numbers and parts of strings from a large string in column A. I want to use an "and" in "if" statement in a "for" loop, but i don't get the syntax right (last line of code below). What is the right syntax?

Any help is much appreciated!



Sub BestandsnamenKnippen()

Dim tbl As ListObject, c As Range
Dim shtInfo As Worksheet
Set shtInfo = Worksheets("info")
Set tbl = shtInfo.ListObjects(1)
'Instr(start, str1, str2)
'Mid(string, start, [ length ])


   For Each c In tbl.DataBodyRange.Columns(1).Cells
        c.Offset(, 1) = InStr(1, c, "MEBA\") + 5 'B
        c.Offset(, 2) = Mid(c, c.Offset(, 1), 150) 'C
        c.Offset(, 3) = InStr(1, c.Offset(, 2), " ") 'D
        c.Offset(, 4) = Mid(c.Offset(, 2), 1, c.Offset(, 3)) 'E
        c.Offset(, 5) = InStr(1, c.Offset(, 2), ",") 'F
        c.Offset(, 6) = c.Offset(, 5) - c.Offset(, 3) 'G instr("," - " ")
        c.Offset(, 7) = Mid(c.Offset(, 2), c.Offset(, 3), c.Offset(, 6)) 'H
        c.Offset(, 8) = Mid(c.Offset(, 2), c.Offset(, 3), 150) 'I
        c.Offset(, 9) = InStr(1, c.Offset(, 8), "\") 'J
        c.Offset(, 10) = InStr(1, c.Offset(, 8), "-") 'K
            If (c.Offset(, 10) >= 0) and (<= c.Offset(, 9)) then