Gruppe
Extern
Problem
Wie kann ich den aktuellen Wechselkurs aus dem Internet abrufen?
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