Hallo liebe Experten,

Folgendes Problem:

Messdaten aus beliebig vielen .xls Dateien stehen immer in 2 Spalten in Abhängikeit zueinander.
Diese Messdaten sollen in einer Exceldatei dargestellt werden und zwar so:

von B C nach D E
von B C nach F G
von B C nach H I


Ich habe im Internet nur folgenden Code gefunden, der gut funktioniert, aber
mir alle Messdaten untereinander schreibt und nicht immer für jede Datei
eine neue Spalte nimmt:





Sub messdaten()
Worksheets(1).Activate
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
aname = ActiveWorkbook.Name

Cells(1, 1) = "Auswertung Messdaten"
Cells(1, 2) = Date
Cells(1, 3) = Time$

pfad1 = ActiveWorkbook.Path & "\"
name1 = Dir(pfad1, vbNormal)

Do While name1 <> ""
    If name1 <> aname Then
        If Right(name1, 4) = ".xls" Then
            GoSub uebernehmen
        End If
    End If
    name1 = Dir
Loop
    Cells.Select
    Cells.EntireColumn.AutoFit
    Cells(1, 1).Select
Exit Sub

uebernehmen:
Workbooks.Open Filename:=pfad1 & name1
Worksheets(1).Activate
lz = Range("b65536").End(xlUp).Row
If lz > 1 Then
    Range(Cells(2, 2), Cells(lz, 18)).Select
    Selection.Copy
    Windows(aname).Activate
    l1 = Range("a65536").End(xlUp).Row + 1
    Cells(l1, 2).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.DisplayAlerts = False
    Windows(name1).Close
    Application.DisplayAlerts = True
    l2 = Range("b65536").End(xlUp).Row
    Range(Cells(l1, 1), Cells(l2, 1)) = name1
   
    Else
    Windows(name1).Close
End If
Return
End Sub


Was muss ich hier ändern damit es funktioniert?


Vielen Dank.