Office: Tabellenblätter M:M auslesen; in neues Blatt auflisten

Hallo!

Ungetestet, aber kommentiert:

Code:

Private Sub Worksheet_Activate()
Dim ws As Worksheet, i As Long
'Schalte die automatische Berechnung vorübergehend ab:
Application.Calculation = xlCalculationManual
'Leere den Zielbereich:
Range("O6:AQ65536").Clear
'Durchlaufe alle Blätter
For Each ws In ThisWorkbook.Worksheets
'Fängt der Name richtig an?
If Left(ws.Name, 5) = "2008-" Then
'Kopiere den Bereich J14:ALxx...:
ws.Range("J14:AL" & ws.Range("J65536").End(xlUp).Row).Copy
'...und füge ihn ab Spalte O ein:
Cells(WorksheetFunction.Max(6, Range("O65536").End(xlUp).Row + 1), 15).PasteSpecial Paste:=xlValues
End If
Next ws
'Durchsuche Spalte O nach Leerzeilen und lösche sie:
For i = Range("O65536").End(xlUp).Row To 6 Step -1
If IsEmpty(Cells(i, 15)) Then Range(Cells(i, 15), Cells(i, 43)).Delete Shift:=xlShiftUp
Next i
'Schalte die automatische Berechnung wieder ein:
Application.Calculation = xlCalculationAutomatic
End Sub

Beachte insbesondere die beiden Zeilen, die die Berechnung ein- und ausschalten.
Diese kannst du auch in miriki's Code ausprobieren.
Sie sollten den Code um einiges beschleunigen, wenn du sehr viele Formeln in der Mappe hast.