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

Tab beim Schließen als neue Datei speichern

Forumthread: Tab beim Schließen als neue Datei speichern

Tab beim Schließen als neue Datei speichern
03.03.2007 15:23:00
Fritz_W
Hallo VBA-Experten,
noch einmal bitte ich euch um Unterstützung.
Ich möchte, dass beim Schließen meiner EXCEL-Arbeitsmappe das Tabellenblatt "Auswertung" in eine neue Datei kopiert wird, wenn zu diesem Zeitpunkt in der "Tabelle3" der zu schließenden Datei in der Zelle "T18" eine 1 eingetragen ist. Die neue Datei sollte unter dem Namen der zu schließenden Datei mit dem Zusatz "-" und dem Zelleintrag aus Zelle "P18" der Tabelle3 im gleichen Ordner gespeichert werden.
Wäre toll wenn ihr mir dabei helfen könntet.
mfg
Fritz
Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tab beim Schließen als neue Datei speichern
03.03.2007 16:08:28
Veit
Hallo Fritz,
folgender Code solte machen was Du willst:
' in "DieseArbeitsmappe", nicht Tabelle, nicht Modul
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wb1 As Workbook, wb2 As Workbook
Dim ws1 As Worksheet
Set wb1 = ThisWorkbook
Set ws1 = wb1.Sheets("Tabelle3")
If ws1.Cells(18, 20).Value = "1" Then
wb1.Sheets("Auswertung").Copy
Set wb2 = ActiveWorkbook
wb2.SaveAs (wb1.Path & "\" & Left(wb1.Name, Len(wb1.Name) - 4) & "-" & ws1.Cells(18, 16).Value)
End If
End Sub

Grüße
Ein Veit
Anzeige
AW: Tab beim Schließen als neue Datei speichern
03.03.2007 16:41:00
Fritz_W
Hallo Veit,
vielen Dank, dass Du mir erneut deine Hilfe anbietest.
Das Makro funktioniert nicht ganz wie gewünscht. Es wird zwar das Tabellenblatt "Auswertung" als neue Datei unter dem korrekten Namen angelegt und gespeichert, aber die Ursprungsdatei bleibt geöffnet und beim zweiten Versuch, sie zu schließen kommt eine Fehlermedlung mit Hinweis auf die dafür wohl relevante Codezeile (gelb unterlegte Codezeile):
wb2.SaveAs (wb1.Path & "\" & Left(wb1.Name, Len(wb1.Name) - 4) & "-" & ws1.Cells(18, 16).Value)
Ich hoffe, ich hab die Probleme korrekt beschrieben und Du kannst mir noch einmal weiterhelfen.
Gruß
Fritz
Anzeige
AW: Tab beim Schließen als neue Datei speichern
03.03.2007 17:30:51
Veit
Hallo Fritz,
der Fehler kam bei mir auch wenn ich nicht gespeichert habe.... jetzt neue Fassung
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wb1 As Workbook, wb2 As Workbook
Dim ws1 As Worksheet
Set wb1 = ThisWorkbook
Set ws1 = wb1.Sheets("Tabelle3")
test = Dir(wb1.Path & "\" & Left(wb1.Name, Len(wb1.Name) - 4) & "-" & ws1.Cells(18, 16).Value)
If test = "" Then
If ws1.Cells(18, 20).Value = "1" Then
wb1.Sheets("Auswertung").Copy
Set wb2 = ActiveWorkbook
On Error Resume Next
Application.DisplayAlerts = False
wb2.SaveAs (wb1.Path & "\" & Left(wb1.Name, Len(wb1.Name) - 4) & "-" & ws1.Cells(18, 16).Value)
Application.DisplayAlerts = True
wb2.Close Savechanges:=True
Set wb2 = Nothing
End If
End If
End Sub

Grüße
Ein Veit
Anzeige
AW: Tab beim Schließen als neue Datei speichern
03.03.2007 17:51:00
Fritz_W
Hallo Veit,
jetzt läuft das Ganze wie gewünscht. Ich danke Dir vielmals für die Menge an Arbeit und Zeit, die Du für mich investierst.
Dennolch habe ich noch eine Frage:
In der Tabelle "Auswertung" sind Formeln auf andere Tabellen der (ursprünglichen) Datei enthalten, so dass nach dem Öffnen der neuen Datei Verknüpfungen zu der alten Datei bestehen. Dies ist deshalb ärgerlich und störend, weil der Bereich der Tabelle Auswertungen, der diese Formeln enthält, für die neuen Datei keinerlei Bedeutung hat. Der für die neue Datei eigentlich relevante Teil der Tabelle Auswertungen (A1:M30) enthält also keine Formeln, die einen Bezug auf andere Tabellenblätter haben.
Wie könnte man das lösen?
Für einen Lösungsansatz/Lösung wäre ich Dir dankbar.
Gruß
Fritz
Anzeige
AW: Tab beim Schließen als neue Datei speichern
03.03.2007 18:05:00
Veit
Hallo Fritz,
kein Problem und gern geschehen... nur mein Kind fordert jetzt so langsam ihren Papa ein ;-)
also nur schnell mein Lösungsvorschlag. Kopiere das Blatt in der gleich Mappe, entferne alle Verknüpfungen bzw ersetze sie durch reine Werte (der Makrorekorder und "Bearbeiten/Inhalte einfügen..." helfen Dir da weiter... vielleicht gibt es ja nochwas eleganteres(?) sieh mal im Archiv nach, das Problem gab es sicher schon mal) und verschiebe diese Blatt dann in die neue Datei...
Wenn Du noch Hilfe brauchst... ich bin heute abend wenn meine Prinzessin im Bettchen ist, wieder da.
Bis dahin
Grüße
Ein Veit
Anzeige
AW: Tab beim Schließen als neue Datei speichern
03.03.2007 18:39:00
Fritz_W
Hallo Veit,
vielen Dank, dass Du noch kurz geantwortet hast.
Vaterpflichten gehen vor, das ist selbstverständlich.
Habe folgenden Lösungsvorschlag, bei dem Du mir bei der weiteren Umsetzung (später!!) gerne weiterhelfen kannst (es eilt in keinem Fall!).
Ich habe ein Makro aufgezeichnet, das folgendes bewirkt:
Kopie des Tabellenblattes "Auswertungen" in der Datei und entsprechende Änderungen (Bereiche gelöscht bzw. kopiert und als Werte eingefügt). Die Kopie der Tabelle "Auswertungen trägt folglich den Namen "Auswertungen (2)". Das Makro trägt den Namen "Auswertung_kopieren"
Jetzt müsste man meinen Vorstellungen das bisherige Makro beim Schließen der Datei wie folgt ändern:
Wenn beim Schließen der Datei die Voraussetzungen für das Anlegen der neuen Datei erfüllt sind, müsste nun zuerst das Makro "Auswertung_kopieren" gestartet werden. Anschließend müsste dann nicht die Tabelle "Auswertung" sondern "Auswertung (2)" in die neue Datei (nicht kopiert sondern) verschoben werden (Dateibezeichnung wie bei der alten Lösung).
Kann man das so realisieren.
Bereits an dieser Stelle vielen Dank! Wie gesagt: zuerst Vaterpflichten erfüllen.
In diesem Sinne
Gruß
Fritz
Anzeige
AW: Tab beim Schließen als neue Datei speichern
03.03.2007 18:56:00
Erich
Hallo Fritz,
die folgende Lösung entspricht zwar nicht deinem Vorgehen, funzt aber vielleicht auch: 
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strW As String, wb2 As Workbook, lngZ As Long, intC As Integer
With ThisWorkbook
strW = Left(.FullName, Len(.FullName) - 4) & _
"-" & .Sheets("Tabelle3").Cells(18, 16) & ".xls"
If Dir(strW) = "" Then
If .Sheets("Tabelle3").Cells(18, 20) = "1" Then
With .Sheets("Auswertung")
lngZ = .UsedRange.Row + .UsedRange.Rows.Count - 1
intC = .UsedRange.Column + .UsedRange.Columns.Count - 1
'                                                     anlegen, kopieren (auch Formate)
.Copy
Set wb2 = ActiveWorkbook
'                                                     nur Werte, keine Formeln
If lngZ * intC > 0 Then _
wb2.Sheets(1).Range(Cells(1, 1), Cells(lngZ, intC)) = _
.Range(.Cells(1, 1), .Cells(lngZ, intC)).Value
End With
'                                                     speichern, schließen
wb2.SaveAs strW
wb2.Close
Set wb2 = Nothing
End If
Else
MsgBox strW & vbLf & "gibt es schon.", vbInformation
End If
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Tab beim Schließen als neue Datei speichern
03.03.2007 19:31:00
Fritz_W
Hallo Erich,
und wie das funktioniert, ganz toll. Besten Dank!
Noch eine störende Sache, die ich gerne geändert hätte und die ich durch das Makro in meiner Lösung hätte vermeiden können. In der Tabelle "Auswertung" befindet sich eine (einzige) Schaltfläche, mit der ich ein Makro starte. Diese Schaltfläche sollte in der Kopie (sprich neuen Datei) möglichst nicht erscheinen. Ist das möglich?
Gruß
Fritz
Anzeige
AW: Tab beim Schließen als neue Datei speichern
03.03.2007 20:13:00
Erich
Hi Fritz,
so? 
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strW As String, wb2 As Workbook, lngZ As Long, intC As Integer, objShape As Shape
With ThisWorkbook
strW = Left(.FullName, Len(.FullName) - 4) & _
"-" & .Sheets("Tabelle3").Cells(18, 16) & ".xls"
If Dir(strW) = "" Then
If .Sheets("Tabelle3").Cells(18, 20) = "1" Then
With .Sheets("Auswertung")
lngZ = .UsedRange.Row + .UsedRange.Rows.Count - 1
intC = .UsedRange.Column + .UsedRange.Columns.Count - 1
'                                                     anlegen, kopieren (auch Formate)
.Copy
Set wb2 = ActiveWorkbook
'                                                     Schaltflächen löschen
For Each objShape In ActiveSheet.Shapes
objShape.Delete
Next objShape
'                                                     nur Werte, keine Formeln
If lngZ * intC > 0 Then _
Range(Cells(1, 1), Cells(lngZ, intC)) = _
.Range(.Cells(1, 1), .Cells(lngZ, intC)).Value
End With
'                                                     speichern, schließen
wb2.SaveAs strW
wb2.Close
Set wb2 = Nothing
End If
Else
MsgBox strW & vbLf & "gibt es schon.", vbInformation
End If
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Tab beim Schließen als neue Datei speichern
04.03.2007 09:08:00
Fritz_W
Hallo Erich,
ich freue mich sehr über Deine erneute Hilfe. Vielen Dank!!
Bitte entschuldige, dass ich erst so spät antworte, habe gestern noch überraschenden Besuch erhalten.
Ich habe Dein Makro in das Modul Arbeitsmappe kopiert.
Aus für mich nicht nachvollziehbaren Gründen habe ich jedoch das gleiche Ergebnis wie beim vorigen Code, d.h. die Schaltfläche ist in der kopierten Tabelle von Auswertung nach wie vor enthalten.
Woran kann das liegen?
Gruß
Fritz
Anzeige
Testergebnisse
04.03.2007 09:52:22
Fritz_W
Hallo Erich,
inzwischen habe ich weiter getestet und folgendes festgestellt:
Schließe ich die Originaldatei und ist dabei nicht die Tabelle "Auswertung" aktiviert, wird die Schaltfläche in die Kopie mitkopiert. Ist zu diesem Zeitpunkt in der Originaldatei die Tabelle "Auswertung" aktiviert, enthält die Kopie zwar auch die in der Tabelle "Auswertung" enthaltenen Schaltflächen, beim Speichern der Originaldatei werden diese aber offensichtlich in der Ursprungstabelle gelöscht.
Ich hoffe, dass Dir diese Informationen weiterhelfen und eine Korrektur des Codes in meinem Sinne möglich ist.
Einstweilen besten Dank
Viele Grüße
Fritz
Anzeige
AW: Testergebnisse
04.03.2007 10:15:26
Erich
Hi Fritz,
prima Test! Deine Infos halfen weiter - so läuft es jetzt hoffentlich sauber: 
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strW As String, wb2 As Workbook, lngZ As Long, intC As Integer, objShape As Shape
With ThisWorkbook
strW = Left(.FullName, Len(.FullName) - 4) & _
"-" & .Sheets("Tabelle3").Cells(18, 16) & ".xls"
If Dir(strW) = "" Then
If .Sheets("Tabelle3").Cells(18, 20) = "1" Then
With .Worksheets("Auswertung")
lngZ = .UsedRange.Row + .UsedRange.Rows.Count - 1
intC = .UsedRange.Column + .UsedRange.Columns.Count - 1
'                                                     anlegen, kopieren (auch Formate)
.Copy
Set wb2 = ActiveWorkbook
'                                                     Schaltflächen löschen
For Each objShape In wb2.Sheets(1).Shapes
objShape.Delete
Next objShape
'                                                     nur Werte, keine Formeln
If lngZ * intC > 0 Then _
Range(Cells(1, 1), Cells(lngZ, intC)) = _
.Range(.Cells(1, 1), .Cells(lngZ, intC)).Value
End With
'                                                     speichern, schließen
wb2.SaveAs strW
wb2.Close
Set wb2 = Nothing
End If
Else
MsgBox strW & vbLf & "gibt es schon.", vbInformation
End If
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort und: Schönen Sonntag noch!
Anzeige
AW: Testergebnisse
04.03.2007 10:34:00
Fritz_W
Hallo Erich,
ja super, das hast Du perfekt umgesetzt!
Bin so dankbar für deine kompetente Unterstützung, einfach toll!
Auch Dir einen schönen Sonntag noch
Gruß
Fritz
@ Erich G.
06.03.2007 18:11:26
Fritz_W
Hallo Erich,
ich bitte noch einmal in dieser Angelegenheit um Deine Hilfe.
Wie muss man das Makro verändern, dass die Kopie der Tabelle "Auswertung" mit einem passwortgeschützten Blattschutz (Passwort: "xXx") versehen wird?
Vielen Dank für die Hilfe!
Gruß
Fritz
Anzeige
AW: @ Erich G.
06.03.2007 19:26:00
Erich
Hi Fritz,
das ginge (hoffentlich) so: 
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strW As String, wb2 As Workbook, lngZ As Long, intC As Integer, objShape As Shape
Dim ws2 As Worksheet
With ThisWorkbook
strW = Left(.FullName, Len(.FullName) - 4) & _
"-" & .Sheets("Tabelle3").Cells(18, 16) & ".xls"
If Dir(strW) = "" Then
If .Sheets("Tabelle3").Cells(18, 20) = "1" Then
With .Worksheets("Auswertung")
lngZ = .UsedRange.Row + .UsedRange.Rows.Count - 1
intC = .UsedRange.Column + .UsedRange.Columns.Count - 1
'                                                     anlegen, kopieren (auch Formate)
.Copy
Set wb2 = ActiveWorkbook
Set ws2 = wb2.Sheets(1)
'                                                     Schaltflächen löschen
For Each objShape In ws2.Shapes
objShape.Delete
Next objShape
'                                                     nur Werte, keine Formeln
If lngZ * intC > 0 Then _
Range(Cells(1, 1), Cells(lngZ, intC)) = _
.Range(.Cells(1, 1), .Cells(lngZ, intC)).Value
'                                                     Blattschutz für die Kopie
ws2.Protect "xXx"
End With
'                                                     speichern, schließen
wb2.SaveAs strW
wb2.Close
Set wb2 = Nothing
Set ws2 = Nothing
End If
Else
MsgBox strW & vbLf & "gibt es schon.", vbInformation
End If
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: @ Erich G.
06.03.2007 19:42:48
Fritz_W
Hallo Erich,
klappt super!!
Vielen Dank und Dir noch einen schönen Abend
Gruß
Fritz
;

Forumthreads zu verwandten Themen

Fehler beim Kopieren von Tabelle in neue Datei
Tabelle

Guten Abend
Aus einer Datei möchte ich gerne eine Tabelle via "Verschieben oder kopieren" in eine neue Arbeitsmappe verschieben (mittels Aktivieren des Kästchens "Kopie erstellen").
Das ist in der Regel auch kein Problem. Doch heute scheitere ich bei einer bestimmten Datei daran, da bei...
28.08.2008 17:48:35
Thread-ID: 1005548
3 Beiträge
Tabellenblätter in neue Arbeitsmappe kopieren
Christian

Hallo!
ich möchte gerne per makro aus einer datei mit ca. 70 tabellenblättern 11 Blätter auswählen und in eine neue Mappe kopieren, am besten sollten auch gleich noch die verküpfungen (in der neuen mappe) gelöscht werden.
Die zu kopierenden Blätter sind nicht hintereinander, also quer ü...
10.09.2008 16:37:00
Thread-ID: 1008845
6 Beiträge
Tabelle in neue Datei speichern
Robert

Hallo,
kann mir bitte jemand helfen...bin am verzweifeln ;-)
Ein Tabellenblatt der geöffneten Datei sollte in eine neue Datei gespeichert werden - und das mit dem Zellinhalt eines anderen Tabellenblattes derselben Datei als Dateiname. Sollte eine Datei mit demselben Namen bereits besteh...
26.12.2008 10:18:00
Thread-ID: 1035274
4 Beiträge
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
Tabellenblätter auswählen & in neue Datei kopieren
Andreas

Guten Morgen. Ihr Könner!
Ich habe hier eine Excel-Datei mit unzähligen Tabellenblättern, die wie folgt beschriftet sind:
LN-Mo, LN-Di, ... LN-Sa
SN-Mo, SN-Di, ... SN-Sa
usw. usf.
Nun will ich per Inputbox zum Beispiel alle Tabellenblätter mit "Mo" auswählen und in eine neue...
29.04.2009 09:23:32
Thread-ID: 1071782
5 Beiträge
Anzeige
Tabellen in Datei kopieren
Tobiax

Hallo!
Ich möchte gerne einige meiner Tabellen per Makro in eine Andere Datei kopieren.
Allerdings sollen nur die Werte und das Format in den 4 Tabellenblätter übernommen werden. Die Formeln nicht.
Die beiden Dateien liegen IMMER im selben Ordner.
Kann mir jmd helfen?
Toby ....
25.07.2009 09:06:13
Thread-ID: 1091116
4 Beiträge
Blätter in neue Datei kopieren
Tobiax

Hallo!
Ich möchte aus der Datei "x.xls", 5 bestimmte Tabellenblätter (A, B, C, D, E) in die Datei "y.xls" kopiert haben.
Wie bekomme ich das per Makro hin?
Toby ...
P.S.: Zur Not kann mit den 5 Blättern auch neue Datei generiert werden mit dem Namen "y.xls".
27.07.2009 11:48:47
Thread-ID: 1091559
6 Beiträge
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
Tabellenblatt als Datei speichern
Murat

Was stimmt bei dem VBA code nicht bekomme Fehler bei kompilieren variable nicht definert
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 i2 des jeweiligen tabellenblattes....
19.01.2010 16:27:42
Thread-ID: 1131114
6 Beiträge
Tabellenblatt in alle Dateien eines Ordn. kopieren
Markus

Hallo Zusammen,
ich bräuchte mal wieder eure Hilfe!! Sorry!!!
ich möchte gerne ein Tabellenblatt "Reperatur" in alle Exceldateien eines Ordners "Liste" kopieren.
Mein Gedanke dazu war, dass ich über folgende Schleife (aus einem Forum) die Dateien öffne und jeweils das Tabellenblatt...
09.03.2011 19:16:47
Thread-ID: 1205030
6 Beiträge
Bereich aus Tabellenblat in neue Datei einfügen
Werner

Hallo Excelfreunde
könnt Ihr helfen.Ich habe hier einen Code von Beate Schmitz Geschrieben am: 03.10.2008 23:32:05
1)Der Code kopiert jedoch das Gesamte Blatt und nicht nur den Bereich A1:G48.
2)Wenn ich 'Columns("H:T").Delete aktiviere löscht er die Spalten im Orginalblatt und nich...
29.05.2011 21:14:34
Thread-ID: 1216611
3 Beiträge
Zellenbereich in neue Datei kopieren
donimuc

Hallo Excelprofis!
Und wieder werde ich euch mit meinem "kleinen" Problem ein Lächeln entlocken! :-)
Wer kann mir einen VBA -Befehl schreiben, mit dem ich ich den Zellenbereich B2:AB20 aus dem Blatt "Daten" kopieren kann und in eine neue Datei, Blatt "Final" in den gleichen Zellenbereic...
21.01.2012 14:53:09
Thread-ID: 1247334
14 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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