Moin! Also hier mal auf die schnelle ein Versuch. Da ich mit dem IE nicht ins Netz gehe, da zumindest ungetestet (nur auf meiner Oberfläche probiert, da lief es - hatte die Seite gespeichert) De Code geht alle links auf der Seite durch. Wenn der Name mit deinem Wunsch übereinstimmt, wird er zwischen gespeichert. Am Ende werden dann alle gespeicherten Links geöffnet und die Seite in ein neues Excelsheet kopiert. Ich glaube, bei Bilder haut das nich ganz hin. AUßerdem müsstest du dann noch die Formatierung der Zellen überprüfen. Die Hauptseite ist als Tabelle aufgebaut und hat 3 Spalten. Die werden demzufolge so auch nach Excel gepackt. Die Spaltenbreite passt da noch nicht. Ggf. mal noch bei der Stelle die ich markiert habe, die einzelen href anzeigen lassen und den Code anpassen. VG

Option Explicit

Sub kopieren()
Dim dieLinks As Object
Dim einLink As Object
Dim IE As Object
Dim L As Long
Dim linkarr
ReDim linkarr(0)
linkarr(0) = 0
DoEvents
Set IE = CreateObject("Internetexplorer.Application")

With IE
    .Visible = True
    .navigate "http://historyofwork.iisg.nl/major.php"

    Do While .busy
        Do While .busy
        Loop
    Loop
    Set dieLinks = IE.document.Links
    For Each einLink In dieLinks
        'hier ggf. nochmal schauen, ob der Links wirklich so mit dem Pfad angezigt wird. Ansosnten die Zeichenzall ggf. anpassen und den Linknamen ebenso
        If Len(einLink.href) > 43 Then
            If Left(einLink.href, 44) = "http://historyofwork.iisg.nl/list_minor.php?" Then
                linkarr(0) = linkarr(0) + 1
                ReDim Preserve linkarr(linkarr(0))
                linkarr(linkarr(0)) = einLink.href
            End If
        End If
    Next
    
    If linkarr(0) > 0 Then
        For i = 1 To linkarr(0)
    
        .navigate linkarr(i)
        Do: Loop Until .busy = False
        .ExecWb 17, 0 'Select All

        Do: Loop Until .busy = False
        .ExecWb 12, 0 'Copy

        Do: Loop Until .busy = False
        
        ActiveWorkBook.Sheets.Add
        ActiveSheet.Paste
               
        Next
    End If
    
    .Application.Quit
    Set IE = Nothing
    
End With
End Sub