.Find Wert in Zelle
27.04.2006 20:08:55
Michael
vor einiger Zeit wurde hier mal folgendes Makro gepostet:
Public
Sub GetExchange()
Dim usd As Range
'Damit der Benutzer die Tabelle nicht sieht, folgenden Code aktivieren
'Worksheets("Wechselkurs").Visible = xlVeryHidden
With Worksheets("Wechselkurse")
.Range("A1").QueryTable.Refresh False
Set usd = .Range("A:A").Find("usd", LookIn:=xlValues, lookat:=xlWhole)
MsgBox "Wechselkurs 1 USD - " & Val(usd.Offset(0, 2).Value) & " Euro"
End With
End Sub
Ich möchte den ermittelten Wert nicht per MsgBox ausgeben, sondern in Zelle L3 des Sheets Depot geschrieben haben.
Wie bekomme ich das hin?
Micha
Anzeige