Timer in Makro um Bildaufbau zu gewährleisten

[isdaroberto]

Hallo zusammen,

ich habe das Thema mit der Schleife letzten klären können.

Jetzt habe ich ein weiteres Problem.

Meine Schliefe soll wie folgt funktionieren:
- Bei jeder Schleife wird ein PDF generiert und an einem vordefinierte Ort abgelegt (das funktioniert)
- Jedes PDF hat in einer Zelle einen Link um einen anderen Zellenwert als QR Code anzuzeigen (das funktioniert, wenn ich die Schleife NICHT laufen lasse)
  hier der Code, welcher in der Zelle zum QR Code Aufbau steht: 
   =BILD("https://quickchart.io/qr?text="URLCODIEREN(B26))

- da ich mir dachte, dass das abspeichern als PDF schneller sein könnte, als der QR code zu erstellen, habe ich nen timer eingebaut. Das bringt mir auch nicht die Lösung; selbst nicht, wenn ich 10 Sekunden Timer einbaue.

Und hier mein Quellcode:

Sub WR code list()

    Application.ScreenUpdating = False

    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
   
    Application.Wait (Now + TimeValue("0:00:10"))
   
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:= _
        Range("P6") & "\" & Range("P10") & "_" & Range("P7") & "_" & Range("P8") & ".pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
   
   
    Next
   
    Application.ScreenUpdating = False
   
End Sub