Dezelfde tekst toevoegen aan meerdere (duizenden) cellen

[Sonja26]

Wie kan mij helpen?

Ik heb een excelbestand met zo'n 3000 regels.
Per cel moet een zelfde tekst/code aan toegevoegd worden, met behoud van wat er al in de cel staat.

Er zal vast een handige manier voor zijn, alleen weet ik deze (nog) niet.
Alvast bedankt

 

[wampier]

je kunt een lege kolom nemen en dan

=A1&" tekst" en dit naar beneden trekken. dan vervolgens met kopieren en "plakken (speciaal)" "als waarden" terug zetten

 

[ExcelAmateur]

Sonja26,

Kun je hier wat mee?

Sub ZetErBij()
A = InputBox("Welke tekst moet erbij")

  For Each cl In Range("A1:A3000")
    If cl = "" Then Exit Sub
    cl.Value = cl & A
  Next
  
End Sub

 

[Sonja26]

Beste ExcelAmateur

Dat gaat mijn kennis te boven! Ik ben nu wampier's oplossing aan het proberen.

Kom er nog op terug.
Bedankt alvast!

 

[ExcelAmateur]

Zet de code in een Module en pas het bereik aan.
In de code staat hij voor kolom A

Laat de code lopen/starten en het gaat vanzelf in de zelfde cel.

Test dit altijd uit op een test file, zodat je geen gegevens kwijt raakt.

 

[Sonja26]

Het is gelukt! Bedankt!