Warum Fehlansicht nach Userform Fullscreen?
15.12.2017 10:23:36
Dieter(Drummer)
durch Aufruf Userform1 Fullscreen, in der Bespieldatei, wird nach Button Klick "Ende" (roter Button auf Userform1) nicht mehr die korrekte Anzeige der Tabelle1 gezeigt.
Es fehlen:
1) Spaltenangaben
2) Zeilenköpfe
3) Zelllinien
4) Bearbeitungsleiste.
Wenn im Code "cmd1_Click" die Zeile "Sheets("Tabelle1").Select" deaktiviert ist, zeigt die Tabelle diese Fehlansichten und man muss 2x auf "Datei" klicken, damit die korrekte Ansicht wieder gezeigt wird, außer auch noch Klick auf die Bearbeitungsleiste.
Der Code ist nur in wenigen Teilen von mir. Habe Button "Ende" Farbe und Position bei Fullscreen selbst eingefügt.
Mich interessiert, woran das liegt und was in den Codes verbessert werden kann.
Gruß, Dieter(Drummer)
Beispieldatei: https://www.herber.de/bbs/user/118350.xlsm
Private Sub cmd1_Click() 'cmd1 "Ende" Button auf Userform1
Application.Visible = True
Sheets("Tabelle1").Select
Unload Me
End Sub