Hi,
I wrote a function in a macro which should find the position of the first space (" ") from the 8th character onwards in each cell in a column.
For each value i get a result 0. What am i doing wrong?
Any input is much appreciated!
Sub AchternamenTest()
Dim rng As Range, cell As Range, tbl As ListObject
Dim shinfo88 As Worksheet, shinfo89 As Worksheet
Dim Naam88 As Range
Set shinfo88 = Worksheets("info88")
Set shinfo89 = Worksheets("info89")
Set Naam88 = Range("Naam88")
Set tbl = shinfo88.ListObjects(1)
For Each C In tbl.DataBodyRange.Columns(2).SpecialCells(xlCellTypeVisible)
C.Offset(, 12).Value = InStr(8,each c, " ")
Next C
End Sub
Bookmarks