Timer in Makro um Bildaufbau zu gewährleisten

[isdaroberto]

Also...

ich bin jetzt da nur zufällig draufgekommen...

wenn ich das Makro ein 2. Mal habe durchlaufen lassen, hat es funktioniert...

Jetzt habe ich die Schliefe einfach 2 Mal reingemacht und es funktioniert

Warum... ist mir schleierhaft, aber das Ziel ist erreicht. Wenn hier jemand noch ein Kommentar hat, freue ich mich, dann lerne ich was dazu.

danke

Sub WR code list()

    Dim PE As Integer
    Dim PS As Integer
 
    PE = Range("O33") + 13
 
    For PS = 14 To PE

    Cells(PS, 17).Copy
    Cells(10, 16).PasteSpecial xlPasteValues
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:= _
        Range("P6") & "\" & Range("P10") & "_" & Range("P7") & "_" & Range("P8") & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
 
    Next

PE = Range("O33") + 13
 
    For PS = 14 To PE

    Cells(PS, 17).Copy
    Cells(10, 16).PasteSpecial xlPasteValues
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:= _
        Range("P6") & "\" & Range("P10") & "_" & Range("P7") & "_" & Range("P8") & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
 
    Next
 
End Sub