Ik wil zinnen scheiden waarin het oud-Hollandse woord "genaemt" in voorkomt. De bestaande kolom wil ik splitsen in twee nieuwe kolommen.
VOORBEELD
"een weijde landts genaemt langhcamp" moet worden "een weijde landts genaemt " en "langhcamp".
De VBA-instructie InStr werkt niet omdat op de afzonderlijke letters "g", "e", "n", "a", "e", "m" en "t" wordt gezocht.
Wie weet een oplossing? Zie bijgeloten voorbeeld-bestand.
VOORBEELD
"een weijde landts genaemt langhcamp" moet worden "een weijde landts genaemt " en "langhcamp".
De VBA-instructie InStr werkt niet omdat op de afzonderlijke letters "g", "e", "n", "a", "e", "m" en "t" wordt gezocht.
Wie weet een oplossing? Zie bijgeloten voorbeeld-bestand.
Code:
Sub Scheiden_titel()
'
' Scheiden_titel Macro
Dim intPos, intRow
Dim rngRange, cell As Range
Dim strZoek As String
strZoek = "genaemt"
Set rngRange = Range("A2:A15")
For Each cell In rngRange
intPos = InStr(1, Cells(cell.Row, 1).Value, strZoek, 1)
Cells(cell.Row, 2) = Left(Cells(cell.Row, 1).Value, intPos)
Cells(cell.Row, 3) = Right(Cells(cell.Row, 1).Value, intPos)
Next
End Sub