Waarde van cel gebruiken in de functie vervangen

[naowadee]

In een aantal cellen wil ik in 1 keer de verwijzing in een formule veranderen met vervangen.
in onderstaande macro van C17-0 naar C17-x, in dit geval naar C17-3

Ik wil echter C17-x niet intypen maar verwijzen naar de waarde van een cel.

Kan dit?



Sub vervangen()
'
' vervangen Macro
'

'
Range("B3:O20").Select
Selection.Copy

ActiveWindow.SmallScroll Down:=9
Range("B21").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-15
Range("F1").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SmallScroll Down:=15
Range("D1").Select
Selection.Copy
Range("B21:O38").Select
Selection.Replace What:="C17-0", Replacement:="C17-3", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("F1").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("D1").Select
End Sub

 

[VenA]

Plaats svp code tussen codetags.

Ik begrijp de macro-opname en de vraag niet helemaal. Je doet wat met D1 en F1 maar wat? Met de nieuw waarde in D1

Sub VenA()
  Range("B3:O20").Copy Range("B21")
  Range("F1").ClearContents
  Range("B21:O38").Replace "C17-0", Range("D1").Value, xlPart
End Sub

 

[jkpieterse]

Je hebt het over een verwijzing, maar C17-0 en C17-3 zijn geen celadressen?

 

[naowadee]

Sorry voor de warrige macro.

Essentie is dat met de optie vervangen van tekst, het goed gaat als ik C17-3 intik.
C17-0 is een vast gegeven uit de template die steeds veranderd moet worden

Maar als ik dat wil vatten in een macro wil de volgende actie, bv. C17-4 etc. niet intikken maar de waarde van een cel overnemen.

If you can dream it, you can do it.

 

[VenA]

#2 gemist?

 

[naowadee]

Beste VenA,

Werkt perfect!

Ben zeer erkentelijk en hartelijk dank.

 

[VenA]

Dan mag je de vraag nog even op opgelost zetten