Euhhh ? >>> zie Reactie #12
Wél gelezen, maar niet begrepen.
@SoftAid, dank voor je lijstje met uitzonderings-letters.
Sorry, maar kon het dus toch niet laten om deze even in mijn procedure in te voegen...
Sub Splits_PC_Adres()
'14-10-2018; RedHead; Oplossing.BE
'AS, LO, MY, ON zijn gemeentenamen
'DE, LE, LA zijn voorvoegsels (= van of vandaan)
'ST (heiligen waarvan de afkorting wordt gebruikt van Sint of Saint in gemeentenamen)
Lijst = ActiveSheet.UsedRange
For i = 2 To UBound(Lijst, 1)
If Lijst(i, 1) <> "" Then
temp = UCase(Application.Trim(Lijst(i, 1)))
If Left(temp, 8) Like "#### ?? " Then ' Nederland
Lijst(i, 2) = Left(temp, 7)
Lijst(i, 3) = Mid(temp, 9)
If InStr(1, "AS LO MY ON DE LE LA ST", Mid(temp, 6, 2)) > 0 Then
Lijst(i, 2) = "#?"
Lijst(i, 3) = "#?"
End If
ElseIf Left(temp, 5) Like "#### " Then ' België
Lijst(i, 2) = Left(temp, 4)
Lijst(i, 3) = Mid(temp, 6)
Else
Lijst(i, 2) = "#?"
Lijst(i, 3) = "#?"
End If
End If
Next i
Cells(1).Resize(UBound(Lijst, 1), 3) = Lijst
End Sub
Dit genereert een error (#?) bij 35 records in de lijst, waarbij het grootste deel eigenlijk onterecht is omdat het echt NL Postcodes zijn.
Maar op zich als dit voor een eenmalige opschoning is, kan je wel eenvoudig je lijst doorzoeken.
Het zou wél heel leuk zijn als de TS toch nog besluit om 'ns op z'n/haar vragen te reageren.