Supportnet / Forum / Tabellenkalkulation

Hallo Freaks, ich möchte 5 Excel Dateien (alle liegen im gleichen Verzeichnis) in einer Gesamt Datei zusammenführen. Alle 5 Dateien und die Gesamt Datei haben die gleichen Spalten. In der Gesamt Datei soll der Inhalt aller 5 Dateien enthalten sein. Die Gesamtauflistung sollte ohne Leerzeilen sein. Bis jetzt habe ich es immer nur mit Leerzeilen hinbekommen. Vielen Dank im Voraus Sven

Hi Sven,

wen du das Zusammenkopieren schon hinbekommen hast, dann hier ein Code zum Löschen von Leerzeilen

Sub Leerzeilen_loeschen()
    ´ alle Leerzeilen löschen, dabei alle Leerzeilen auf eine Variable schreiben und alles mit einmal löschen
    ´ Code von Hajo Ziplies
    Dim LoI As Long
    Dim RaZeile As Range
    For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
        If Application.WorksheetFunction.CountA(Rows(LoI)) <> ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column Then
            If Rows(LoI).SpecialCells(xlCellTypeBlanks).Count = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column Then
                If RaZeile Is Nothing Then
                    Set RaZeile = Rows(LoI)
                Else
                    Set RaZeile = Union(RaZeile, Rows(LoI))
                End If
            End If
        End If
    Next LoI
    If Not RaZeile Is Nothing Then RaZeile.Delete  ´ hier werden alle Leerzeilen auf einmal gelöscht
    Set RaZeile = Nothing
End Sub

Bis später,
Karin

Hallo Karin

ich habe den Code in meine Tabelle kopiert.

Leider funktioniert er nicht - oder muss ich noch
etwas anpassen?
Ich bin leider in VBA Anfänger.

Schöne Grüße
Sven

Hi Sven,

das musst du schon ein wenig genauer beschreiben: wo steigt der der Bugger ein, welcher Fehlerwert und vor allem welche Fehlerbeschreibung wird angezeigt. Dieser Code gehört in ein allgemeines Modul und kann über Extras -> Makros -> Makro aufgerufen werden (oder du weist ihm einen Short-Cut zu oder erstellst z.B. einen CommandButton in der Tabelle) und du musst ihn ausführen, wenn alle Daten in deine Übersichtstabelle schon eingetragen wurden.

Bis später
Karin

• MPEG`s zusammenführen???
• Aktenkoffer übernimmt und aktualiisiert Excel-Dokumente nlcht
• Excel Tabellenblätter zusammenführen
• Excel-Dateien zusammenführen
• zwei festplatten zu einer zusammenführen