Inkorten celinhoud

[zjiliber]

Ha allen,

Ik heb een aantal cellen in een kolom die gevuld worden met externe data. nl. naam v/d afdeling met daarachter de naam van een persoon:

Inkoop >> Pietersen, Piet

Het kan ook voor komen dat er in 1 cel meerdere namen komen te staan: nl.

Inkoop >> Pietersen, Piet
Inkoop >> Jansen, Jan

of

Inkoop >> Wimsen, Wim
Inkoop >> Pietersen, Piet
Inkoop >> Jansen, Jan

Het zijn dus dynamische cellen met telkens weer andere namen en een andere hoeveelheid namen.
Ik zou graag willen dat het eerste gedeelte van de naam, dus "Inkoop >>" verwijderd wordt.
Voor 1 naam in de cel lukt me dat wel, maar niet voor meerdere namen in 1 cel .

Kan iemand mij helpen??
Alvast bedankt

 

[richard1970]

Beste zjiliber,

Selecteer de hele kolom door op de C te klikken. Ga via Bewerken > Vervangen en vervang "Inkoop >> " door niets. OK.

Mmm, als er meer afdelingen zijn dan inkoop alleen, vervang dan "*>> " door niets.

Groeten,

Richard

 

[huijb]

Ha allen,

Ik heb een aantal cellen in een kolom die gevuld worden met externe data. nl. naam v/d afdeling met daarachter de naam van een persoon:

Inkoop >> Pietersen, Piet

Het kan ook voor komen dat er in 1 cel meerdere namen komen te staan: nl.

Inkoop >> Pietersen, Piet
Inkoop >> Jansen, Jan

of

Inkoop >> Wimsen, Wim
Inkoop >> Pietersen, Piet
Inkoop >> Jansen, Jan

Het zijn dus dynamische cellen met telkens weer andere namen en een andere hoeveelheid namen.
Ik zou graag willen dat het eerste gedeelte van de naam, dus "Inkoop >>" verwijderd wordt.
Voor 1 naam in de cel lukt me dat wel, maar niet voor meerdere namen in 1 cel .

Kan iemand mij helpen??
Alvast bedankt

Hou je ons ook op de hoogte als je op dezelfde vraag, hier gesteld, een oplossing krijgt aangedragen.

 

[arafy]

text to column

je kan ook de kolom selecteren en dan naar data - text to column gaan en als scheidingssymbool > zetten. zo blijf je de afdeling ook nog behouden.

groeten,

steven

 

[zjiliber]

Ga via Bewerken > Vervangen en vervang "Inkoop >> " door niets. OK.

data - text to column gaan en als scheidingssymbool > zetten.

Deze oplossingen werken idd, maar moeten nog steeds handmatig worden uitgevoerd.
is er geen formule voor te verzinnen??

 

[Relleboer]

Zoiets

Sub inkoopverwijderen()
    Cells.Select
    Selection.Replace What:="inkoop >>", Replacement:=""
End Sub

 

[Wigi]

Vermijd Select als het kan:

Sub inkoopverwijderen()
    Cells.Replace What:="inkoop >>", Replacement:=""
End Sub

Bedankt voor de moeite.

 

[zjiliber]

Het werkt..!
Ik dank u allen!