Met 1 macro zelfde tekst in verschillende cellen

[Arno999]

Hoi allemaal. wil graag d.m.v. een macro een tekst in een cel plaatsen b.v. cel B3 maar dezelfde tekst als deze nodig is ook in cel B4 nu heb ik voor iedere cel een afzonderlijke knop/macro maar kan ik dus met 1 knop de tekst in verschillende cellen plaatsen. heb een voorbeeldje gemaakt zodat het hopelijk wat duidelijker wordt. Alvast reuze bedankt voor jullie reacties

test1.xlsm

[alpha]

Dat kan op verscheidene manieren, dit is er 1 van:

Sub macro1()
Range("B3").Copy
Range("C4:C9").Select
ActiveSheet.Paste
End Sub

of korter:
Sub macro1()
Range("B3").Copy Range("C4:C9")
End Sub

of:
Sub macro1()
Range("C4:C9").Value = Range("B3").Value
End Sub

21 maart 2019 aangepast door alpha

[Arno999]

Wederom bedankt Alpha heb deze ingevoerd meer nu krijg ik in de gehele range de tekst uit cel b3. Wat mijn bedoeling is dat als ik b.v. op cel b3 sta ik de tekst "test 1" wil maar als ik op cel b5 sta ik ook de tekst "test 1" wil maar niet in de overige vrije cellen. dus alleen de tekst "test1" in de cel die ik geselecteerd heb. alvast bedankt voor je reactie 

[alpha]

ActiveCell.Value = "Test1"

of, als Test1 in B3 staat:

ActiveCell.Value = Range("B3").Value

[Arno999]

Pffffff lijkt wederom zo simpel werkt geweldig mijn dank is wederom groot in 1 minuut meer voor elkaar gekregen dan 1 week aan kloten nogmaals dank je wel.

[alpha]

Wellicht handig om te weten (als je het nog niet weet):

Excel heeft ook een macrorecorder: als je die aan zet terwijl je een handeling uitvoert en uit zet als die handeling is afgelopen (bv. een celinhoud kopiëren), dan heb je meteen de gewenste macro (min of meer).  Kijk of boven het lint de tab "Ontwikkelaars" aanwezig is. Indien niet: Kies "Bestand - Opties - Lint aanpassen" en plaats (indien nodig) in de rechterkolom een vinkje bij "Ontwikkelaars". Die tab "Ontwikkelaars" bevat een groep met de naam "Programmacode" met daarin de knop "Macro opnemen".

 

[emielDS]

nog een paar mogelijkheden

test1 (1).xlsm

[kweezie wabbit]

Op 21/3/2019 om 18:08, Arno999 zei:

... werkt geweldig mijn dank is wederom groot ...

Dan gaan we er van uit dat je probleem is opgelost en kunnen we de vraag afsluiten.