Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
780to784
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eine Datei automatisch in 2 Versionen speichern

Eine Datei automatisch in 2 Versionen speichern
19.07.2006 07:44:25
Anja
Guten Morgen!
Ich habe eine Datei, die aus ca. 1000 Zeilen besteht und bis Spalte AF geht.
Inhalt sind Kunden-Daten, die teilweise vertraulich und nur für den internen Gebrauch sind. Die nicht vertraulichen Daten werden per Mail an Lieferanten verschickt.
Ich möchte diese Datei 1x komplett haben, so wie sie ist, als auch eine Version davon, in der die Spalten AC-AF (vertrauliche Angaben) fehlen (verbergen geht ja nicht, ist zu leicht zu knacken).
Ich möchte mir die Arbeit ersparen, die Datei manuell in zwei Versionen zu speichern und die jeweiligen Spalten zu löschen. Kann man mit einem einfachen Befehl - oder wie auch immer - die Datei gleichzeitig unter zwei verschiedenen Namen und Versionen speichern?
Ich wäre begeistert, wenn mir jemand helfen kann!
Schon jetzt vielen Dank und herzlichen Gruß!!!
Anja

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eine Datei automatisch in 2 Versionen speicher
19.07.2006 08:02:42
Matthias
Hallo Anja,
mit Alt+F11 öffnest du den VBA-Editor.
in DieseArbeitsmappe:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
KopieSpeichern
End Sub

Dann ein neues Modul erzeugen mit Menü Einfügen, Modul.
dahinein:

Sub KopieSpeichern()
Sheets("Tabelle1").Copy 'Tabellennamen anpassen
Range("AC:AF").Delete
Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs Filename:=ThisWorkbook.Path & "\Kopie zum Versenden.xls" 'Dateinamen anpassen
.Close
End With
Application.DisplayAlerts = True
End Sub

Gruß Matthias
Anzeige
AW: Eine Datei automatisch in 2 Versionen speicher
19.07.2006 08:37:37
Anja
Hallo Matthias,
vielen Dank für deine Hilfe. Kenne mich ja nicht wirklich mit VBA aus, habe aber versucht, deinen Lösungsweg in meiner Datei unterzubringen.
Bekomme aber immer eine Fehlermeldung, wenn ich teste.
Wo muß ich:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
KopieSpeichern
End Sub

eintragen?
Wenn ich auf "diese Arbeitsmappe" klicke weiß ich nicht wie und wo ich das eintragen muß...
Vielleicht bist du nochmal so lieb und hilfst mir weiter?
Ach so, Frage: wohin wird die "abgespeckte Datei" gespeichert? Automatisch in den gleichen Ordner der Ursprungsdatei?
Lieben Gruß
Anja
Anzeige
AW: Eine Datei automatisch in 2 Versionen speicher
19.07.2006 08:46:33
Matthias
Hallo Anja,
Wenn ich auf "diese Arbeitsmappe" klicke weiß ich nicht wie und wo ich das eintragen muß...
Doppelklicke auf "DieseArbeitsmappe", dann erscheint rechts das Codefenster. Hier hinein...

wohin wird die "abgespeckte Datei" gespeichert? Automatisch in den gleichen Ordner der Ursprungsdatei?
Das macht diese Codezeile:

.SaveAs Filename:=ThisWorkbook.Path & "\Kopie zum Versenden.xls" 'Dateinamen anpassen

Hier wird also der Dateiname aus dem Pfad der Ursprungsdatei (ThisWorkbook.Path) und einem neuen Namen zusammengesetzt. Du kannst auch schreiben:

.SaveAs Filename:="C:\test\Kopie.xls" 'Dateinamen anpassen

Dann wird die Kopie immer nach C:\test gespeichert.
Gruß Matthias
Anzeige
AW: Eine Datei automatisch in 2 Versionen speicher
19.07.2006 08:57:08
Anja
Ist ja supergeil! Es funktioniert!!!
Vielen vielen vielen Dank für die Hilfe! Ich bin immer wieder begeistert, wenn mir im Excel-Forum - vor allem sooooo schnell!!! - geholfen wird!
Lieben Gruß und schönen Tag,
Anja
AW: Eine Datei automatisch in 2 Versionen speicher
19.07.2006 09:08:01
Anja
Ups, jetzt hatte ich total übersehen, daß die Ursprungsdatei aus 2 Arbeitsblättern besteht. In die Kopie der Datei wird natürlich nur das eingefügt, bei dem die 4 Spalten fehlen. Wie kann ich die gesamte Arbeitsmappe kopieren? Oder muß ich einfach nur den Namen des 2. Arbeitsblattes irgendwo mit einfügen?
Ich denke, wenn ich das noch hinbekommen habe, war es das dann auch...! ;-))
Lieben Gruß
Anja
Anzeige
AW: Eine Datei automatisch in 2 Versionen speicher
19.07.2006 09:09:45
Matthias
Hallo Anja,
müssen bei der Kopie des zweiten Blattes auch bestimmte Daten gelöscht werden?
Gruß Matthias
AW: Eine Datei automatisch in 2 Versionen speicher
19.07.2006 09:14:52
Anja
Nein, es kann da alles bleiben wie es ist.
AW: Eine Datei automatisch in 2 Versionen speicher
19.07.2006 09:24:49
Matthias
Hallo Anja,
ok, dann so (ich hab's auch noch ein wenig erklärt und eine Fehlerabfrage eingebaut):

Sub KopieSpeichern()
'Konstanten können angepasst werden:
Const Tab1_Name = "Tabelle1"
Const Tab2_Name = "Tabelle2"
Const Kopie_Name = "Kopie zum Versenden.xls"
Dim WB_neu As Workbook 'Zeiger auf neue Mappe
Application.ScreenUpdating = False 'damit es nicht so "flackert"
'Erstes Blatt kopieren (in neue Mappe):
Sheets(Tab1_Name).Copy
Set WB_neu = ActiveWorkbook 'Variable auf neue (=aktive) Mappe setzen
On Error GoTo errhandler 'Fehlerbehandlung
Range("AC:AF").Delete
'Zweites Blatt kopieren (zu neuer Mappe hinzu):
ThisWorkbook.Sheets(Tab2_Name).Copy After:=WB_neu.Sheets(Tab1_Name)
Application.DisplayAlerts = False 'Warnmeldung "Datei überschreiben?" abschalten
With WB_neu
.SaveAs Filename:=ThisWorkbook.Path & "\" & Kopie_Name
.Close
End With
Application.DisplayAlerts = True 'nicht vergessen, wieder einzuschalten
Application.ScreenUpdating = True
Exit Sub 'Prozedur verlassen (kein Fehler)
'hierher geht es nur, wenn ein Fehler auftrat:
errhandler:
Application.DisplayAlerts = True 'auch hier nicht vergessen, wieder einzuschalten
WB_neu.Close SaveChanges:=False 'neue Mappe verwerfen
MsgBox Err.Description, vbCritical, "Fehler beim Speichern der Kopie" 'Fehler ausgeben
End Sub

Gruß Matthias
Anzeige
AW: Eine Datei automatisch in 2 Versionen speicher
19.07.2006 10:32:21
Anja
Matthias, du bist echt genial!!!!!
Vielen vielen Dank!
Eine Klitzekleinigkeit hätte ich noch...
Kann man programmieren, daß, wenn die Datei geöffnet wird, das erste Arbeitsblatt angezeigt wird, und nicht das 2.? (Das 2. ist "unwichtiger" als das 1. Momentan ist das 2. Blatt aufgerufen, wenn ich die Datei öffne.)
Ich hoffe, ich nerve nicht, aber wenn ich auch das noch hinbekomme, wäre das die absolute Krönung...!!!!
Bist du nochmal so nett? :-)) Danke!
Anja
AW: Eine Datei automatisch in 2 Versionen speicher
19.07.2006 14:08:43
Matthias
Hallo Anja,
ergänze den Code wie folgt:

'Zweites Blatt kopieren (zu neuer Mappe hinzu):
ThisWorkbook.Sheets(Tab2_Name).Copy After:=WB_neu.Sheets(Tab1_Name)
WB_neu.Sheets(Tab1_Name).Activate

Nur die dritte Zeile ist neu, die anderen sind zum Auffinden der richtigen Stelle!
Gruß Matthias
Anzeige
AW: Eine Datei automatisch in 2 Versionen speicher
19.07.2006 14:17:25
Anja
Das ist ja einfach superspitzenklasse!!!!!!!!!
Vielen vielen vielen Dank!!!!!!!!!
Herzliche Grüße
Anja
AW: Eine Datei automatisch in 2 Versionen speicher
19.07.2006 08:50:36
Sylvio
Hallo Anja,
genau richtig Anja, einfach den Text bei "DieseArbeitsmappe" in das weiße rechte große Fenster reinkopieren.
Und ja die Datei wird in den selben Ordner abgelegt, wo deine Ursprungsdatei liegt.
Befehl dazu: ThisWorkbook.Path
gruß Sylvio

136 Forumthreads zu ähnlichen Themen

Datei automatisch speichern nach Eingabe
Franz

Hallo zusammen,
habe folgendes Problem:
über eine Vorlage (XLT) wird ein neues Arbeitsblatt erstellt. In 2 Zellen (D7 und B13) sollen Kundennummer und Reparaturnummer eingetragen werden. Auf dem Blatt gibt es einen Button der die Datei dann speichert und zwar in der Form: Kundennummer_R...
29.04.2009 13:13:57
Thread-ID: 1071890
2 Beiträge
Anzeige
nach Speichern automatisch Schließen
Valeri

Hallo liebes Forum,
ich möchte meine Arbeitsmappe nach dem ich gespeichert habe Automatisch schlissen lassen.
Wie würde den der Code dafür aussehen?
Vielen Dank schon mal im Voraus!
Gruß Valeri
11.01.2012 11:23:23
Thread-ID: 1245611
12 Beiträge
Excel Datei automatisch speichern und versenden
Tobias

Hallo,
Klaus hat mir schon einmal super bei diesem Thema geholfen, mir gelingt es aber nicht Anpassungen vorzunehmen. Das Thema wurde hier behandelt:
https://www.herber.de/forum/archiv/1316to1320/t1317504.htm
Es geht darum eine Datei nach Benutzern zu filtern, danach pro Benutzer...
25.06.2013 15:48:12
Thread-ID: 1319636
15 Beiträge
Anzeige
Datei automatisch beim speichern nummerieren
Manfred

Wer kann mir helfen?
Ich habe eine Vorlage mit dem Namen Zuarbeitung. Diese muss
von einem Mitarbeiter ausgefüllt werden. Danach mittels Makro
in das Verzeichnis C:\Zuarbeit kopiert werden. Dies ist kein
Probelm.
Da aber bei einer neuerlichen Abspeicherung die alte Datei
ZB: Z...
19.07.2002 12:02:58
Thread-ID: 138423
4 Beiträge
Automatische Aufforderung zu Speichern nach Öffnen
Michael

Hallo,mein Problem: Ich möchte, dass nach dem Öffnen meiner Excel-Vorlage der Benutzer sofort zum Speichern dieser als xls-Datei aufgefordert wird.Kann mir jemand helfen?Michael
31.07.2002 14:18:16
Thread-ID: 143099
3 Beiträge
Wie Exceldatei automatisch speichern?
VBA-Anfänger

Hallo liebe Community,
ich würde gerne eine Ecxceldatei automatisch mittels eines Add-ins wöchentlich speichern lassen. Allerdings habe ich mittels Google kein Add-in für Excel 2010 gefunden. Kann mir hier jemand weiterhelfen?
Oder gibt es alternativ eine gute Lösung, dieses Problem mi...
21.01.2016 22:02:48
Thread-ID: 1470374
4 Beiträge
offene Datei automatisch abspeichern
Gerhard

Ich möchte aus einer geöffneten Excel ein automatisches Backup mit einer einstellbaren Zeit und mit einem einstellbaren Pfad erstellen.
20.05.2016 22:22:22
Thread-ID: 1494574
11 Beiträge
VBA - Automatisches Nummerieren deaktivieren
Hans

Hallo zusammen,
ich benötige Hilfe bei einem Code zum deaktivieren der automastischen Nummerierung und Vervollständigung beim "ziehen" von Zellen.
Beispiel:
Ich habe in Zelle A1 stehen: "SO"
markiere ich Zelle A1 und ziehe sie Richtung A3 vervollständigt Excel in A2 "MO" in A3 "...
29.09.2016 12:57:59
Thread-ID: 1517159
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
11
14
3
3
2
3
10
4
1
4
5
1
3
5
2
1
5
23
2
2
1
3
9