
German: 
Hallo, heute will ich Euch zeigen, wie Ihr den aktuellen Kurs einer beliebigen Kryptowährung in Excel bekommt
Es ist sehr einfach. Alles, was Ihr machen müsst, ist den VBA Programmcode in der Beschreibung in Excel zu kopieren.
Man beginnt ein neues Excel-Dokument, klickt mit der rechten Maustaste auf "Blatt 1", wählt "Code anzeigen"
Der VBA-Editor öffnet sich. Hier wählt man "Einfügen -->Modul"

English: 
Hi!
Today I would like to show you, how you can
get the latest price of any cryptocurrency
into Excel.
it is actually very easy.
All you have to do is copy and paste the VBA
macro shown in the description below into
Excel.
I quickly show you now how it works you start
a new Excel file, go down there to "Sheet 1"
, click there with your right mouse button,
select "View Code".
The VBA editor is opening.
Here you simply click on "Insert --> Module"
and then select the whole code of the macro

German: 
Den ganzen Macrocode aus der Beschreibung kopieren und in das neu erzeugte Modul einfügen und den Visual Basic Editor wieder schliessen.
Jetzt kann man sich jeden beliebigen Wechselkurs anzeigen lassen, in dem man den folgenden Text eingibt:
=CryptoQuote("BTC")
Hier muss das Kürzel der Kryptowährung eingegeben werden.
Zum Beispiel Bitcoin hat das Kürzel "BTC". Dann wird die Klammer geschlossen. Voilà, hier ist der Kurs.
Um das richtige Tickersymbol zu finden sollte man auf eine Website wie CryptoCompare gehen und den Namen des jeweiligen Tokens eingeben.

English: 
copy it, paste it into the newly created module,
close the Visual Basic editor again and now
you can simply get the value you are interested
in by writing the following text: =CryptoQuote("BTC").
And here you have to enter now the ticker
symbol of the currency you are interested
in, for example Bitcoin is BTC.
Then you close the bracket again.
Voila, here is the price.
In order to find the right ticker symbol you
should go to a website like CryptoCompare
and enter the name of your token.

German: 
Zum Beispiel Monero. Das Tickersymbol von Monero ist "XMR". Das muss in die Eingabezeile von Excel eingegeben werde.
Wenn man also "BTC" durch "XMR" ersetze bekommt man den momentanen Kurs des Monero Tokens.
Es muss berücksichtigt werden, dass der Kurs in Euro angegeben wird.
Wenn man eine andere  Fiat-Währung möchte muss das im Macro definiert werden.
Um zum Beispiel US-$ zu erhalten muss "EUR" durch "USD" ersetzt werden.
Das ist auch schon alles. Danke für's Zuschauen. Tschüß!

English: 
Example would be Monero.
You see, the ticker symbol of Monero is XMR.
This is what you also have to enter here.
So if I replace BTC with XMR you get the current
price of the Monero token.
What you also have to take into account:This
is the price in Euro.
If you want some other Fiat currency you are
supposed to change it here in the VBA code.
So if you want US-Dollar for example you change
EUR to USD.
That's actually all already.
Thanks for watching!
Bye!
