Unten seht ihr das ganze sub. Bei der Stelle "Open QuellDatei For Input As #1"(fett) kommt immer der Fehler und ich weiß nicht wieso/was ich dagegen tun kann...
Sub Wetterdaten_Importieren()
Dim QuellDatei As String 'Speicherort der Datei
Dim Zeile As Integer 'Laufvariable
Dim Inhalt As String 'Inhalt der Datei
'Tabellenblatt aktivieren
ThisWorkbook.Worksheets("Wetterdaten").Activate
'Startwert zuweisen
Zeile = 2
'Quelldatei ansprechen
QuellDatei = ThisWorkbook.Path & "C:\Users\oliMa\Downloads\stundenwerte_ST_00183_row.zip\produkt_st_stunde_19810101_20210930_00183.txt"
'Quelldatei öffnen
Open QuellDatei For Input As #1
'Informationen in das Tabellenblatt eintragen
'Schleife bis DatenEnde
Do While Not EOF(1)
'Inhalt wird Zeilenweise eingelesen
Line Input #1, Inhalt
'Wert in das Tabellenblatt eintragen
ActiveSheet.Cells(Zeile, 1) = Inhalt
Zeile = Zeile + 1
Loop
'Quelldatei schließen
Close #1