es tut mir leid das ich mich jetzt erst melde, aus der Reha kam ich nochmal in das Krankenhaus.
Jetzt geht es mir wieder besser und konnte mich auch ausgiebig mit Deinem letzten Script befassen.
Es ist jetzt die richtige Richtung, allerdings müsste noch etwas verändert werden.
Ich brauche nur Temp1 - ohne X-Dateien.
Davon Sheet001, HTM-Datei, allerdings diese als reine html-Datei, so wie es das Script von
Josef Ehrensberger liefert. Alles andere was in Temp1 noch drin ist, ist nicht notwendig.
Wenn dann das so in der Form in das Script von Sepp eingebaut wird, wäre ich happy.
Dir einen schönen Tag
Wolf
Sub DownloadFiles()
Dim lngResult As Long, lngRow As Long, lngLast As Long
Dim strFolder As String, strError As String
strFolder = "C:\Users\Wolf Ludwig\Documents\Download" 'Zielverzeichnis - Anpassen
If Right(strFolder, 1) "\" Then strFolder = strFolder & "\"
lngLast = Cells(Rows.Count, 2).End(xlUp).Row
For lngRow = 1 To lngLast
lngResult = URLDownloadToFile(0, Cells(lngRow, 3), strFolder & Cells(lngRow, 2) & ".html", 0, _
_
_
0)
If lngResult 0 Then
strError = strError & Cells(lngRow, 3) & vbLf
End If
Next
If Len(strError) > 0 Then
MsgBox "Folgende Dateien konnten nicht geladen werden!" & vbLf & vbLf & _
strError, vbInformation, "Hinweis"
End If
End Sub