Supportnet / Forum / Tabellenkalkulation

Hallo, für unsere "Öffentlichkeitsarbeit" müssen wir Adressen zusammen in 1 Tabelle führen und die doppelten rausfiltern, damit wir die Vereine mit einem Serienbrief anschreiben können. [b]"Per Hand" [/b]schaffen wir einfach nicht, sitzen ja da stundenlangs dran, heullllll Wer kann uns das machen? Gibt doch sicherlich Tipps und Tricks, jedoch ich, Udo 59, Anfänger, bin verzweifelt. Das hab ich geschaft http://www.netupload.de/detail.php?img=9d1a48f909ffbcfb63715cb9a64670fd.rar oh, bin ich glücklich, lol. Hoffe, dass mir einer hilft. Udo (Bertram) Schlafapnoe e. V. Deutschlands Patientenorganisation Schlaf

Hallo Udo,

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

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

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

    Verzeichnis = "C:\Eigene Dateien\"

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.}

• Doppelte Dateien und Ordner
• Mehrfach doppelte Bilddateien
• mehrere Tabellen zu einer zusammenfügen
• doppelte löschen
• doppelte datein in vista löschen