Macro tekst toevoegen aan selectie

[Abco_B]

Ik heb een macro nodig die aan een selectie cellen met tekst een tekst toevoegd.

Zodat

"Kantoor"

"Kantoor ruimtenr."

wordt.


Bij voorbaat dank,

Abco

 

[tobi-wan]

Misschien van mij een beetje te simpel gedacht maar kan dat niet gewoon met zoeken en vervangen
groeten Tobi

 

[koosl]

Ad,

het kan ook simpeler met Ctrl+F

selekteer de cellen die je wilt wijzigen, druk Ctrl+F in en klik op tabblad vervangen.
Type daar bij zoeken naar: kantoor in
en bij vervangen door: kantoorruimte in.
Bij opties kun je bij de zoekrichting nog kolom instellen.
Klik op alles vervangen.

Al wat geselekteerd was is vervangen.


Lukt het zo?

Koosl.

 

[Abco_B]

Ik heb een macro nodig omdat ik dit met een druk op mijn werkbalkknop wil kunnen doen.
Het gaat om een vaste tekst die ik zo nu en dan wil toevoegen.

Abco

 

[Wigi]

Kijk aub eerst eens in de helpfunctie van VBA: gewoon op replace zoeken en je hebt het.

Anyway, hier is het dan:

Sub rep()
Worksheets("Blad1").Cells.Replace What:="Kantoor", Replacement:="Kantoor ruimtenr.", _
    SearchOrder:=xlByColumns, MatchCase:=True
End Sub

Wigi

 

[Abco_B]

Wigi,

Dank voor je reactie.

Het punt is dat de geselecteerde tekst die aangevuld moet worden met " Ruimtenr." ook varieert, dus bijvoorbeeld:

Kantoor
Toilet
Slaapkamer

Moet met een druk op de knop (wanneer ik ook het ruimtenummer weet) worden

Kantoor Ruimtenr.
Toilet Ruimtenr.
Slaapkamer Ruimtenr.

Zodat ik daar het betreffende nummer bij kan invullen.

Abco

 

[Wigi]

Dit is Chinees voor mij

1/ Hoe gaat Excel weten of het om Kantoor, Toilet, Slaapkamer, ... gaat waarop hij moet zoeken?

2/ Moet het woord " Ruimtenr." nu bijgevoegd worden, of echt een nummer? En hoe gaat Excel dat nummer dan uitvissen?

Wigi

 

[Abco_B]

Wigi,

Zo ben ik begonnen met mijn vraag:

Ik heb een macro nodig die aan een selectie cellen met tekst een tekst toevoegt.


Ik zal er dit van maken:

Ik heb een macro nodig die aan een selectie cellen (met als inhoud een variabele tekst) de tekst Ruimtenr. toevoegt.
Zodat ik daarna zelf met de hand het ruimtenr kan invoeren.

Ik hoop dat dit wat meer duidelijk geeft,

Abco

 

[Wigi]

OK dan.

Sub add()
Dim c As Range
For Each c In Selection
    c = c & " Ruimtenr."
Next
End Sub

Wigi

 

[Abco_B]

Wigi,

Veel dank !

Groeten,

Abco