---

Er der en funktion som kan lave stort begyndelses bogstav til brug ved navne
således at:
brian benny jensen bliver til Brian Benny Jensen uanset hvordan navnet
skrives...?


/Magnus

---

Magnus wrote:
> Er der en funktion som kan lave stort begyndelses bogstav til brug ved navne
> således at:
> brian benny jensen bliver til Brian Benny Jensen uanset hvordan navnet
> skrives...?

Du kan arbejde videre med nedenstående:

Function CapitalizeFirst(strName)
   tmpArr = Split(strName, " ")
   For i = 0 To UBound(tmpArr)
      tmpArr(i) = UCase(Left(tmpArr(i),1)) & LCase(Mid(tmpArr(i),2))
   Next
   CapitalizeFirst = Join(tmpArr, " ")
End Function

--
Jakob Andersen

---

Magnus skrev:
> Er der en funktion som kan lave stort begyndelses bogstav til brug ved navne
> således at:
> brian benny jensen bliver til Brian Benny Jensen uanset hvordan navnet
> skrives...?

Et eksempel:
Function UCase1Word (s)
If s = "" Then
UCase1Word = ""
Else
UCase1Word = UCase(Mid(s, 1, 1)) & Mid(s, 2)
End If
End Function

Function UCaseWords (s)
a = Split(s, " ")
For i = LBound(a) To UBound(a)
a(i) = UCase1Word(a(i))
Next
UCaseWords = Join(a, " ")
End Function

navn = "brian benny jensen"
navnFormateret = UCaseWords(navn)

/Torben