Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
732to736
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
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Arbeitsblatt schließen, dann neues öffnen

Arbeitsblatt schließen, dann neues öffnen
F
Hallo,
ich möchte das ein Excel Sheet geschlossen wird, und automatisch
ein neues geöffnet wird.
Dazu habe ich mir folgendes überlegt:
frage = MsgBox("noch ein Excel Sheet bearbeiten?", vbYesNo)
If frage = vbNo Then Application.Quit
If frage = vbYes Then ThisWorkbook.Close
Workbooks.Open ("I:\12_CDD\test.xls")
Klappt natürlich nicht, es wird das neue Sheet geöffnet,
aber das erste Sheet wird nicht geschlossen.
Kann mir jemand sagen wie der Code ausehen müsste?
Mit freundlichen Grüssen Frank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Arbeitsblatt schließen, dann neues öffnen
17.02.2006 09:48:50
Claus
Hallo Frank,
es funktioniert, wenn Du einen vollständigen If then else end if Block kreierst.
frage = MsgBox("noch ein Excel Sheet bearbeiten?", vbYesNo)
If frage = vbNo Then
Application.Quit
Else
ThisWorkbook.Close
End If
Workbooks.Open ("")
Gruß
Claus
AW: Arbeitsblatt schließen, dann neues öffnen
17.02.2006 09:53:21
Andi
Hi,
so müsste es gehen:
frage = MsgBox("noch ein Excel Sheet bearbeiten?", vbYesNo)
If frage = vbNo Then Application.Quit
If frage = vbYes Then
Workbooks.Open ("I:\12_CDD\test.xls")
ThisWorkbook.Close
End If
btw: was Du meinst, is ne Excel-Mappe bzw ein Workbook. Sheets sind die Tabellen oder Blätter in einer Mappe.
Schönen Gruß,
Andi
Anzeige
Vielen Dank an Claus und Andi
17.02.2006 10:04:41
F
Mit freundlichen Grüssen Frank
Gern geschehen... (ot)
17.02.2006 10:08:38
Andi
.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige