Er zijn 2 reacties in dit onderwerp

[Vic]

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

[pascalbianca]

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

[Vic]

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