Mahlzeit,

habe über einen Button Excel gestartet mit einem C-Script

Gibt es jetzt einen Befehl, der Zeitverzögert (max. 2s)im selben Script Excel wieder schließt?

Ich glaub es funzt irgendwie doch nicht richtig...ich bekomme jetzt immer die Fehlermeldung auch bei WinCC. Ich weiß nicht mehr weiter...

Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:02"), "DieseArbeitsmappe.Messwerte_archivieren"

End Sub

Sub Messwerte_archivieren()
'
'

'
Range("A4").Select
Selection.Copy
Range("B8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "dd/mm/yy hh:mm"
Selection.Font.Bold = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Range("C6:P6").Select
Selection.Copy
ActiveWindow.ScrollColumn = 1
Range("C8:P8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "0.00"
Range("B8:P8").Select
Selection.Insert Shift:=xlDown
DieseArbeitsmappe.Save
If InStr(1, GetCommandLine, "/Quit", vbTextCompare) <> 0 Then
Application.Quit
Else: End If
End Sub

Im Modul steht:

Public Declare Function GetCommandLine Lib "kernel32" Alias "GetCommandLineA" () As String