Wie ändere ich mit Excel VBA den Wert einer Zelle mithilfe eines Zellbezugs aus einer Zelle in einem anderen Arbeitsblatt?

Wie ändere ich mit Excel VBA den Wert einer Zelle mithilfe eines Zellbezugs aus einer Zelle in einem anderen Arbeitsblatt?

Wir haben zwei Arbeitsblätter:

  1. Referenz
  2. Operator

Angenommen, die Zelle d2 im Referenzblatt enthält den Wert $a$25.

Wie ändere ich den Wert der Zelle $a$25 im Operatorblatt mithilfe von Excel VBA (durch Verweisen auf die Adresse von d2 im Referenzblatt)?

Was ich versucht habe:

  1. Erfassen der Referenz in d2 mit einer Variablen:
    Dim NewRNG as Range
    NewRNG = Range(Range("d2").value).value

Hier kein Glück.

  1. Suchen der Referenzzelle im Operator und Verwenden der Adresse der gefundenen Zelle
    Sub Find_Cell()
    
    Dim RNG As Range
    Dim NewRNG as Range
    
    With Sheets("Operator").Range("A:A")
    
        Set RNG = .Find(What:=Sheets("Reference").Range("d2"), _
                    After:=.Cells(.Cells.Count), _
                    LookIn:=xlValues, _
                    LookAt:=xlWhole, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlNext, _
                    MatchCase:=False)
    End With
                    
    NewRNG = RNG.Address
    
    NewRNG.select
        
    End Sub

**in diesem Fall kann ich rng.address nicht auf eine Variable setzen

verwandte Informationen