Mappen mit VBA zusammenführen
10.06.2014 13:32:16
Ev
Kann mir jemand helfen und zwar möchte ich mehrere Mappen, die gleich aufgebaut sind, in eine Mappe zusammen führen. Hierfür habe ich den folgenden Code, der soweit einwandfrei funktioniert. Nun sind aber zwei Mappen dazugekommen ins gleiche Excel File, die NICHT in die Übersicht reinkopiert werden sollten. Ich bin nur ganz knapp mit VBA Kenntnissen ausgestattet und hab es mit nicht hingekriegt.
Könnt ihr mir sagen, wo ich diese zwei Mappen einbauen muss, dass sie nicht in die Übersicht kommen?
Private Sub Worksheet_Activate()
Dim Blatt As Worksheet
Cells.Clear
For Each Blatt In ThisWorkbook.Worksheets
If Blatt.Name ActiveSheet.Name Then
Blatt.UsedRange.Offset(2, 0).Copy Cells(Range("A65536").End(xlUp).Row + 1, 1)
Application.CutCopyMode = False
End If
Next Blatt
End Sub
Liebe Grüsse
Ev