Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aktuellen Wechselkurs abrufen

Gruppe

Internet

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