Office: Wertpapierübersicht in Excel

Hallo,

vorneweg - bin ziemlicher Anfänger in VBA, aber das werdet Ihr noch merken.

möchte eine Excel bauen mit einem Tabellenblatt "Uebersicht". In diesem Tabellenblatt soll der Anwender in der Spalte D die ISIN von Wertpapieren eintragen. Daraufhin soll über eine Schaltfläche das untenstehende Makro aktiviert werden. Für jede neue ISIN soll der Kurs und anderen Infos in einem neu anzulegenden Tab eingespielt werden. Klappt auch.

Nun möchte ich folgende Erweiterungen haben:

1. Automatische Aktualisierung der Tabelle alle 15 Minuten und beim Öffnen
2. Läuft die Abfrage auf Grundlage der ISIN z.B. in D6(Tabellenblatt "Uebersicht"), möchte ich aus dem neu angelegten Tabellenblatt den Wert aus C38 in A6(Tabellenblatt "Uebersicht") schreiben.

Wäre super wenn jemand weiß, wie ich das noch einbauen kann.

Hier meine bisherige Programmierung:


Sub Aktienkurse()

Dim Zelle, Bereich As Range
Dim i As Integer
Dim nWS As Worksheet
Dim Bool As Boolean
Dim wpadresse As Variant

Set Bereich = Range("D6:D" & Range("D65536").End(xlUp).Row)

For Each Zelle In Bereich

For i = 2 To Worksheets.Count
If Worksheets(i).Name = Zelle.Value Then
Bool = True
Exit For
Else
Bool = False
End If
Next i

If Bool = False Then
Set nWS = Worksheets.Add(after:=Worksheets(Worksheets.Count))
nWS.Name = Zelle.Value
wpadresse = "URL;https://www.boerse-stuttgart.de/rd/de/anlagezertifikate/factsheet?sSymbol=" + nWS.Name + ".EWX&lang=de"
Set shFirstQtr = Workbooks(1).ActiveSheet
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection:=wpadresse, _
Destination:=shFirstQtr.Cells(1, 1))
With qtQtrResults
.WebFormatting = xlNone
.WebSelectionType = xlSpecifiedTables
.WebTables = "2,3,4,5"
.Refresh
End With

End If

Next Zelle

End Sub

Vielen Dank vorab!

Mfg Jens