Live Forex Preise In Excel

Wiki So erstellen Sie einen Währungsrechner mit Microsoft Excel Wie man Geld in Großbritannien zu tauschen Wie man Microsoft Money Files in Microsoft Excel-Dateien umwandeln Wie man zwei Zellen hinzufügen, die bereits Summe von anderen Formeln enthalten Wie man eine beschädigte Excel-Datei wiederherstellt Wie man eine Entscheidung macht Verwenden eines quantitativen Scoring-Systems Wie benutzt man Morningstar, um einen Bestand zu bewerten Wie man Excel in PDF umwandelt Wie man eine SQL-Abfrage in Microsoft Excel einbindet Wie man in Excel subtrahiert Wie man ein Kreisdiagramm in ExcelForeign Wechselkurs-Funktion in Excel Diese Excel-Tabelle hat Eine VBA-Funktion (UDF), die Live-Wechselkurse von Yahoo Finance kratzt. Lesen Sie weiter für die kostenlose Excel-Tabelle und VBA. Die Excel-Funktion ist perfekt für wann immer Sie eine Währungsumrechnung benötigen. Ich benutze es, um den britischen Pfundwert eines US - und kanadischen Dollar-Bankkontos zu verfolgen. Die Preise sind von Yahoo Finance gekratzt und sind in Echtzeit (aber um 15 oder 20 Minuten verzögert). Die UDF ist einfach zu bedienen. Hier ist die Syntax. FXRate (8220currency18221, 8220currency28221,8220close8221, 8220open8221, 8220bid8221, 8220ask8221) Dies ist ein Beispiel für die Verwendung von FXRate () in Excel für eine Währungsumrechnung zwischen GBP und USD. Die ersten beiden Argumente sind die Währung you8217re Umwandlung von und die Währung you8217re Umwandlung in. Hierbei handelt es sich um Währungscodes mit drei Buchstaben (z. B. GBP für britische Pfund oder CAD für kanadische Dollar) als Strings. Das dritte Argument ist eines von 8220close8221, 8220open8221, 8220bid8221 oder 8220ask8221 (wieder als String). Der enge Preis ist der vorherige Abschluss. Die Verknüpfung zur Excel-Tabelle ist am Ende dieses Beitrags, aber hier8217s die VBA. Option Explicit Function FXRate (currency1 As String, currency2 Als String, rateType As String) Als Double Dim Str Als String Dim temp Als String Dim BidStart Als Long Dim BidEnd Als Long Dim AskStart Als Long Dim AskEnd Als Long Dim openStart Als Long Dim openEnd As Long Dim closeEnd Als Long Dim closeEnd Als Long Dim Bieten Als Double Dim fragen als Double Dim ropen als Double Dim rclose Als Double str quotfinance. yahooqsquot amp currency1 amp currency2 amp quotXquot temp ExecuteWebRequest (str) bidStart InStr (temp, quotBid: quot) bidEnd InStr (btStart, temp, quotquot) Gebot Mid (temp, bidStart 65, bidEnd - bidStart - 72) askStart InStr (temp, quotAsk: quot) AskEnd InStr (askStart, temp, quotquot) fragen Mid (temp, askStart 65, askEnd - AskStart - 72) openStart InStr (temp, quotOpen: quot) openEnd InStr (openStart, temp, quotquot) ropen Mid (temp, openStart 38, openEnd - openStart - 38) closeStart InStr (temp, quotPrev Schließen: quot) closeEnd InStr (closeStart , Temp, quotquot) rclose Mid (temp, closeStart 44, closeEnd - closeStart - 44) Wenn rateType quotaskquot Dann FXRate fragen ElseIf rateType quotbidquot Dann FXRate Gebot ElseIf rateType quotopenquot Dann FXRate ropen ElseIf rateType quotclosequot Dann FXRate rclose End If End Function Function ExecuteWebRequest ( ByVal url Als String) Als String Dim oXHTTP Als Objekt Wenn InStr (1, url, quotquot, 1) ltgt 0 Dann url url amp quotampcbquot amp Timer () 100 Else url url amp quotcbquot amp Timer () 100 End If Set oXHTTP CreateObject ( QuotMSXML2.XMLHTTPquot) oXHTTP. Open quotGetquot, url, False oXHTTP. send ExecuteWebRequest oXHTTP. responseText Set oXHTTP Nichts End Function ExecuteWebRequest () wurde von hier kopiert und geändert. ExecuteWebRequest () ruft den HTML einer Web-Seite ab, während FXRate () das HTML verarbeitet, um die Wechselkurse zu extrahieren. Denken Sie daran, dass FXRate () die Daten von Yahoo Finance mit einer einfachen String-Verarbeitung kratzt. Also, wenn sich die Struktur der Daten auf Yahoo Finance ändert, dann funktioniert diese Funktion möglicherweise nicht mehr. Lassen Sie mich wissen, wenn dies geschieht, und I8217ll aktualisieren Sie die VBA, so dass es wieder funktioniert. Wenn Sie historische Währungsumrechnungskurse über einen Datumsbereich wünschen, dann schauen Sie sich diese Kalkulationstabelle an. Sie können auch eine QueryTable verwenden, um Wechselkurse zu extrahieren. Hinterlassen Sie einen Kommentar, wenn Sie Fragen oder Kommentare haben. 22 Gedanken auf ldquo Foreign Exchange Rate Funktion in Excel rdquo Die Funktion bricht, wenn die Standorte der Substringsuche den Wert 32767 für den Integer-Datentyp überschreitet. Wenn Sie die Deklarationen für bidStart, bidEnd usw. auf Long anstelle von Integer ändern, funktioniert die Funktion zuverlässig, wenn die Länge der Temp-Variable extrem groß ist. Für eine Seite, die heute zurückgegeben wurde, war die Länge der Temp-Variable 76104 mit dem BidStart gleich 33422. Die Long-Deklarationen ermöglichen es der Funktion, wieder wie erwartet zu arbeiten. Vielen Dank I8217ve änderte den Datentyp zu Long in der VBA und Kalkulationstabelle. Sehr geschätzt Danke für den oben genannten Code. I8217m mit Problemen mit der Position der fx-Raten in der HTML-Quelle. I8217m versucht, die GBPSGD fx Rate abzurufen. Unten sind die Positionen für die 8220bid8221 (der erste Preis, den der Code in der HTML-Quelle durchsucht) bidStart31180 bidEnd 31180 bidStart 65 31245 bidEnd 8211 bidStart 8211 72 -72 Also weil die bidStart und BidEnd die gleiche sind, kann die Mid-Funktion die Gebotsrate finden . Warum machst du die BidEnd Position, indem ich nach 82208221 bidEnd InStr (bidStart, temp, 82208221) I8217ve gerade versucht mit der FXRate () - Funktion in der Kalkulationstabelle, um den GBPSGD Wechselkurs zu greifen mit Es scheint zu funktionieren 8211 die UDF korrekt kratzt das Gebot Preis von Yahoo Finance. Also, weil die bidStart und BidEnd die gleiche sind die Mid-Funktion kann nicht finden, die Gebot-Rate Scheint, um die Gebotsrate für mich zu finden Ich habe versucht, diese Umwandlung zu verwenden, aber nicht mehr arbeiten oder geben nicht mehr ein Ergebnis Wert. Ich habe vor einer ähnlichen Funktion verwendet: (siehe unten). Aber wenn ich die untere und umwandeln von IDR zu EUR gibt es 5 Euro Umwandlung statt 3,5Euro (die ich bekomme, wenn ich online auf die Yahoo-Konverter Seite gehen) Also habe ich für eine bessere Lösung und kam auf Ihrer Seite, Allerdings ist kein Ergebnis gegeben: Funktion YahooCurrencyConverter (ByVal strFromCurrency, ByVal strToCurrency, Optional ByVal strResultType 8220Value8221) Auf Fehler GoTo ErrorHandler 8216Init Dim strURL Als String Dim objXMLHttp Als Objekt Dim StrRes Als String, dblRes als Double Set objXMLHttp CreateObject (8220MSXML2.ServerXMLHTTP8221) 8216strURL 8220finance. yahoodquotes. csve. csvampfc4l1amps8221 amp strFromCurrency amp strToCurrency amp 8220X8221 strURL 8220finance. yahooqs8221 amp strFromCurrency amp strToCurrency amp 8221 X8221 8216Send XML Anfrage Mit objXMLHttp. Open 8220GET8221, strURL false. setRequestHeader 8220Content-Type8221, 8220applicationx-www-form-URLEncoded8221.send strRes. responseText Ende mit 8216Parse Antwort dblRes Val (Split (strRes, 8220,8221) (1)) Wählen Sie Fall strResultType Fall 8220Value8221: YahooCurrencyConverter dblRes Fall Else: YahooCurrencyConverter 82201 8221 amp strFromCurrency amp 8221 8221 amp dblRes amp 8221 8221 amp strToCurrency Ende Select CleanExit: Set objXMLHttp Nothing Exit Funktion ErrorHandler: YahooCurrencyConverter 0 GoTo CleanExit End Function Bitte, kann mir jemand helfen, ich brauche eine Excel-Tabelle, um die Wechselkurse zu einem bestimmten Datum anzuzeigen. Beispiele: USD zu GBP Wechselkurs im Oktober 10th 2014. USD zu BRL Wechselkurs am 10. Oktober 2014. Ich denke, es könnte eine Funktion sein, zum Beispiel: FXRateatDate (Währung1, Währung2,8221Date8221) Ist das möglich Das andere ist, dass es ist Muss mit meinem brasilianischen Laptop Excel arbeiten, das benutzt. Als Dezimaltrennzeichen (International Units System) Vielen Dank im Voraus VB funktioniert super. Zusammen mit dem OPEN-Wechselkurs (das ist der einzige Teil, den ich verwende), möchte ich auch das Austauschdatum in eine Zelle extrahieren. Kannst du etwas vorschlagen, funktioniert das noch? Weil es doesn8217t scheinen zu arbeiten, wenn ich es benutze Ich habe die folgende Formel: FXRate (8220EUR8221,8221USD8221,8221bid8221) und es zurückgegeben 8220VALUE8221. Sehr geehrte alle, es funktionierte gut bis Ende Dezember 2016. Es scheint, dass Yahoo etwas auf ihrer Website geändert hat. Könnte jemand bitte in den Code schauen und eine Lösung geben, was geändert werden muss, danke. Dieser angepaßte Code scheint zu funktionieren. Ich habe es nicht mit allen möglichen Combos getestet, aber es hat für die wenigen gearbeitet, die ich getestet habe Funktion FXRate (currency1 As String, currency2 As String, rateType As String) Als Double Dim Str Als String Dim temp Als String Dim bidStart As Long Dim bidEnd As Lange Dim AskStart Als Long Dim askEnd Als Long Dim openStart Als Long Dim openEnd Als Long Dim closeStarten Als Long Dim closeEnd Als Long Dim Bid Als Double Dim fragen, wie Double Dim ropen als Double Dim rclose als Double Dim i wie lange, i1 So lange, I2 Wie lange Dim myArray () Als Variant str 8220finance. yahooqs8221 amp currency1 amp currency2 amp 8220X8221 temp ExecuteWebRequest (str) ReDim myArray (1 Zu Len (temp) 500) Für i 1 Zu Len (temp) 500 i1 (i 8211 1) 500 II i1 i1 500 8211 1 Wenn (i2 gt Len (temp)) Dann i2 Len (temp) myArray (i) Mid (temp, i1, 500) Weiter i 8216ActiveSheet. Range (8220A508221) myArray bidStart InStr (1, temp, 822BidEnd InStr (bitStart 1, temp, 82208221) 7 openEnd InStr (openStart 1, temp, 82208221) 7 openEnd InStr (openStart 1, temp, 82208221) 7 closeEnd InStr (bidStart 1, temp, 82208221) CloseStart 1, temp, 8220tquot) Gebot Mid (temp, bidStart, bidEnd 8211 bidStart) fragen Mid (temp, askStart, askEnd 8211 askStart) ropen Mid (temp, openStart, openEnd 8211 openStart) rclose Mid (temp, closeStart, closeEnd 8211 closeStart ) Wenn rateType quotaskquot Dann FXRate fragen ElseIf rateType quotbidquot Dann FXRate Gebot ElseIf rateType quotopenquot Dann FXRate ropen ElseIf rateType quotclosequot Dann FXRate rclose Ende If Function ExecuteWebRequest (ByVal url As String) Als String Dim oXHTTP Als Objekt Wenn InStr (1, url, quotquot, 1) 0 Dann url url amp 8220ampcb8221 amp Timer () 100 Else url url amp 8220cb8221 amp Timer () 100 Ende Wenn gesetzt oXHTTP CreateObject (8220MSXML2.XMLHTTP8221) oXHTTP. Open 8220GET8221, url, False oXHTTP. send ExecuteWebRequest oXHTTP. responseText Set oXHTTP Nichts Oops 8211 in einem Debug-Code verlassen. Du kannst dieses Zeug löschen: ReDim myArray (1 To Len (temp) 500) Für i 1 To Len (temp) 500 i1 (i 1) 500 1 i2 i1 500 1 Wenn (i2 gt Len (temp)) Dann i2 Len ( Temp) myArray (i) Mid (temp, i1, 500) Weiter i ActiveSheet. Range (A50) myArray Grrr Moderator 8211 Bitte löschen Sie die obigen Kommentare. Der Schnitt und die Paste funktionierten nicht richtig und ließen einen Code heraus. Hoffentlich ist das, was unten ist, vollständig und richtig. Danke Funktion FXRate (Währung1 Als String, Währung2 Als String, rateType As String) Als Double Dim Str Als String Dim temp Als String Dim BidStart Als Long Dim BidEnd Als Long Dim AskStart Als Long Dim AskEnd Als Long Dim openStart Als Long Dim openEnd So Long Dim closeStart wie lange Dim closeEnd als Long Dim Bieten Als Double Dim fragen als Double Dim ropen als Double Dim rclose als Double Dim i wie lange, i1 wie lange, i2 wie lange temp ExecuteWebRequest (str) ReDim myArray (1 zu Len (temp) 500) Für i 1 Zu Len (temp) 500 i1 (i 8211 1) 500 1 i2 i1 500 8211 1 Wenn (i2 gt Len (temp)) Dann i2 Len (temp) myArray (i) Mid (temp, i1, 500 ) BidStart InStr (bidStart, temp, 8220x82218221gt8221) 4 bidEnd InStr (bidStart 1, temp, 82208221) 4 askEnd InStr (askStart 1, temp, 82208221) 7 openEnd InStr (openStart 1, temp, 82208221) 7 closeEnd InStr (closeStart 1, temp, 8220ltquot) Gebot Mid (temp, bidStart, bidEnd 8211 bidStart) fragen Mid (temp, askStart, askEnd 8211 askStart) ropen Mid (temp , OpenStart, openEnd 8211 openStart) rclose Mid (temp, closeStart, closeEnd 8211 closeStart) Wenn rateType quotaskquot Dann FXRate fragen ElseIf rateType quotbidquot Dann FXRate Gebot ElseIf rateType quotopenquot Dann FXRate ropen ElseIf rateType quotclosequot Dann FXRate rclose Ende If Function ExecuteWebRequest (ByVal url As String) Als String Dim oXHTTP Als Objekt Wenn InStr (1, url, quotquot, 1) 0 Dann url url amp 8220ampcb8221 amp Timer () 100 Else url url amp 8220cb8221 amp Timer () 100 Ende Wenn Set oXHTTP CreateObject (8220MSXML2.XMLHTTP8221) OXHTTP. Open 8220GET8221, url, False oXHTTP. send ExecuteWebRequest oXHTTP. responseText Set oXHTTP Nichts wie die Free Spreadsheets Master Wissensdatenbank Aktuelle BeiträgeWelche Kalkulationstabellen unterstützen eine Formel wie die folgenden: Das Ergebnis sollte 3000 USD in Euro ausgetauscht werden. Möglicherweise könnte ein Termin für einen historischen Wechselkurs bereitgestellt werden. Alternativ, der Durchschnitt für den letzten Monat oder so. Ich würde solch ein Feature die ganze Zeit verwenden und es muss für so viele andere Benutzer relevant sein. Ich arbeite lieber in Excel, aber Online-Kalkulationstabellen wie Google oder Zoho ist auch gut. Fragte am 20. Mai um 12:07 Uhr GOOGLE SPREADSHEETS Theres ein Google Spreadsheet-Skript, das den Wechselkurs zwischen EURO und einer von Ihnen angegebenen Währung zurückgibt. Daten sind angeblich von der Europäischen Zentralbank. Öffnen Sie eine Google Docs Spreadsheet. Klicken Sie auf Script-Suche einfügen für ECBExchangeRate Mit Anführungszeichen zum Datum Dies wird den Wechselkurs zwischen USD und EUR für das Datum mmddyyyy zurückgeben. Leider ist die Datenquelle nicht aktualisiert. Berechnen zwischen 2 Währungen: Zum Beispiel wollen wir die USDJPY Rate für heute bekommen. Holen Sie EURUSD und EURJPY mit der obigen Formel. Teilen Sie den EURJPY-Satz durch den EURUSD-Satz. Sie erhalten USDJPY. Ich glaube nicht, dass eine solche Funktion für Excel existiert (zumindest standardmäßig). Sie können jedoch ein Blatt einrichten, das Daten aus einer Online-Wechselkurstabelle importiert, wie die auf der Yahoo Finance-Seite (finance. yahoo Investing Currencies Currencies Investing Cross Rates). Sie können dann eine VLOOKUP - oder INDEXMATCH-Formel einrichten, um die entsprechenden Wechselkurse für Sie zu erhalten. Erstellen Sie ein neues Blatt (empfohlen). Klicken Sie auf Daten aus Web Geben Sie die folgende URL ein: Klicken Sie auf den gelben Pfeil neben der Wechselkurstabelle. Der Pfeil sollte zu einem grünen Häkchen werden. Klicken Sie auf Importieren. Klicken Sie auf Eigenschaften. Unter Refresh Control. Geben Sie an, wie oft Sie möchten, dass Excel neue Daten abruft, oder wählen Sie beim Öffnen der Datei Refresh-Daten. Klicken Sie auf OK und warten Sie, bis Excel die Daten geladen hat. Um die Daten zu aktualisieren, klicken Sie einfach auf Ctrl-Alt-F5. Die Daten auf der Yahoo Finance Seite ist ziemlich begrenzt, aber es deckt die beliebtesten Währungen. Sie können andere Quellen verwenden, wie zum Beispiel: Die Website xeucc hat historische Tariftabellen, die Sie konsolidieren können. Sie finden nichts, das in irgendeiner Kalkulationstabelle für etwas eingebaut wird, das ständig wie Wechselkurse ändert. Zum Glück gibt es dort schon Lösungen, die andere für diese Art von Dingen geschaffen haben, wie zB WikiHow. Yahoo Answers. OzGrid Ehow Es gibt viele andere Lösungen, aber die meisten von ihnen folgen den gleichen allgemeinen Design-Muster. Wenn keine der oben genannten Links sind, was du suchst, würde ich vorschlagen, auf der OzGrid-Website zu suchen. Ihre Foren sind oft eine der besten für die Suche nach Excel-Lösungen. Antwort von Mai 20 11 um 12:27 Keine der Links sind hilfreich. Ich wäre noch besser dran kopieren und in den aktualisierten Wechselkurs einfügen. Es muss eine bessere Lösung geben. Ndash David Mai 20 11 um 13:25 Sie können Spearian für MS Excel verwenden, spearianforexcel. Zu arbeiten und alle Geschichte eines Wechselkurses herunterzuladen. Es ist sehr komfortabel für den Erhalt von Zugang zu allen wichtigen Marktdaten, einschließlich Yahoo FinanceReal-Time Forex Preise in Excel Holen Sie sich in Echtzeit Live-Wechselkurse in Excel mit dieser kostenlosen Kalkulationstabelle. Die Zitate werden um ca. 15 oder 20 Minuten verspätet, aber jede Minute aktualisiert. Alles ist in VBA automatisiert. Die VBA kann angesehen und modifiziert werden. Die Nüsse und Schrauben des Codes sind eine QueryTable, die die aktuellsten Forex-Raten von finance. yahoo für die beiden angegebenen Währungen extrahiert. Alles, was Sie tun müssen, ist, geben Sie zwei Drei-Buchstaben-Währungscodes ein, und klicken Sie auf eine Schaltfläche (hier finden Sie eine Liste der Währungscodes). Die VBA lädt dann die aktuellsten Wechselkurse von Yahoo in Excel, mit einer Abfrage-Tabelle. Excel lädt dann die bisherigen, offenen und aktuellen Bidask-Raten für das Währungspaar herunter. Wenn Sie auf die Schaltfläche klicken, werden die Anführungszeichen mit den aktuellsten Werten erneut aktualisiert. Automatisch aktualisiert Real-Time Forex in Excel Nun, hier8217s wo können wir clever und bekommen Excel automatisch aktualisieren die Wechselkurse live. 1. Wählen Sie die QueryTable aus, wie unten gezeigt, klicken Sie mit der rechten Maustaste und wählen Sie Data Range Properties. 2. Legen Sie im Menü External Data Range Properties die Option Refresh jede Option ein und wählen Sie eine Aktualisierungszeit (Sie können nur eine ganzzahlige Anzahl von Minuten wählen). Klicken Sie nun auf OK. Excel aktualisiert nun die Daten in der QueryTable automatisch, ohne dass Sie auf Schaltflächen klicken oder Makros ausführen müssen. Cool, ich benutze eine Variante dieser Kalkulationstabelle, um den Sterlingswert meiner ausländischen Einsparungen zu verfolgen. Sie können zum Beispiel die VBA ändern, um Forex-Raten für viele Währungspaare herunterzuladen (lassen Sie mich wissen, wenn Sie diese Kalkulationstabelle wünschen). Eine weitere Excel-Kalkulationstabelle ruft die täglichen historischen Wechselkurse zwischen zwei Daten ab. 9 Gedanken auf ldquo Real-Time Forex Rate in Excel rdquo Wie die freien Spreadsheets Master Wissensbasis Aktuelle Beiträge