Office: andere Excel Mappe ansprechen

Suuuuuuuuuuuuuuuuper, das klappt.
aber wiebekomme nun hin das alle Datensätze es können 1 - ca. 20 vorkommen aus Mappe 1 nach meiner mappe bekomme
Karl-Heinz

Sorry wenn ich nerve

 

Hallo,

so ok?

Public Sub NeueMappe()

Dim lngNextRow As Long, lngRow As Long

lngNextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1

With Workbooks("Mappe1").Worksheets("Tabelle1")

For lngRow = 1 To .Cells(.Rows.Count, 4).End(xlUp).Row

Cells(lngNextRow, 1).Value = .Cells(lngRow, 4).Value
Cells(lngNextRow, 2).Value = .Cells(lngRow, 6).Value

lngNextRow = lngNextRow + 1

Next
End With
End Sub

 

Stop !!!!

Natürlich Mappe1.xls !!!

 

Ja, einfach toll was du aus Excel rausholst.
Vielen Dank dafür.
Einfach super

Karl-Heinz