Hallo Udo,

nachfolgendes Makro sollte das machen, was Du Dir vorgestellt hast. Kopiere das Makro in ein Standardodul und starte es.

[b]Option Explicit

Sub Kopieren()
Dim Dateityp$
Dim Verzeichnis As String, aktSheetName As String
Dim firstfreeRow As Integer

With Application
    .ScreenUpdating = False
    .StatusBar = "Auswertung läuft"
    Verzeichnis = "C:\Eigene Dateien\"
    Dateityp = Dir(Verzeichnis & "\*.xls")
    aktSheetName = ActiveSheet.Name
    With Worksheets.Add
        .Name = "Hilfstabelle"
    End With
    Do While Dateityp <> ""
        firstfreeRow = Range("D65536").End(xlUp).Offset(1, 0).Row
        GetObject (Verzeichnis & Dateityp)
        Workbooks(Dateityp).Sheets(1).Range("A2:K" & _
        Workbooks(Dateityp).Sheets(1).Range("D65536").End(xlUp).Row).Copy
        Cells(firstfreeRow, 1).PasteSpecial
            Application.CutCopyMode = False
        Workbooks(Dateityp).Close False
        Dateityp = Dir()
    Loop
    Range("E1:E" & Range("D65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Cells.Copy
    Sheets(aktSheetName).Range("A1").PasteSpecial
    .DisplayAlerts = False
    Sheets("Hilfstabelle").Delete
    .DisplayAlerts = True
    .StatusBar = ""
End With
End Sub[/b]

Das Makro öffnet alle Dateien in einem Verzeichnis und kopiert die Daten in eine Hilfstabelle. Dort werden doppelte Daten herausgefiltert und die Daten werden in ein vorhandenes Tabellenblatt kopiert. Die Hilfstabelle wird zum Schluß gelöscht.

Ich hoffe, Du meintest das so. Bei Fragen melde Dich.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Udo,

da war ich wieder mal ein bisschen schnell. Ich hatte vergessen zu erwähnen, dass Du in dem Makro in der Zeile

 [b]   Verzeichnis = "C:\Eigene Dateien\"[/b]

den Verzeichnispfad, in dem sich Deine 95 Exceldateien befinden, ändern musst. Trage zwischen die beiden Anführungszeichen ( "" ) den Pfad ein. Achte bitte darauf, dass der Eintrag des Pfades mit einem Backslash ( \ ) endet.

So, das war's.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}