@michax Kursabfrage

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = ActiveSheet.Range("C1") Then
KreditKartenWechselKurse
End If
End Sub

Option Explicit
Option Private Module
#If VBA7 And Win64 Then
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Sub KreditKartenWechselKurse()
Const url As String = "https://online.firstdata.com/CurrencyCalculator/fremdwaehrungskurse/ _
calendar"
Dim chosenDate As Date
Dim chosenDateMonthName As String
Dim startRow As Long
Dim currentRow As Long
Dim currentCol As Long
Dim nodeInput As Object
Dim nodeDropdown As Object
Dim nodeCalMonthNav As Object
Dim nodeCalNav As Object
Dim currentCalMonth As String
Dim nodeAllDays As Object
Dim nodeOneDay As Object
Dim nodeResultPage As Object
Dim nodeResult As Object
Dim nodeRow As Object
Dim nodeCell As Object
Dim splitArray() As String
'Variablen initialisieren
startRow = 2
currentCol = 3
'Sicher stellen, dass das Datum für den Abruf innerhalb
'des letzten halben Jahres seit gestern liegt
'Ggf. wird die obere oder untere Datumsgrenze gesetzt
If IsDate(ActiveSheet.Cells(1, 3)) Then
'Steht in C1 ein Datum, dises als gegeben annehmen
chosenDate = CDate(ActiveSheet.Cells(1, 3))
'Prüfen, ob es innerhalb der erlaubten Datumsgrenzen liegt
Select Case chosenDate
Case Is >= Date: chosenDate = Date - 1
Case Is  chosenDateMonthName Then
'Bei Ungleichheit einen Monat zurück navigieren
nodeCalMonthNav.Click
'100 mS warten, um den Kalender neu aufzubauen
'Nach oben anpassen, wenn Zielmonat nicht erreicht wird
Sleep (100)
End If
Loop Until splitArray(4) = chosenDateMonthName
'Alle anklickbaren Tage des Kalenderblattes sind a-Tags
Set nodeAllDays = .Document.getElementsByClassName("calbody")(0).getElementsByTagName("a") _
'Alle Tage durchgehen und den richtigen anklicken
For Each nodeOneDay In nodeAllDays
'Der Vergleich muss auf den gleichen Datentyp stattfinden
'Wir wandeln deshalb die Zahl des gewählten Datums-Tages
'in einen String um
If nodeOneDay.innertext = CStr(Day(chosenDate)) Then
'Klicken wenn gefunden
nodeOneDay.Click
'Schleife verlassen
Exit For
End If
Next nodeOneDay
'Jetzt kann der Submit-Button geklickt werden
.Document.querySelector("input[value='submit']").Click
'Warten, bis die Ergebnisseite geladen wurde
Do
On Error Resume Next
Set nodeResultPage = .Document.getElementsByClassName("resultsTable")(0)
On Error GoTo 0
Loop Until Not nodeResultPage Is Nothing
'Ergebniszeile in der Excel-Tabelle ausgeben
'aus der das Makro gestartet wurde
Set nodeResult = .Document.getElementsByClassName("even")(0)
Set nodeRow = nodeResult.getElementsByTagName("td")
For Each nodeCell In nodeRow
Cells(currentRow, currentCol) = Trim(nodeCell.innertext)
currentCol = currentCol + 1
Next nodeCell
currentCol = 3
'IE beenden
.Quit
End With
Next currentRow
End Sub