Springen naar inhoud


- - - - -

Hoofdletters Detecteren


  • Log in a.u.b. om te beantwoorden
Er zijn 2 reacties in dit onderwerp

#1 Vic

Vic

    Professional Developer

  • Leden
  • PipPipPipPip
  • 424 berichten
    Laatst bezocht 28 Apr 2014 13:25

Geplaatst op 06 March 2013 - 11:25


Ik heb een klanten lijst met naam en adres gegevens. Maar spijtig genoeg zitten al de gegevens per klant in dezelfde cel. Nu zoek ik een manier om op een automatische wijze de naam gegevens te gaan af zonderen. Het gaat namelijk over een kleine 5000 klanten en dus niet echt gewenst om dit manueel te gaan doen. Het formaat van de gegevens zien er als volgt uit, NAAM GEGEVENS Straatnaam Localiteit. Dus met andere woorden de naam, die eventueel uit meerdere delen bestaat is steeds volledig in hoofdletters vermeld en de straat en localiteit is het enkel de eerste letter die een hoofdletter is. Daarom dacht ik dit formaat als selectie te gaan gebruiken. En zoek ik dus een wijze om dat te detecteren, dat mag een Excel functie zijn of Vba code dat maakt me niets uit.

Thx voor jullie hulp. Mvg, Vic

#2 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4091 berichten
    Laatst bezocht 23 Jul 2014 09:06
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 06 March 2013 - 13:29

Als je google gebruikt en je kijkt bij de eerste vermelding helpt die niet?
LINK

Wat is het gezegde in Ontwikkeling van software.: Er zijn vele wegen die naar Rome leiden, de kunst is de goede te vinden.
email : pascalbianca@vbib.be
of email : webmaster@vbib.be
MSN.:: pmhaschuffelers@hotmail.com
Volg ook mijn Raspberry Pi Blog.:: link


Geplaatste afbeelding


Huisregels - Tutorials - VS 2012 Express - Keybinding Posters - Code Tags gebruiken - LessThenDot - MSDN


*** If you like you're solution or appriciate the crew's effort, please click on the facebook like or the Google + button ***


#3 Vic

Vic

    Professional Developer

  • Leden
  • PipPipPipPip
  • 424 berichten
    Laatst bezocht 28 Apr 2014 13:25

Geplaatst op 08 March 2013 - 11:53

Alleszins bedankt voor de tip.

Ik heb het ondertussen met volgende UDF gedaan.

Code:
Public Function GetName(pVal As Range) As String
Dim iCnt As Integer
Dim sName As String
sName = ""
For iCnt = 1 To Len(pVal.Value)
	If UCase(Mid(pVal.Value, iCnt, 1)) = Mid(pVal.Value, iCnt, 1) Then
		sName = sName & Mid(pVal.Value, iCnt, 1)
	Else
		Exit For
	End If
Next
GetName= Trim(Left(sName, Len(sName) - 1))
End Function






0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Hosting provided by Combell
Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
vbib.be - vbnet.be - vbdotnet.be - visualbasic.be