Avatar billede richter1 Nybegynder
20. februar 2008 - 10:27 Der er 6 kommentarer og
1 løsning

Stort begyndelsbogstav i fornavn og efternavn.

Jeg har følgende linie i hvor brugeren har indtastet sit navn i en textbox: txtmedlem. Jeg skal efterfølgende have sikret at såvel fornavn som efternavn starter med et stort begyndelsesbogstav. Jeg har foreløbig:

Cells(mlrowdisplayed, 5) = UCase(Left(Txtmedlem.Text, 1)) & LCase(Mid(TxtVognmand.Text, 2))

hvodan finder jeg mellemrummet mellem fornavn og efternavn?
hvordan konvertere jeg dernæst det efterfølgende bogstav til et stort bogstav?
Avatar billede be_nice Juniormester
20. februar 2008 - 10:57 #1
Lidt inspiration: http://www.eksperten.dk/spm/819589
/Be_Nice
Avatar billede richter1 Nybegynder
20. februar 2008 - 11:57 #2
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.
Avatar billede excelent Ekspert
20. februar 2008 - 12:07 #3
prøv anvend Proper:

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

gir Abc Def
Avatar billede richter1 Nybegynder
20. februar 2008 - 12:14 #4
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??
Avatar billede richter1 Nybegynder
20. februar 2008 - 12:18 #5
ups havde ikke set dit indlæg excelent - afprøver den lige.
Avatar billede richter1 Nybegynder
20. februar 2008 - 12:55 #6
Perfekt - lige hvad jeg søgte, men den anden vej rundt var nu lærerrigt.

tak for hjælpen - lægger du et svar?
Avatar billede excelent Ekspert
20. februar 2008 - 12:59 #7
jada :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Ringkjøbing Landbobank – Nordjyske Bank

Forretningsudvikler til procesoptimering

IT-Universitetet i København

CIO

Forsvarsministeriets Materiel- og Indkøbsstyrelse

Cyberdivisionen søger en Unified Communications specialist i Hvidovre

AL Sydbank A/S (tidligere Arbejdernes Landsbank)

Teamleder til AL Sydbanks GDPR & Tech Regulation i Aabenraa