Herbers Excel-Forum - das Archiv

Workbook/ Application.Close

Bild

Betrifft: Workbook/ Application.Close
von: junny
Geschrieben am: 13.10.2003 06:25:59
Morgen Excels,
hab mal wieder ein Problem:
Ein makro druckt ein TAbelle aus und versendet diese gleichzeitig, O.K.
Nun möchte ich Excel mit diesem makro auch noch schließen, aber nur wenn kein anderes Workbook offen ist, ansonsten nur dieses Workbook schließen, und das nächste aktivieren.

Hoffe mir kann jemand weiterhelfen, Danke volker

Bild

Betrifft: AW: Workbook/ Application.Close
von: Hajo_Zi
Geschrieben am: 13.10.2003 06:39:04
Hallo junny

mal nicht getestet.



Sub Schliessen()
If Workbooks.Count = 1 Then
ThisWorkbook.Save
Application.Quit
Else
ThisWorkbook.Close True
End If
End Sub




Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: AW: Workbook/ Application.Close
von: junny
Geschrieben am: 13.10.2003 06:47:30
Hai Hajo,
Danke für die schnelle Antwort, hast Du mir noch einen Tipp?

wie muss die Zeile heißen wenn icht NICHT speichern will? (einfach .Close?)
ThisWorkbook.Save

Vielen Dank volker
Bild

Betrifft: AW: Workbook/ Application.Close
von: Hajo_Zi
Geschrieben am: 13.10.2003 07:33:04
Hallo Junny

auch ungetestet



Sub Schliessen()
If Workbooks.Count = 1 Then
ThisWorkbook.Saved = True
Application.Quit
Else
ThisWorkbook.Close False
End If
End Sub



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/

Bild

Betrifft: DANKE Hajo, passt! schönen Tag
von: junny
Geschrieben am: 13.10.2003 07:53:15
o.T.
 Bild