Wie kann ich aus VBA Excel eine Internetseite aufrufen und die Seite herunterladen?

Um eine Internetseite aus VBA in Excel aufzurufen und den Inhalt herunterzuladen, kannst du das `XMLHTTP`-Objekt verwenden. Hier ist ein einfaches Beispiel, wie du dies umsetzen kannst:

```vba
Sub DownloadWebPage()
Dim http As Object
Dim url As String
Dim response As String
Dim filePath As String
Dim fileNum As Integer

' URL der Webseite, die du herunterladen möchtest
url = "https://www.example.com"

' Erstelle ein XMLHTTP-Objekt
Set http = CreateObject("MSXML2.XMLHTTP")

' Sende eine GET-Anfrage an die URL
http.Open "GET", url, False
http.send

' Überprüfe den Status der Anfrage
If http.Status = 200 Then
response = http.responseText

' Speichere den Inhalt in einer Datei
filePath = ThisWorkbook.Path & "\downloaded_page.html"
fileNum = FreeFile

Open filePath For Output As #fileNum
Print #fileNum, response
Close #fileNum

MsgBox "Die Seite wurde erfolgreich heruntergeladen und gespeichert unter: " & filePath
Else
MsgBox "Fehler beim Abrufen der Seite. Status: " & http.Status
End If

' Setze das Objekt zurück
Set http = Nothing
End Sub
```

In diesem Beispiel wird die Webseite von der angegebenen URL heruntergeladen und als HTML-Datei im gleichen Verzeichnis wie die Excel-Datei gespeichert. Achte darauf, die URL entsprechend anzupassen.