Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1744to1748
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
Inhaltsverzeichnis

speichern und beenden

speichern und beenden
18.03.2020 12:58:47
Peter
Hallo,
mit nachstehendem Code speichere ich die Datei und schliesse die Datei bzw. Excel:
Private Sub CommandButton1_Click()
If Application.Workbooks.Count > 1 Then
Calculate
ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
ElseIf Application.Workbooks.Count = 1 Then
Calculate
ActiveWorkbook.Save
'    ActiveWorkbook.Close
Application.Quit
End If
End Sub
Das Problem ist jedoch, wenn bevor der CommandButton1 aus Userform von Datei1 ausgeführt wird und eine weitere offene Excel-Datei "Datei2" aktiviert wird, dann wird nicht die Datei1 geschlossen, welche geschlossen werden soll, sondern die aktivierte Datei2.
Könnt ihr mir bitte helfen!
Der Name der Datei1 kann in der Hilfstabelle.Range("B10") und mit Pfad über Hilfstabelle.Range("B8") ausge-lesen werden.
Gruss
Peter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: speichern und beenden
18.03.2020 13:08:25
onur
Ist ja auch logisch - wenn du schreibst:
ActiveWorkbook.Close
wird die momentan aktive Datei geschlossen.
Wenn du aber geschrieben hättest:
ThisWorkbook.Close
wäre die Datei geschlossen worden, in der sich das Makro befindet.
VBA macht halt nur das, was du selbst programmiert hast.
AW: speichern und beenden - erledigt
18.03.2020 13:30:30
Peter
Hallo Onur,
besten Dank - funktioniert einwandfrei.
Wünsche Dir noch einen schönen Tag.
Gruss
Peter
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige