AW: Erst einblenden wenn komplett geöffnet
17.01.2018 12:51:46
fcs
Hallo Andy,
z.B. so - dabei wird die ganze Excelanwendung ausgeblendet
'Code unter DieseArbeitsmappe
Private Sub Workbook_Open()
Application.Visible = False
'hier dein Code beim Starten der Arbeitsmappe
' Application.Wait Now + TimeSerial(0, 0, 5)
Application.Visible = True
End Sub
Variante 2:
Hier wird die Mappe vor dem Schliessen ausgeblendet und gespeichert.
Diese Variante wird aber nur funktionieren, wenn in deinen Makros keine Select-Anweisungen vorkommen. Diese können nur ausgeführt werden, wenn die jeweiligen Elemente im aktiven Bereich sichtbar sind.
'Code unter DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Windows(Me.Name).Visible = False
Me.Save
End Sub
Private Sub Workbook_Open()
' Range("A1").Select
'hier dein Code beim Starten der Arbeitsmappe
' Application.Wait Now + TimeSerial(0, 0, 5)
Application.Windows(Me.Name).Visible = True
End Sub
Gruß
Franz