Weergeven 1e 4 cijfers van cel

[mooske04]

Luitjes,

ik wil graag in kolom K de eerste 4cijfers van de waarde uit kolom D. Celeigenschap van D is standaard, waarde bijv.: 1103/1201.2
Ik wil dus in K alleen 1103 weergeven.
Een vergelijkbare vraag vond ik hier maar ik zie de logica niet helemaal, dus het aanpassen lukt me niet.... Wie helpt me verder?

 

[edmoor]

In cel K1
=LINKS(D1;4)

 

[snb]

tekst naar kolommen; scheidingsteken /

 

[spaarie]

Als we dan toch alle wegen aan het bewandelen zijn naar Rome

Voor in cel K1 als er toevallig 3 of 5 cijfers zijn in D1:

=LINKS(D1;VIND.SPEC("/";D1)-1)

 

[edmoor]

Italië is een mooi land

 

[snb]

of

sub snb()
  [K1:K1000]=[if(D1:D1000="","",left(D1:D1000,4))]
end sub

of

sub snb_002()
  for each cl in columns(2).specialcells(2)
    cl.offset(,7)=split(cl,"/")(0)
  next
end sub

 

[edmoor]

Iemand nog een oplossing in een C++ geschreven DLL die geregistreerd, geïmporteerd, en gedeclareerd moet worden?

 

[mooske04]

Pfff, wat een boel antwoorden!!!
Geloof dat mijn voorkeur uitgaat naar

sub snb_002()
  for each cl in columns(2).specialcells(2)
    cl.offset(,7)=split(cl,"/")(0)
  next
end sub

Alleen: zet ik dan

Private Sub Worksheet_change(ByVal Target As Range)
    If Not Intersect(Target, Range("D1:D1000")) Is Nothing Then

ervoor?

 

[spaarie]

@ mooske: Is dat een vraag?? Of wil je een bevestiging....

 

[mooske04]

hmm, ik eindig met een vraagteken, dus is het een vraag. Maar als het idd juist is, dan vraag ik om bevestiging.Blijft het dus een vraag ;-)

 

[spaarie]

Uuuuhm... ik ben niet zo'n VBA held als SNB dus dat weet ik niet zeker, maar als je problemen hebt omdat je lege cellen er tussen hebt dan heb ik een andere formule voor je...

=ALS(ISFOUT(LINKS(D1;VIND.SPEC("/";D1)-1));[COLOR="#FF0000"]""[/COLOR];LINKS(D1;VIND.SPEC("/";D1)-1))

of die van EDMOOR

=ALS(ISFOUT(LINKS(D1;4));"";LINKS(D1;4)

Dan geeft ipv #waarde een lege cel, maar kan er ook een streepje van maken ofzo... (zie het rode) daar moet ie dan tussen in...

 

[oeldere]

@mooske

gewoon proberen in je (dummy)bestand dan weet je meteen of je de juiste VBA code hebt gebruikt.

 

[Haije]

moet

sub snb_002()
  for each cl in columns(2).specialcells(2)
    cl.offset(,7)=split(cl,"/")(0)
  next
end sub

niet zijn

sub snb_002()
  for each cl in columns([COLOR="#FF0000"]4[/COLOR]).specialcells(2)
    cl.offset(,7)=split(cl,"/")(0)
  next
end sub

?