VBA: Wie die Rückkehr einer Zelle Referenz von einer variable, die looksup einen Wert?

Zunächst, ich habe sehr wenig Erfahrung mit VBA. Hier ist mein problem:

Brauche ich für das update einer bestimmten Geschwindigkeit auf einer täglichen Basis, um Investitionen Berechnungen. Jetzt habe ich eine Schaltfläche, die einmal geklickt bringt der Tag-rate, die automatisch von einer website, und ich habe kopieren und fügen Sie den Zinssatz auf Ihre jeweilige Datum manuell ein. Was ich möchte, es zu tun, klicken Sie einfach auf den Knopf und die rate wäre automatisch eingefügt werden neben dem Datum. Das Arbeitsblatt sieht wie folgt aus:

                                                Update Button
                                           Day's date        Day's rate
                                           03/01/2013            6%

  Date           Rate        
02/01/2013        5%
03/01/2013        6%
04/01/2013

Die naheliegendste Möglichkeit, es zu tun, wäre die Verwendung von SVERWEIS zu suchen, die dem aktuellen Datum oben rechts und fügen Sie Sie in der richtigen Stelle in der Spalte B, aber das problem wäre, dass jedes mal, wenn ich den Wert aktualisieren, werden die vorherigen Tages Formel zu Fehlern führen würde. Also die beste Lösung wäre, um ein einfaches makro, das dem Tag entspricht, ist das Datum in Spalte A und fügt nur den Wert der rate weiter zu.
Eine gute Strategie, um diese Aktion durchzuführen, mit normalen Tabellenfunktionen wäre =CELL("address";INDEX(B:B;MATCH($G$5;A:A;0);)), die in den Zellbezug der rechten übernachtung in Spalte B. Das problem ist, es ist nicht die = - ZELL-Funktion in VBA.

Habe ich versucht, das folgende Skript aus, aber es hat nicht funktioniert:

Sub Teste2()

Dim IndexFormula As Range

MatchFormula = WorksheetFunction.Match(Range("Today"), Range("A:A"), 0)
IndexFormula = WorksheetFunction.Index(Range("B:B"), MatchFormula, 0)

Value = IndexFormula.Address

Range("G5").Select
Selection.Copy
Value.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

Welchen code soll ich benutzen?

Vielen Dank im Voraus

InformationsquelleAutor user3276971 | 2014-02-14

Schreibe einen Kommentar