Arbeitsblätter zusammenkopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Arbeitsblätter zusammenkopieren
von: Frank
Geschrieben am: 21.07.2015 09:38:39

Hallo zusammen,
ich habe folgendes Problem. Ich habe eine Arbeitsmappe mit 100 Arbeitsblättern. Auf jedem Blatt stehen 40 Datensätze (ab Zeile 3 bis Zeile 42, ab Spalte A bis Spalte Z). Ich habe jetzt die Anforderung erhalten, dass alle Datensätze in einem Arbeitsblatt als fortlaufende Liste erscheinen sollen. Mit diesem Makro klappt das aber leider nicht:


Sub ausschneiden()
    Dim i As Long
             
    For i = 1 To Sheets.Count
        
    Sheets(i).Select
    Range("A3").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Cut
    Sheets("Seite1_1").Select
    Range("A3").Select
    Selection.End(xlDown).Select
    Range("A43").Select
    ActiveSheet.Paste
        
    Next i
    MsgBox "fertig"
End Sub
Was mache ich falsch?
Gruß
Frank

Bild

Betrifft: AW: Arbeitsblätter zusammenkopieren
von: UweD
Geschrieben am: 21.07.2015 10:12:03
Hallo
so...
Ohne select usw....

Sub Kopieren()
    Dim i&, LR1%, LR2%
    Dim TB
    Set TB = Sheets("Seite1_1")
    
    For i = 1 To Sheets.Count
        With Sheets(i)
            If .Name <> TB.Name Then
                'erste freie Zeile der Spalte A, mindestens aber 3
                LR1 = WorksheetFunction.Max(3,TB.Cells(Rows.Count, 1).End(xlUp).Row + 1)
                
                'letzte Zeile der Spalte A
                LR2 = .Cells(Rows.Count, 1).End(xlUp).Row
                
                'kopieren
                .Range("A3:Z" & LR2).Copy TB.Cells(LR1, 1)
            End If
        End With
    Next i
    MsgBox "fertig"
End Sub

Gruß UweD

Bild

Betrifft: AW: Arbeitsblätter zusammenkopieren
von: Frank
Geschrieben am: 21.07.2015 10:39:37
Hallo UweD,
super, besten Dank. Das klappt wie geschmiert.
Gruß
Frank

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Arbeitsblätter zusammenkopieren"