PDF Export sehr groß

    For i = 5 To 504

        

        'Prüfen, ob Zeile eine Überschrift ist und es nicht die erste Überschrift ist

        If wsAufgaben.Cells(i, 2).Value Like "*--*" And erste = 0 Then

            For Zeile = 12 To 510

                If wsBericht.Cells(Zeile, 5).Value = "" Then

                   wsBericht.Rows(Zeile).EntireRow.Hidden = True

                Else

                    wsBericht.Rows(Zeile).Hidden = False

                End If

            Next Zeile

            'Definieren des Pfads und des Dateinamen

            pdfDatei = pfad & "\" & haus & "_" & hausname & "_" & jahr & "-KW" & kw & ".pdf"

            'Speicher die Datei als PDF mit dem bestimmten Pfad und Namen ab

            wsBericht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfDatei, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

            'Gebäudeinformationen einfügen

            haus = wsAufgaben.Cells(i, 2)

            hausname = wsAufgaben.Cells(i, 3)

            haus = Replace(haus, "-- ", "")

            hausname = Replace(hausname, "-", "")

            wsBericht.Cells(8, 2).Value = haus

            wsBericht.Cells(9, 2).Value = hausname

            ' Zeilen im Bericht löschen

            wsBericht.Range("A12:G510").ClearContents

            destRow = 12

            i = i + 1

        End If