VBA wird mit F8 ausgeführt aber mit F5 nicht
06.02.2017 17:41:30
Eckhard
ich habe ein paar Makros verbrochen, die sollen automatisch laufen, die meisten machen das auch. _ Aber hier habe ich eines, dass, wenn ich es mit F8 durchlaufen lassen ohne Probleme bis End
Sub läuft, aber wenn es automatisch oder über F5 läuft, Excel zum Absturz bringt.
Sub fehlen()
Application.DisplayAlerts = False
Workbooks.Open Filename:= _
"\\SERVER-2008\Friese\ServerDateien\Fehlzeiten.xlsm", ReadOnly:=True
DoEvents
ActiveWorkbook.RefreshAll
DoEvents
Sheets("Zusammenfassung").Select
Range("C2").Select
With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"\\SERVER-2008\Becker_Allgemein\Ernst Becker GmbH\Schriftverkehr\technisch\Fehlzeiten. _
mht" _
, "Zusammenfassung", "", xlHtmlStatic, "Fehlzeiten_25759", "Fehlzeiten")
.Publish (True)
.AutoRepublish = False
End With
DoEvents
Range("C2").Select
Application.DisplayAlerts = True
ActiveWorkbook.Close savechanges:=False
DoEvents
End Sub
Das DoEvents habe ich eingefügt, weil bei manchen Dateien das aktualisieren etwas länger dauert.
Vielleicht hat jemand einen heißen Tip für mich.
Das ganze läuft nachts automatisch. Theoretisch.
Danke und Gruß Eckhard
Anzeige