Excel Datei mit UserForm schließen

[jovicic]

Hallo alle zusammen :)

Weiß jemand wie kann ich mit einem UserForm meine Excel Datei (komplett) ohne Speicherung und Meldung (Speichern, Nicht Speicher, Schließen) Schließen ???

Ich habe es mit der Methode Workbook.Close versucht aber ich bekomme einen Fehler dass der UserForm noch Aktiv ist

Freue mich über eure  Zuschriften.

Lg
Alex

[Nukleus]

Hallo Alex,

das könnte so aussehen!

---

Sub ArbeitsmappeSchliesse()

Application.DisplayAlerts = False
ActiveWorkbook.Close

End Sub


Denk daran, das alle Änderungen nicht gespeichtert werden!

[Crazy Tom]

Hi

in meinem Test bei xl2007 bleibt dabei aber das graue Fenster offen

so geht es bei mir komplett zu

Code:

Private Sub CommandButton1_Click()
   Application.DisplayAlerts = False
   Application.Quit
End Sub

MfG Tom

[Steffl]

Auch Hallo,

beachte bitte den Hinweis im Code

Code:

Private Sub UserForm_Terminate()
   Application.OnTime Now() + TimeValue("0:00:01"), "prcSchließen"
End Sub


'in ein allgemeines Modul!
Sub prcSchließen()
   Application.Quit
End Sub

[jovicic]

Hallo Leute und vielen Dank für die Antworte :)

Jetzt mal eine andere Frage 

Es geht um diese "CheckBox"

Wie kann sie Automatisch einchecken wenn in einer Zelle z.B 1 steht 

Ich hab es mit diesem Code versucht:

Code:

Private Sub CheckBox1_Click()
If ActiveSheet.Range("NRWG") = 1 Then
UserForm1.CheckBox1.Value = True
End If

End Sub

So soll es aussehen (sehe Anhang)
NRWG soll ein hacken je nach Excel Zelle Wert tragen 

Lg
Alex

[Steffl]

Hallo,

was meinst Du mit automatisch einchecken? Wenn die Userform geöffnet wird? Wenn ja, schreib deinen Code ins Userform_Activate- bzw. Userform_Initialize-Ereignis.

[jovicic]

Ich meinte wenn eine Zell den wert 1 hat dann soll ein Hacken da sein und wenn 2 dann soll da kein Hacken da sein

Und diese If Funktion soll nach Aktivierung des UserForm ausgeführt werden

[Crazy Tom]

Hi

zum Beispiel so

Code:

Private Sub UserForm_Initialize()
   If ActiveSheet.Range("NRWG") = 1 Then
       CheckBox1 = True
   Else
       CheckBox1 = False
   End If
End Sub

MfG Tom

[jovicic]

Danke Sehr es funktioniert :D

[snb]

Code:

CheckBox1 = ActiveSheet.Range("NRWG") = 1