Hallo!
In untenstehendem Makro werden Wertpapiernummern (ISIN) aus einem Tabellenblatt gelesen, jeweils neue Tabellenblätter mit dem Namen der WPe angelegt und in diese sollten dann die Inhalte aus finanztreff.de für die jeweiligen Wertpapiere (nach ISIN-Nr) angezeigt werden.
Es werden auch neue Tabellenblätter pro ISIN Nummer angelegt und im ersten Blatt erscheinen auch die Inhalte aus finanztreff. Jedoch bleiben alle weiteren Tabellenblätter leer.
Ich bin absoluter VBA-Neuling und habe mir dieses Makro aus dem Netz zusammengeschustert. Kann mir bitte jemand helfen und eventuell auch ein paar Erläuterungen geben?
Sub Aktienkurse()
Dim Zelle As Range, Bereich As Range
Dim i As Integer
Dim nWS As Worksheet
Dim Bool As Boolean
Dim wpadresse As Variant
Set Bereich = Range("A5:A100")
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://fonds.finanztreff.de/fonds_einzelkurs_uebersicht.htn?i=160112&suchbegriff=" + 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 = "4,5,6,7,8,9,10,11,12"
.Refresh
End With
End If
Next Zelle
|