Importere data fra ét Excel-ark til at andet

Der er et problemmed dine links. Det ene kan ikke vise siden, og det andet viser bare en underside på dr.dk.
Prøv igen.
/ptj_11

Linksene er bare noget tilfældig text.

Jeg tror, at du skal flytte dit spørgsmål over i kategorien "Scripts". Der er nok større chance for et brugbart svar.
Det du skla bruge, er som jeg ser det, et vbs-script, der søger rækker og kolonner igennem for forekomsten af ordet "Pages", og derefter importere bestemte værdier fra specifikke celler.
/ptj_11

Hvis du indsaetter en module i VBA med foelgende kode skulle det nok virke...

Sub GetPages()
Dim The_address As Object, R1 As Integer, R As Long, Rw As Long, C As Integer, Col As Integer, The_link As String
Dim oWs_Destination As Object

Set oWs_Destination = ThisWorkbook.Sheets(1)    ' Name of your destination book and sheet
Col = 1                                        ' Number of column in your destination book.

' Find the "pages" string
With Worksheets(2).Range("a1:z500")
    Set The_address = .Find("pages")
    If Not The_address Is Nothing Then
        R1 = The_address.Row
        C = The_address.Column
    End If
   
    ' Check if you have an address
   
    If R1 = 0 Or C = 0 Then
        MsgBox "Pages not found", vbOKOnly
        Exit Sub
    Else
        ' Loop from the following row until no value is found
        For R = R1 + 1 To Worksheets(2).UsedRange.Rows.Count
            The_link = .Cells(R, C).Value
            ' Link found then write to destination sheet
            If The_link <> "" Then
                With oWs_Destination
                    Rw = Rw + 1
                    .Cells(Rw, Col).Value = The_link
                End With
            End If
        Next
    End If
End With

End Sub

Nicolai,

Jeg glemte lige at du har flere boeger og flere ark. Foelgende kode leder igennem alt. Hvis de skal aabne fra VBA kan du tilfoeje Dir funktionen.

For Each oWb In Workbooks
    For Each oWs In oWb.Sheets
        With oWb.oWs