Wert suchen und kopieren
22.06.2007 09:03:22
Michael
ich habe eine Webabfrage. Aus dieser möchte ich den Wert der Umlaufrendite suchen und in die Zelle L1 schreiben.
Das Wort "Umlaufrendite" findet sich in Spalte A der zugehörige Wert in Spalte B
Folgender VBA Code:
Sub Umlaufrendite()
Dim Umlaufrendite As Range
With Worksheets("Umlaufrendite")
.Range("A1").QueryTable.Refresh False
Set Umlaufrendite = .Range("A:A").Find("Umlaufrendite", LookIn:=xlValues, lookat:=xlWhole)
Range("L1") = Val(Umlaufrendite.Offset(0, 1).Value)
End With
End Sub