Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
392to396
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
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Speichern nach öffnen sonst schließen

Speichern nach öffnen sonst schließen
09.03.2004 12:40:02
TinoB
hallo excelgemeinde,
habe wieder folgendes problem. über die nachfolgende anweisung

Private Sub Workbook_Open()
Worksheets("Vorlage").Select
Application.SendKeys Range("Y2").Value
If Application.Dialogs(xlDialogSaveAs).Show = False Then Exit Sub
End Sub

erscheint das dialogfeld "Speichern Unter" nach öffnen der datei mit dem Namen aus der ZeleY2. soweit ist alles ok, nun soll aber die datei wieder geschlossen werden, wenn man auf abbrechen klickt. so wie es jetzt ist wird ja nur das dialogfeld geschlossen. wie muß man dies umsetzten? und noch etwas, wie kann man es verhindern, dass in die Arbeitsmappe "Vorlage" gesprungen wird? es soll immer nur das erste bzw. in diesem fall das register "Ausgabe" zu sehen sein!
Danke im Voraus
Tino

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern nach öffnen sonst schließen
09.03.2004 13:20:02
thommy h.
Hallo tino,
zur Frage Datei schließen:


Private Sub abbruch_Click()
ThisWorkbook.Close False
End Sub

zur anderen Frage:
schau Dir Dein workbook_open an
Gruß
thommy
ja ok,
09.03.2004 13:29:00
TinoB
hi thommy,
danke erstmal, na ja, ist klar hiermit "Worksheets("Vorlage").Select" ist der sprung zum register "Vorlage". aber dies muß er ja, weil da steht doch in Y2 der dateinamen. aber wie kann ich dies verhindern?
AW: ja ok,
09.03.2004 13:40:29
thommy h.
Hallo tino
Dann schreib doch den Dateinamen in das andere Blatt
Gruß
thommy
hm,
09.03.2004 13:43:44
TinoB
könnte ich machen, aber das hin und her springen zwischen den einzelenen blättern tritt öffters auf nicht nur in diesem beispiel.
trotzdem danke
Tino
Anzeige
AW: Speichern nach öffnen sonst schließen
09.03.2004 13:42:13
Bert

Private Sub Workbook_Open()
Application.SendKeys sheets("Vorlage").Range("Y2").Value
If Application.Dialogs(xlDialogSaveAs).Show = False Then Exit Sub
End Sub

Bert
alles klar, danke (o.T.)
09.03.2004 13:49:04
TinoB
.

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige