Deel uit een cel verplaatsen

[Ernootje]

Ik ben op zoek naar een manier om een deel uit een cel te kopieren naar een kolom op het zelfde werkblad:

TE KOOP: fiets, BATAVUS, blauw,

Ik wil het merk uit de cel kopieren naar de kolom "Merken" op het zelfde werkblad.

Ik werk met Office 2007.
M.v.g.,

Onno.

 

[Wigi]

Hang het eens in versie 2003 bij aub.

 

[snb]

Stel deze tekst staat in cel A5
de tekst BATAVUS moet in cel K10 komen

sub bewerk()
  sq=split([A5],",")
  [K10]=sq(1)
end sub

 

[Thoralf]

Hallo Onno,

Als je het met een formule wilt oplossen is de volgende een mogelijkheid:
=DEEL(A1;VIND.SPEC(",";A1)+2;VIND.SPEC(",";A1;VIND.SPEC(",";A1)+1)-VIND.SPEC(",";A1)-2)

Groeten
Thoralf

 

[Ernootje]

2003

Hang het eens in versie 2003 bij aub.

Hierbij de 2003 versie.

 

[bandito bob]

Of deze formule om het merk van cel A1 te krijgen:

=DEEL(A1;17;VIND.SPEC(",";A1;16)-17)

vervolgens doortrekken naar beneden.

 

[Ernootje]

Hallo Onno,

Als je het met een formule wilt oplossen is de volgende een mogelijkheid:
=DEEL(A1;VIND.SPEC(",";A1)+2;VIND.SPEC(",";A1;VIND.SPEC(",";A1)+1)-VIND.SPEC(",";A1)-2)

Groeten
Thoralf

Is dat bedoelt voor in 'n macro en zo ja wat komt er dan voor =DEEL ?

 

[Ernootje]

Stel deze tekst staat in cel A5
de tekst BATAVUS moet in cel K10 komen

sub bewerk()
  sq=split([A5],",")
  [K10]=sq(1)
end sub

Dit werkt. Bedankt.

Ga proberen of ik de hele colom kan selecteren en verplaatsen.

 

[bandito bob]

Is dat bedoelt voor in 'n macro en zo ja wat komt er dan voor =DEEL ?

Nee, het is een formule zoals Thoralf schreef.

 

[Ernootje]

Nee, het is een formule zoals Thoralf schreef.

Oké, bedankt alvast!!!

Onno.

 

[Ernootje]

Even wat terug doen.
Ik ben zelf ook aan het proberen geweest en het mag er best wezen (voor 'n beginneling).

Script:

Sub Macro1()
'
' Macro1 Macro
'

'
Columns("A:A").Select
Selection.Copy
Range("K1").Select
ActiveSheet.Paste
Columns("K:K").Select
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("K1"), DataType:=xlDelimited, _
TextQualifier:=xlSingleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
True
Columns("K:K").Select
Selection.Delete Shift:=xlToLeft
Columns("L:L").Select
Selection.Delete Shift:=xlToLeft
End Sub

M.v.g.,

Onno.