Gruppe
Extern
Bereich
Internet
Thema
Aktuellen Wechselkurs abrufen
Problem
Wie kann ich den aktuellen Wechselkurs aus dem Internet abrufen?
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: basMain
Sub WechselKurse()
Range("B4").Value = Date
Range("B5").Value = Time
Worksheets("Tabelle2").QueryTables(1).Refresh
End Sub
Sub EinAusblenden()
Worksheets("Tabelle2").Visible = True
'Worksheets("Tabelle2").Visible = xlVeryHidden
End Sub