Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1172to1176
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
1172to1176
1172to1176
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei auch als Copie Speichern

Datei auch als Copie Speichern
Daniel
Hallo zusammen
Ich hab da mal ein kleines Problem oder besser eine Frage:
Ist es möglich eine Datei beim "normalen" Speichern gleichzeitig auch als Copie zu speichern?
Ich denke mir dies etwa so: abc.xls und abckopie.xls. Die Kopie sollte auf dem gleichen Datenträger wie das Original gespeichert werden und der Benutzer sollte "nur" den normalen Speichern Button brauchen müssen.
Danke schon mal für eure Hilfe
Grüsse aus der Schweiz
Dani

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

Betreff
Benutzer
Anzeige
AW: Datei auch als Copie Speichern
18.08.2010 23:05:35
Schmausi
Heilo Dani
- öffne VBAProjekt
- öffne "DieseArbeitsmappe"
und füge folgendes ein:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' KOPI wird gespeichert
ActiveWorkbook.SaveAs Filename:="D:\meine Dateien\Test001_copy.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
' Orginal wird gespeichert
ActiveWorkbook.SaveAs Filename:="D:\meine Dateien\Test001.xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub
zwischen durch wird wird abgefragt, ob die bestehenden Dateien ersetzt werden sollen
vielleicht hilft es Dir
Gruß vom Schmausi
Anzeige
AW: Datei auch als Copie Speichern
18.08.2010 23:09:25
Schmausi
Warte mal Dani
hier klappt doch was nicht richtig
ich arbeit mal noch daran
Gruß vom Schmausi
AW: Datei auch als Copie Speichern
18.08.2010 23:05:46
fcs
Hallo Dani,
wenn du in der Datei abc.xls im VBA-Editor die folgenden Makros unter "DieseArbeitsmappe" einfügst, dann wird beim Speichern jeweils die Kopie erstellt. Dabei wird immer die vorherige Kopie ohne Rückfrage überschrieben.
Voraussetzung ist natürlich, dass beim Öffnen der Datei die Makros aktiviert werden entweder durch manuelle Bestätigung oder durch entsprechende Einstellungen unter Excel-Optionen-Vertrauensstellungcenter.
Gruß
Franz 

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sCopyName As String
'Sorgt dafür, das Kopie auch erstellt wird, wenn Datei erstmalig gespeichert _
oder mit Speichern unter gespeichert wurde und danach geschlossen wird.
With ThisWorkbook
sCopyName = .Path & Application.PathSeparator & Replace(.Name, ".xls", "Kopie.xls")
If .Saved = True And Dir(sCopyName) = "" And InStr(.Name, "Kopie.xls") = 0 Then
.SaveCopyAs Filename:=sCopyName
End If
End With
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Vor dem Speichern der Datei eine Kopie speichern
Dim sCopyName As String
With ThisWorkbook
sCopyName = .Path & Application.PathSeparator & Replace(.Name, ".xls", "Kopie.xls")
If .Path = "" Or SaveAsUI = True Or InStr(.Name, "Kopie.xls") > 0 Then
'Datei wurde noch nicht gespeichert oder soll unter neuem Namen gespeichert werden.
'Von ein Kopie wird keine Kopie angelegt, wenn diese geöffnet und wieder _
gespeichert wird.
Else
.SaveCopyAs Filename:=sCopyName
End If
End With
End Sub

Anzeige
AW: Datei auch als Copie Speichern
19.08.2010 23:01:47
Daniel
Danke schon mal für eure Hilfe. Komme im Moment nicht gerade dazu das ganze zu Versuchen. Halte euch aber auf dem laufenden sobald ich es versucht habe.
Gruss Dani

314 Forumthreads zu ähnlichen Themen

per Makro passwortgeschützes PDF erstellen
Frank

Hallo!
Ich hoffe mal wieder aud fachkundige Hilfe. Bei meinem aktuellen Projekt müssen aus Excel heraus täglich viele passwortgeschützte PDF-Doumente erstellt werden. Das Passwort ist immer gleich. Es geht lediglich darum die Dateien vor unautorisiertem Zugriff zu schützen, falls jemand das...
15.08.2008 09:20:00
Thread-ID: 1002042
3 Beiträge
Anzeige
Excel Tabelle als Leerz. getrennte txt speichern
Eddie

Mahlzeit,
ich will gerne meine Tabelle als Leerzeichen getrennte Datei speichern, nur leider macht das prn-Format nur 240 Zeichen in einer zeile .... gibt es einen anderen Weg, umd das layout zu behalten, und dann als leerzeichen getrennte Datei zu speichern ?
Vielleicht kann man auch b...
01.01.1970 00:00:00
Thread-ID: 1014969
34 Beiträge
Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Anzeige
Makro: PDF-Drucken automatischer Dateiname
Stewie

Hallo,
ich habe ein Makro erstellt, mit welchem ich meine Tabellenblatt mittels PDF-Maker "drucken" kann.
Funktioniert soweit auch ganz gut, nur muss ich den Dateinamen noch von Hand eingeben.
Ich möchte gerne, dass mir der Text von 2 Zellen in meiner Tabelle als Dateiname benutzt w...
18.11.2008 11:14:00
Thread-ID: 1025556
3 Beiträge
Tabellenblätter einzeln als Datei speichern
murat

Hallo,
ich habe einen tollen VBA Code hier im Forum gefunden!
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle C2 des jeweiligen tabellenblattes.
Der Code unten i...
13.01.2009 11:46:16
Thread-ID: 1039178
3 Beiträge
Alle Dateien als Excel97 speichern
WolfgangN

Hallo,
ich habe Excel2003 und möchte alle Excel-Tabellen aus einem Ordner (Excel-Tabellen) in einem anderen Ordner (PCShop) als Excel 97 Version speichern, um sie zu brennen und zu einem PC zu nehmen, wo nur Excel 97 installiert ist.
An den Dateien wird nichts geändert, soll nur als Exc...
12.02.2009 19:17:00
Thread-ID: 1050222
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
VBA Speichern unter
BuStue

Hallo Leute, schönen Guten Morgen.
KAnn man folgenden Code so umdrehen, das der Inhalt der Zelle D4 vor dem Blattnamen abgespeichert wird,
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ThisWorkbook.Sheets("Bestandsübersicht").Range("D4").Value & "....
26.03.2009 07:58:29
Thread-ID: 1064084
4 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
2
1
33
4
2
2
2
2
13
3
1
4
2
2
1
13
5
1
1
4
2
2
5
5
3