
Wir haben zwei Arbeitsblätter:
- Referenz
- 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:
- Erfassen der Referenz in d2 mit einer Variablen:
Dim NewRNG as Range
NewRNG = Range(Range("d2").value).value
Hier kein Glück.
- 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