vba: prøv "split" eller: lav en "find" i "strReverse", hvor du søger efter " " mellemrum, så har du fundet efternavnet, og til sidst atter en "strReverse"
Public Sub findEfternavn() Dim tabel As Variant, EfterNavn As String, ForNavn As String tabel = Split(Range("B2"), " ") EfterNavn = tabel(UBound(tabel))
Problemet er, at antallet af navne varierer. Nogle gange har jeg 2 navne, nogle gange har jeg 7 (ja, tro det eller lad være - jeg har en kunde med 7 navne).
Er der evt. en mulighed, hvor jeg fra tekststrengen i B2 fjerner efternavnet - når jeg har fundet det så jeg efterlader resten på en eller anden måde?
TEGN(22) er blot en midlertidig erstatning for mellemrum, for at kunne tælle antal mellemrum (finde det sidste mellemrum) - og for at være sikker på, at der ikke benyttes et tegn, der måske ellers kunne være i et navn, benytter vi et helt utænkeligt tegn, nemlig TEGN(22)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.