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
Hallo Alex,
das könnte so aussehen!
Sub ArbeitsmappeSchliesse()
Application.DisplayAlerts = False
ActiveWorkbook.Close
End Sub
Denk daran, das alle Änderungen nicht gespeichtert werden!
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
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
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
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.
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
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
Danke Sehr es funktioniert :D
Code:
CheckBox1 = ActiveSheet.Range("NRWG") = 1