Laufzeitfehler Excel VBA -2147024864 (80070020)

[schauan]

Hallöchen,
Sleep ist nach meiner Erfahrung etwas performanter und genauer wenns um Sekundenbruchteile geht

[cysu11]

Hallo Ihr Lieben,

danke für den Tipp mit dem Antivirus, das war tatsächlich das Problem. 
Nun habe ich eine Verzögerung von 7 Sekunden eingebaut, alles drunter führte immer wieder zum Fehler ?. Ist zwar nicht schön wenn man warten muss, aber immer noch besser wie alles manuell zu machen ?‍♂️. Werde auch mal mit der IT sprechen ob das tatsächlich normal ist, dass das AV so lange braucht???

Lieben Dank nochmals für Eure Unterstützung 
LG & bis bald
Alexandra

[snb]

Code:

Sub M_snb()
  if MsgBox("Auftrag senden?", vbYesNo) = vbYes then
    c00= "P:\BV\Gesendete PDF\Aufträge\"
    c01= cells(1,1).Text & "_KL" & cells(6,9) & "_" & cells(27,1) & ".PDF"

    ActiveSheet.ExportAsFixedFormat 0, c00 & c01

    with CreateObject("Outlook.Application").CreateItem(0)
        .To = cells(12,1)
        .Subject = c01
        .ReadReceiptRequested = True
        .Attachments.Add c00 & c01
        If cells(1,10) = "x" Then
          .Display
        else
         .Send
        end if
    End With

    ActiveSheet.PrintOut 3
  End if
End Sub

[d'r Bastler]

Moin allerseits,

zu den Unterschieden, API, App...wait, sleep: Application.Wait scheint für diese Zeit den Prozessor voll auszulasten. Die Kombination timer und do...loop verzichtet auf die Last,

Grüße

[cysu11]

Hallo snb,

der Code soll die Verzögerung der 7 Sekunden ersparen, oder ist "nur" ein Optimierung meines Codes?

Vielen Dank
LG
Alexandra

[snb]

Teste mal in deiner Umgebung.

[cysu11]

Hallo snb,

habe dein Code soeben getestet, führt zum gleichen Fehler, wenn ich keine Verzögerung einbaue... :)

Vielen Dank trotzdem für dein Vorschlag
LG
Alexandra