Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1432to1436
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1432to1436
1432to1436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel ablegen

Excel ablegen
30.06.2015 21:49:36
Jan
Hallo zusammen,
ich habe eine Userform, diese startet automatisch wenn die Datei gestartet wird. Nun soll sich aber Excel minimieren und die Userform geöffnet bleiben. So das nur die Userform zu sehen ist.
Wenn ich die Userform schliesse soll dann auch Excel geschlossen werden und zwar ohne das etwas gespeichert wird. ( Schliessen über das X oben )
Ist das machbar ?
Vielen Dank !

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel ablegen
30.06.2015 21:58:13
Sepp
Hallo Jan,
vom Prinzip her so.
' **********************************************************************
' Modul: DieseArbeitsmappe  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Open()
  Application.Visible = False
  UserForm1.Show
End Sub


' **********************************************************************
' Modul: UserForm1  Typ: Userform
' **********************************************************************

Option Explicit


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = 0 Then
    ThisWorkbook.Saved = True
    Application.Quit
  Else
    Application.Visible = True
  End If
End Sub

Gruß Sepp

Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige