ComboBox text links en rechts uitlijnen

[DutchOirs]

Goedemorgen allen,

Zit met een vraagje en dacht stel hem hier:

Heb een ComboBox gemaakt en die zou de volgende gegevens binnen moeten halen:

Achternaam, Voornaam, Tussenvoegsel en DNNnummer (DeelNameNummer)
Op zicht geen probleem, zie voorbeeldje.

De vraag is alleen hoe zou ik de gegevens zo kunnen uitlijnen dat:
Achternaam, Voornaam en Tussenvoegsel links uitgelijnd worden en DNNnummer rechts in de ComboBox?

Weet niet of dit mogelijk is, maar dacht stel de vraag hier bij de kenners.

Vr. Gr.

Dutch

 

[edmoor]

Probeer deze eens:
Bekijk bijlage ComboboxInlezen #2.xls

 

[DutchOirs]

Hoi Edmoor,

Was ook die richting op aan het zoeken, maar wordt omslachtig om het allemaal keurig te krijgen.

Had al iets gevonden [TextAlign = Justify] maar werkt alleen in een cel en is het ook niet.

Ben ff verder aan het stoeien om het allemaal netjes te krijgen.

Probleem is dat 1 space is geen letter breedte.

Al thanks voor het meedenken.

Gr.

Dutch

 

[DutchOirs]

Hoi Edmoor,

Kom dat probleem tegen met die Space. Vandaar dat ik met deze vraag was gekomen op het forum over uitlijning.

Zie versie #4

Gr.

Dutch

 

[edmoor]

Dat met die spaces krijg je niet netjes zolang je een proportioneel lettertype gebruikt. Een X neemt dan inderdaad meer ruimte in dan een i of een spatie.

 

[DutchOirs]

en wat is dan een "niet" proportioneel lettertype?

 

[edmoor]

Bijvoorbeeld Courier New.

Bijvoorbeeld Courier New.

 

[DutchOirs]

hoi edmoor,

fantastisch, ben eruit.

ff file aangepast en voor de liefhebber.

Nogmaals bedankt voor de hulp..

Vr. Gr

Dutch

 

[edmoor]

Graag gedaan

 

[HSV]

Of:

lnr = 50 - Len(Join(Application.Index(Sheets("DBase").Cells(Rij, 1).Resize(, 3).Value, 1, 0), ""))

 

[DutchOirs]

Hoi HSV,

vlieger gaat niet op want kolommen liggen niet naast elkaar

 

[HSV]

Volgens mij wel.

Lnr = 50 - (Len(Worksheets("DBase").[COLOR=#FF0000]Cells(Rij, "A")) [/COLOR]+ Len(Worksheets("DBase").[COLOR=#FF0000]Cells(Rij, "B")) [/COLOR]+ Len(Worksheets("DBase").[COLOR=#FF0000]Cells(Rij, "C")))[/COLOR]

 

[DutchOirs]

deze 3 liggen naast elkaar klopt, maar er is nog een vierde, het DNN nummer en die moest rechts uitgelijnd worden.

Wat gelukt is in versie #5

Grtz Dutch

 

[HSV]

En dat doe je met 'lnr' toch?

 

[DutchOirs]

Met Lnr bepaal ik de lengte van de Achternaam / Voornaam & Tussenvoegsel.

Vervolgens trek ik dit van een bepaalde lengte af, wat er overblijft zijn dan de spaties die tussen het Tussenvoegsel en het DNN nummer komen.

Gevolg is dat alle Nummers netjes onder elkaar staat mits men geen conventioneel lettertype neemt...

 

[edmoor]

conventioneel moet zijn proportioneel

 

[DutchOirs]

Sorry, ja inderdaad

HSV heb jouw code ingevoerd en werkt perfect. Kon deze nog niet (Join)

Werk met excel 2003

Thanks Beidde

 

[HSV]

Leuk dat je het toch nog even hebt getest Dutch.
Maakt voor mij niets uit, ik laat alleen de mogelijkheden zien (het liefst kort en/of snel).

Veel plezier ermee.