Thema Datum  Von Nutzer Rating
Antwort
Rot Inhalte aus Website importieren
 19.05.2014 13:39:39 Robert
NotSolved

Ansicht des Beitrags:
Von:
Robert		 Datum:
19.05.2014 13:39:39		 Views:
1252		 Rating:
     
Antwort:
  Ja
Thema:
Inhalte aus Website importieren

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Inhalte aus Website importieren
 19.05.2014 13:39:39 Robert
NotSolved