Stort begyndelsbogstav i fornavn og efternavn.

Lidt inspiration: http://www.eksperten.dk/spm/819589
/Be_Nice

Forløbig er jeg nået til:

fornavn = Mid(txtmedlem, 1, (InStr(1, txtmedlem, " ", 1)))
fornavn = UCase(Left(fornavn, 1)) & LCase(Mid(fornavn, 2))
efternavn = Right(txtmedlem, (InStr(1, txtmedlem, " ", 1) + 1))
efternavn = UCase(Left(efternavn, 1)) & LCase(Mid(efternavn, 2))

Kan de to linier med fornavn sammenskrives?  næste spørgsmål vil så være kan det hele samles på en linie?  (har brug for at kunne begge dele)

nb - fejl i spørsmålet txtvognmand skal selvfølgelig være medlem.

prøv anvend Proper:

Sub tst()
MsgBox Application.WorksheetFunction.Proper("abc def")
End Sub

gir Abc Def

Lidt kringlet

txtmedlem = UCase(Left(Mid(txtmedlem, 1, (InStr(1, txtmedlem, " ", 1))), 1)) & LCase(Mid(Mid(txtmedlem, 1, (InStr(1, txtmedlem, " ", 1))), 2)) & UCase(Left(Right(txtmedlem, (InStr(1, txtmedlem, " ", 1) + 1)), 1)) & LCase(Mid(Right(txtmedlem, (InStr(1, txtmedlem, " ", 1) + 1)), 2))

men kan den gøres enklere??

ups havde ikke set dit indlæg excelent - afprøver den lige.

Perfekt - lige hvad jeg søgte, men den anden vej rundt var nu lærerrigt.

tak for hjælpen - lægger du et svar?

jada :-)