Aktualisierung des Bildschirms
11.01.2008 14:30:00
SiGI
Benutze dazu den folgenden Code (auszugsweise):
...
Worksheets("Auswertung starten").Activate
Application.DisplayAlerts = False
Workbooks(fdtrdatei).Close
Application.DisplayAlerts = True
Next vrtSelectedItem
Else
End If
End With
Set fd = Nothing
Application.ScreenUpdating = False
Call LGZivilAuswertung
Application.SreenUpdating = True
Funktioniert aber nicht. Was mache ich falsch ?