Button zum schließen von Excel, wie X oben rechts

Computer: Software & Programmierung Visual Basic
#1

Hallo.

Da bin ich wieder! :smile:

Noch eine Sache hätte ich da. Gibt es ein Makro, was haargenau das selbe tut, wie das X oben in der Ecke? Ich möchte den User nur die Möglichkeit geben, über meine eigenen Buttons die Datei zu steuern. Dabei sollen aber keine anderen Projekte (Excel Dateien) geschlossen werden, sondern nur die eine bestimmte.

Grüße.

#2

Hallo 1,2m kleiner,

ich weiß zwar nicht, was der Vorteil gegenüber dem echten Schließen-Button sein soll, aber sei’s drum.
Schreib’ in den Codebereich von „DieseArbeitsmappe“

Sub raus()
 DieseArbeitsmappe.Close
End Sub

Gruß, Andreas

#3

Ohh, hatte da noch was.
Hab es jetzt so gelöst:

Sub Beenden_Click()
If Workbooks.Count > 1 Then
ThisWorkbook.Close savechanges:=False
Else
Application.Quit
End If
End Sub

So das keine anderen offenen Projekte geschlossen werden.

Trotzdem vielen Dank.

#4

So das keine anderen offenen Projekte geschlossen werden.

Hallo Danny,

für diejenigen die eine persönliche Arbeitsmappe haben,
zumindest in Versionen unter XL 2007 besser nachstehenden Code.
(XL 2007 kann ich grad nicht testen)

Gruß
Reinhard

Option Explicit

Sub Beenden\_Click()
If Workbooks.Count \> (1 + Exist) Then
 ThisWorkbook.Close savechanges:=False
Else
 Application.Quit
End If
End Sub

Function Exist() As Integer
Dim W As Integer
For W = 1 To Workbooks.Count
 ' in engl. Excel PERSONAL.XLS
 If UCase(Workbooks(W).Name) = "PERSONL.XLS" Then
 Exist = 1
 Exit For
 End If
Next W
End Function
#5

Okay, probiere ich dann mal aus.