userform schließen wenn offen
16.04.2007 18:04:14
Andreas
Hallo Excelprofis!
Eine Frage: Wenn ich meine Arbeitsmappe öffne, öffnet sich gleichzeitig ein UserForm1. Dabei soll ein eventuell noch offenes UserFormAuswertung geschlossen werden.
Reicht es da das UserFormAuswertung per "Unload UserFormAuswertung" zu schließen oder muß man da vorher abfragen ob das UserFormAuswertung geöffnet ist?
Danke für die Hilfe!
Mit diesem Code öffne ich das UserForm1:
Private Sub Workbook_Open()
UserForm1.Show
Sheets("Auswertung").Unprotect "xyz"
Application.ScreenUpdating = False
Set wks = Worksheets("Auswertung")
'prüfen, ob Autofilter aktiv und ggf. deaktivieren
If wks.AutoFilterMode = True Then wks.AutoFilterMode = False
Sheets("Auswertung").Range("A8:AF1500").Sort Key1:=Range("A8"), Order1:=xlAscending, Header:= _
xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Auswertung").Protect "xyz"
Unload UserFormAuswertung
Sheets("Eingabe").Range("A1").Select
Application.ScreenUpdating = True
End Sub
mfg Andreas