title image


Smiley Verwendete Lösung
Sorry, dass ich mich jetzt erst wieder melde, hatte ziemlich viel um die Ohren, sodass die Sache liegen geblieben ist.



Scotty, vielen Dank für Deine Lösung. Hab das Ganze noch etwas angepasst.

Hier nun meine endgültige Lösung:



Option Explicit

Public Sub refresh()

Dim strFile As String, strTemp As String

Application.ScreenUpdating = False

strFile = ThisWorkbook.FullName

strTemp = ThisWorkbook.Path & "\temp.xls"

Application.DisplayAlerts = False

ThisWorkbook.SaveAs strTemp

Application.DisplayAlerts = True

Workbooks.Open strFile

Workbooks("temp.xls").Close False

End Sub



Public Sub Startprozedur()

Application.ScreenUpdating = True

MsgBox "test"

End Sub



Die Nachteile sind, wie Scotty schon beschrieben hat, dass sich die Temp.xls nicht automatisch wieder löschen lässt und dass diese auch erst nach durchlaufen der Startprozedur schliessen lässt, da durch das schliessen jede laufende Prozedur abgebrochen wird.



Ansonsten funktioniert's aber nicht schlecht.



Gruss und Frohe Ostern!

Marco





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: