Excel-Makro: Historische Daten für mehrere Aktien mit einem Klick extrahieren

Die Analyse historischer Aktiendaten ist für Investoren und Trader unerlässlich, um fundierte Entscheidungen an den Finanzmärkten treffen zu können. Excel bietet dank der Verwendung von VBA-Makros eine einfache und automatisierbare Lösung. In diesem Leitfaden zeigen wir Ihnen, wie Sie ein Makro erstellen, um historische Daten mehrerer Aktien automatisch zu extrahieren und so den Analyseprozess zu optimieren.

Warum ein VBA-Makro für historische Aktiendaten verwenden?

Die Verwendung von VBA-Makros in Excel ermöglicht Ihnen:

• Das Herunterladen historischer Daten für mehrere Aktien aus Online-Quellen zu automatisieren.
• Zeit im Vergleich zur manuellen Dateneingabe zu sparen.
• Die Datenbank mit nur einem Klick einfach zu aktualisieren.
• Den Prozess an Ihre spezifischen Finanzanalyseanforderungen anzupassen.

Vorbereitung der Arbeitsumgebung

Bevor Sie das Makro schreiben, stellen Sie sicher, dass Excel mit dem VBA-Editor aktiviert ist:

1. Öffnen Sie Excel und drücken Sie ALT + F11, um den VBA-Editor aufzurufen.
2. Gehen Sie zu Einfügen > Modul, um ein neues VBA-Modul zu erstellen.

Der VBA-Code zum Extrahieren historischer Daten

Im Folgenden finden Sie einen VBA-Code, mit dem Sie historische Daten mehrerer Aktien über Yahoo Finance als Quelle herunterladen können:

Sub ScaricaDatiStorici()
    Dim ws As Worksheet
    Dim i As Integer
    Dim symbol As String
    Dim url As String
    Dim lastRow As Integer

    ' Das aktive Arbeitsblatt definieren
    Set ws = ThisWorkbook.Sheets("Azioni")
    
    ' Die letzte Zeile mit Daten ermitteln
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' Schleife für jedes Aktiensymbol in Spalte A
    For i = 2 To lastRow
        symbol = ws.Cells(i, 1).Value
        url = "https://query1.finance.yahoo.com/v7/finance/download/" & symbol & "?period1=1609459200&period2=1672444800&interval=1d&events=history"
        
        ' Daten herunterladen
        With ws.QueryTables.Add(Connection:="URL;" & url, Destination:=ws.Cells(i, 2))
            .BackgroundQuery = False
            .Refresh
            .Delete
        End With
    Next i

    MsgBox "Dati storici scaricati con successo!", vbInformation
End Sub

Wie funktioniert der Code?

1. Das Makro liest die in Spalte A des Arbeitsblatts „Azioni“ (Aktien) aufgelisteten Aktiensymbole.
2. Es erstellt eine URL, um Daten von Yahoo Finance herunterzuladen.
3. Es verwendet QueryTables.Add, um die Daten direkt in das Excel-Blatt zu importieren.
4. Es durchläuft jedes Symbol in der Spalte und wiederholt den Prozess.
5. Abschließend wird eine Bestätigungsnachricht angezeigt.

Anpassung des Makros

• Änderung des Zeitintervalls:
  • Die Parameter period1 und period2 stellen die Start- und Enddaten im Unix-Timestamp-Format dar. Sie können diese ändern, um einen anderen Datenbereich zu erhalten.
• Alternative Quellen:
  • Wenn Yahoo Finance die gewünschten Daten nicht liefert, können Sie die URL durch andere Markt-APIs ersetzen.
• Fehlerbehandlung:
  • Fügen Sie eine Überprüfung hinzu, um eventuelle Fehler beim Herunterladen von Daten oder ungültige Symbole zu behandeln.

Vorteile der Verwendung eines Makros für historische Daten

• Zeitersparnis: Vermeidet das manuelle Herunterladen von Daten.
• Dynamische Updates: Ermöglicht das Abrufen von Daten mit nur einem Klick.
• Größere Genauigkeit: Reduziert das Risiko von Fehlern bei der manuellen Eingabe.

Fazit

Die Verwendung eines VBA-Makros in Excel zum Extrahieren historischer Daten mehrerer Aktien ist eine effektive Methode zur Optimierung der Finanzanalysearbeit. Mit dem vorgestellten Code können Sie automatisch Kurse für verschiedene Wertpapiere herunterladen und regelmäßig aktualisieren, wodurch Ihre Anlagestrategie verbessert wird. Passen Sie das Makro an Ihre Bedürfnisse an und nutzen Sie das volle Potenzial von Excel für das Finanzdatenmanagement.

Pubblicato in Excel