Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beim schließen nur 3. Blatt speichern

Forumthread: Beim schließen nur 3. Blatt speichern

Beim schließen nur 3. Blatt speichern
22.08.2004 12:20:28
MIPA
Hallo,
ich habe eine Excel - Arbeitsmappe mit 5 Blättern(Seiten) und möchte, das beim schließen nur das 3. Blatt gespeichert wird.
Anzeige
Geht nicht...
Ramses
Hallo
Es wird immer die ganze Mappe gespeichert.
Was du als Krücke vielleicht machen kannst, ist, schalte die automatische Berechnung für alle deine Blätter einzeln aus, und berechne nur die 3. Tabelle manuell, dann werden die Werte in den anderen Mappen nicht verändert,... solange sie nicht auf Werte aus der Tabelle 3 verweisen.
Gruss Rainer
Anzeige
AW: Beim schließen nur 3. Blatt speichern
nighty
hi alle :)
das geht mit dem macrorecorder vorzueglich,gerade ausprobiert
erstellung einer neuen mappe
tabelle1 von mappe1 kopieren
in neuer mappe einfuegen
diese speichen
und schliessen
wer dann noch wollte ,zum optimieren die selectionen verbannen
gruss nighty
AW: Beim schließen nur 3. Blatt speichern
Ramses
Hallo
Die Frage lautete:
"...und möchte, das beim schließen nur das 3. Blatt gespeichert wird..."
Vom erstellen einer neuen Mappe habe ich nichts gelesen.
Hast du da mehr Info's ?
Gruss Rainer
Anzeige
AW: Beim schließen nur 3. Blatt speichern
nighty
hi alle :)
ich wollte eigentlich hilfe zur selbsthilfe geben,fuer den staenkerer daher eine kommplettloesung die ich ueber den macrorecorder erarbeitet habe :)
gruss nighty
einzufuegen unter alt f11(vbeditor)/projektexplorer/DeineArbeitsmappe

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Altername As String
Application.EnableEvents = False
Altername = Workbooks(1).Name
Sheets(3).Copy
ActiveWorkbook.SaveAs Filename:=Altername, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Workbooks(2).Close
Application.EnableEvents = False
End Sub

Anzeige
AW: Beim schließen nur 3. Blatt speichern
nighty
hi alle :)
flinker finger :)
als vorletzte zeile :)
Application.EnableEvents = true
gruss nighty
AW: Beim schließen nur 3. Blatt speichern
nighty
hi alle :)
schnell noch korrigiert :)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Altername As String
Application.EnableEvents = False
Altername = Workbooks(1).Name
Sheets(3).Copy
ActiveWorkbook.SaveAs Filename:=Altername, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Workbooks(2).Close
Application.EnableEvents = True
End Sub

Anzeige
AW: Beim schließen nur 3. Blatt speichern
Udo
Wozu ist das gut?
Application.EnableEvents = False
Udo
AW: Beim schließen nur 3. Blatt speichern
nighty
hi udo :)
soweit ich weiss schaltet es die abfrage einer eventuellen dateurberberschreibung aus,die ruecksetzung ist auch nicht unbedingt erforderlich da bei beendung dies ja schon geschieht.
gruss nighty
AW: Beim schließen nur 3. Blatt speichern
nighty
hi alle :)
wenn das mal so stimmt :)
bin ja selber amatuer :)
gruss nighty
Anzeige
AW: Beim schließen nur 3. Blatt speichern
Udo
Wenn du nicht sicher bist, was solche Anweisungen auslösen, halte dich einfach mit Antworten zurück. Das nützt dem Frager nichts und verwirrt nur.
Udo
AW: Beim schließen nur 3. Blatt geht noch nicht
22.08.2004 17:38:10
MIPA
Hallo und tausend Dank für die teils sehr unterhaltsamen Kommentare.
Scherz bei Seite aber irgendwie funktioniert das noch nicht, er speichert
alle Seiten. Ich bin Leihe und hab das nur auf meinen Dateinamen geändert
und im VBA "DieseArbeitsmappe" alles wie folgt eingefügt:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Arrangementcalkulator As String
Application.EnableEvents = False
Altername = Workbooks(1).Name
Sheets(3).Copy
ActiveWorkbook.SaveAs Filename:=Arrangementcalkulator.xls, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Workbooks(2).Close
Application.EnableEvents = True
End Sub

Was mach ich falsch?
Anzeige
AW: Beim schließen nur 3. Blatt geht noch nicht
Michi
N'Abend zusammen,
Application.EnableEvents = False schaltet die Ereignisabarbeitung innerhalb Excels(=der Anwendung(Application)) aus.
Das heisst im Klartext, es werden keine evtl. vorhandenen Ereignisprozeduren im aktuellen Projekt mehr abgearbeitet.
Um .xls-Dateien ohne Sicherheitsabfrage zu überschreiben, eignet sich meiner bescheidenen Meinung nach Application.DisplayAlerts = False besser. Nach dem Schreibvorgang empfiehlt es sich, die Flag mit Application.DisplayAlerts = True wieder einzuschalten, damit nicht etwaige weitere Sicherheitsabfragen innerhalb der entsprechenden Excelsession möglw. ungewollt unterdrückt werden.
mfg
Michi
Anzeige
Alarm ausschalten ?
Ramses
Hallo
Application.EnableEvents = False
...dafür ist es sicher nicht gedacht.
"...die ruecksetzung ist auch nicht unbedingt erforderlich da bei beendung dies ja schon geschieht..."
Das ist eine Systemweite Einstellung und gilt bis auf Widerruf.
Wenn es nicht wieder eingeschaltet wird, ist das ist nur noch durch einen Neustart von EXCEL zu beheben :-))
Bin ja bloss mal gespannt, was sein Benutzer dann sagt, wenn in der Tabelle keine Berechnungen mehr durchgeführt werden und sonst keine Ereignisse mehr ausgeführt werden :-)
Gruss Rainer
Anzeige
AW: Alarm ausschalten ?
nighty
hi rainer :)
dank fuer die info :)
gruss nighty
AW: CROSSPOSTING nur von Dir !!!!! oder?
22.08.2004 15:28:32
Dir
.
Schon wieder geht mit der Sch......e los
22.08.2004 15:29:42
Anton
..................................
AW: Will immer noch nicht
MIPA
Hallo und tausend Dank für die teils sehr unterhaltsamen Kommentare.
Scherz bei Seite aber irgendwie funktioniert das noch nicht, er speichert
alle Seiten. Ich bin Leihe und hab das nur auf meinen Dateinamen geändert
und im VBA "DieseArbeitsmappe" alles wie folgt eingefügt:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Arrangementcalkulator As String
Application.EnableEvents = False
Altername = Workbooks(1).Name
Sheets(3).Copy
ActiveWorkbook.SaveAs Filename:=Arrangementcalkulator.xls, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Workbooks(2).Close
Application.EnableEvents = True
End Sub

Was mach ich falsch?
Anzeige
Das geht an Erich M.
22.08.2004 19:15:23
Anton
.
;

Forumthreads zu verwandten Themen

Durchrechnung nur für ein Blatt ausschalten
KlausF

Hallo Excelperten!
In einer Datei schalte ich beim Öffnen mittels AutoOpen-Makro die automatische Durchrechnung bisher ganz aus.
Wie kann ich aber die automatische Durchrechnung nur für ein bestimmtes Blatt (z.B. Tabelle1) abschalten?
Geht das überhaupt so eingeschränkt?
Besten...
13.09.2008 15:37:53
Thread-ID: 1009517
3 Beiträge
Einzelnes Tabellnblatt in PDF Datei speichern
Jens

Ich habe folgendes Problem, ich möchte ein einzelnes Tabellenblatt aus Excel heraus in eine Pdf Datei mittels command Buttom und Makro/ VBA speichern. Als PDF Prog nutze ich Adobe Acrobat Prof 8.0(bringt nen Converter mit).
THX im Voraus
27.02.2009 15:30:50
Thread-ID: 1054824
14 Beiträge
nur eine Tabelle anwählen, falls ...
Peter

Guten Tag
Gelegentlich wähle ich in einer Arbeitsmappe gleichzeitig mehrere Tabellen an, wenn ich beispielsweise bei allen die gleichen Änderungen durchführen will.
Nun habe ich mir eine Routine geschrieben, die auf allen Tabellen ein Passwort setzt oder entfernt.
Diese Routine läuf...
02.06.2009 09:34:43
Thread-ID: 1078545
8 Beiträge
Range(C12:E30) als .txt speichern / exportieren ?
udo-d

Hallo Profis,
hat evt. Jemand von Euch einen Code, mit dem ich nur einen best. Zellenbereich
eines best. Tabellenblattes ( Name zB: "Auswertung" )
Bereich C12:E30 als Textdatei exportieren / speichern kann ?
im ges. Workbook sind mehrere Tab.Blätter - weis nicht ob das wichtig...
12.10.2009 17:56:56
Thread-ID: 1109157
12 Beiträge
Anzeige
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Name nur einmal im Tabellenblatt
Heidi

Hallo zusammen,
gibt es die Möglichkeit einem Tabellenblatt zu sagen, dass z. B. der Name "Martin" nur 1 x vorkommen darf? Natürlich sind die Namen variabel.
Vielen Dank und Gruß
01.12.2009 11:37:55
Thread-ID: 1121180
5 Beiträge
xls als txt abspeichern | Herbers Excel-Forum
Michael
Guten Morgen,
ich habe folgendes Problem: Ich muss eine xls-Datei im txt-Format abspeichern, dabei ist folgendes zu beachten: Es muss der Bereich von A4 bis G220 ausgegeben werden (es soll in der txt. datei genau so angeordnet sein wie in der xls-datei), dabei muss beim abspeichern gleich ein N...
26.01.2010 07:17:01
Thread-ID: 1132885
18 Beiträge
Alle Reiter als .txt-Datei abspeichern
F.

Hallo zusammen
Ganz offensichtlich habe ich Wünsche, die nicht meinen Kenntnissen entsprechen. ;) Deshalb meine nächste Frage an Euch.
Ich habe eine stattliche Anzahl von Reitern, welche ich einzeln als txt-Datei abspeichern möchte. Da Anzahl der Reiter variert jedes Mal. Wie kann dies...
27.01.2010 15:19:35
Thread-ID: 1133441
22 Beiträge
Tabelle als TXT speichern mit richtiger Zeilenanz.
Joni

Hallo,
ich habe das Problem, dass beim Speichern eines Tabellenblattes als TXT am Schluss noch eine Leerzeile mitgespeichert wird. Da ich die Zeilenanzahl der Textdatei auslese und auswerte habe ich somit immer eine Zeile zu viel. Gibt es eine Möglichkeit, dass wirklich nur befüllte Zeilen...
29.01.2010 18:38:40
Thread-ID: 1134231
4 Beiträge
Workbooknamen als txt abspeichern
Burghard

Hallo,
ich bräuchte mal Hilfe. Ich benötige ein Makro, dass nicht den Blattnamen abspeichert (siehe unten), sondern den Namen des Workbooks und zwar nicht im xls-Format, sondern im txt-Format (mit Tabs).
Hilfe wäre nett.
Schönen Gruß (und frohe Ostern!)
Burghard
Public Sub...
03.04.2010 16:25:08
Thread-ID: 1150097
2 Beiträge
Spalteninhalt als TXT speichern
Jockel

Hallo,
ich habe eine Tabelle mit vielen Spalten. Dabei möchte ich die Spalte H mit einem Makro als TXT abspeichern.
Wenn möglich, nicht dass ich erst die anderen Spalten alle löschen muss und dann das Dokument als txt abspeichern muss. Wenn möglich, will ich nur die Spalte H abspeichern...
16.08.2010 13:10:13
Thread-ID: 1172421
5 Beiträge
Aufgez. Macro funktioniert nur auf einem Blatt
Mathias

Liebes Forum,
ich habe ein Macro aufgezeichnet, das nicht mit anderen Diagrammblättern in derselben Exceldatei funktioniert. Was muss ich tun, damit ich das Macro auf jedem Tabellenblatt oder sogar in anderen Exceldateien ausführen kann, ohne dass ich den Laufzeitfehler "Das Element mit dem...
03.12.2010 11:15:32
Thread-ID: 1189846
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige