Hent data fra anden xls mappe med markon

Hej
Jeg har fundet en næsten løsning her på ekspert og til passet den.
der er nu kun et problem den tager B kolonen med
hvordan undgår jeg det ?
Her er koden:
Sub importer()
If MsgBox("Er du sikker på at du vil importere data?", vbOKCancel, "Advarsel!") = vbCancel Then Exit Sub
On Error Resume Next
Dim wb As Workbook
Set wb = Workbooks.Open("C:\Documents and Settings\Admin\Dokumenter\Pocket_PC My Documents\Pline_ppc.xls", True, True)

Application.StatusBar = "Importerer data"

    With ThisWorkbook.Worksheets("Paceline nr. 1") 'rettes til det navn dit ark har i det ark du allerede har åbent
        .Range("a29:c50").Formula = wb.Worksheets("Paceline nr. 1").Range("a3:c24").Formula ' ret til område der skal kopieres samt arknavn i kildefilen
    End With
   
    wb.Close False
    Set wb = Nothing
    Application.ScreenUpdating = True
    Application.EnableEvents = True

Application.StatusBar = "Importen er færdig!"
MsgBox "Importen er færdig!"
Application.StatusBar = ""
End Sub

Mvh/Henrik C

Hej
Prøv med to områder:
Udskift:    .Range("a29:c50").Formula = wb.Worksheets("Paceline nr. 1").Range("a3:c24").Formula

med:
  .Range("a29:a50").Formula = wb.Worksheets("Paceline nr. 1").Range("a3:a24").Formula
  .Range("c29:c50").Formula = wb.Worksheets("Paceline nr. 1").Range("c3:c24").Formula

mvh oleelo

Hej
det vil jeg også lige prøve.
Jeg har så lige tænkt på at der jo er 10 ark der skal hentes fra og 10 ark der skal hentes til
Fra Paceline nr. 1 og op til Paceline nr. 10
hvordan gør jeg det i et hug

Mvh/Henrik C

Hej
Prøv med:

Sub importer()
dim MitArk as string
dim x as Integer
If MsgBox("Er du sikker på at du vil importere data?", vbOKCancel, "Advarsel!") = vbCancel Then Exit Sub
On Error Resume Next
Dim wb As Workbook
Set wb = Workbooks.Open("C:\Documents and Settings\Admin\Dokumenter\Pocket_PC My Documents\Pline_ppc.xls", True, True)

Application.StatusBar = "Importerer data"
For x= 1 to 10
MitArk="Paceline nr. " & x
    With ThisWorkbook.Worksheets(MitArk) 'rettes til det navn dit ark har i det ark du allerede har åbent
        .Range("a29:a50").Formula = wb.Worksheets(MitArk).Range("a3:a24").Formula
.Range("c29:c50").Formula = wb.Worksheets(MitArk).Range("c3:c24").Formula
    End With
Next x   
    wb.Close False
    Set wb = Nothing
    Application.ScreenUpdating = True
    Application.EnableEvents = True

Application.StatusBar = "Importen er færdig!"
MsgBox "Importen er færdig!"
Application.StatusBar = ""
End Sub


mvh oleelo

Hej
Det virker perfekt,
meget smarter en det jeg selv var ved at fuske mig frem til med array.

smid et svar.

Mvh/Henrik C

Hej
Tak,her et svar
mvh oleelo

Ps Her kan du se en mere almindelig måde at gemmengå alle ark

dim ws Worksheet
''
'
For Each ws In ThisWorkbook.Worksheets
'Hvis så gør et eller andet  If ws.Name osv
Next ws