Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
836to840
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
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Absturz bei Private Sub Workbook_BeforeSave

Excel Absturz bei Private Sub Workbook_BeforeSave
11.01.2007 13:12:56
Denise
Hallo zusammen,
Ich habe mit folgendem Code dass Problem, dass mein Excel nach Ausführung immer abstüzt:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean
Application.EnableEvents = False
Sheets(Array    ("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5")).Select
Sheets("Tabelle1").Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle1").Select
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:="L:\Pfad" & "Teil_Name" & Cells(2, 14) & ".xls"
Application.EnableEvents = True
End Sub

Ich finde einfach nicht den Fehler. :-(
Wer kann mir hier bitte helfen oder hat eine andere Idee wie man beim Speichern automatisch sicherstellt, dass von der Datei nur die Werte unter einem neuen Namen abgespeichert werden?
Vielen Dank im Voraus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Absturz bei Private Sub Workbook_BeforeSave
11.01.2007 13:27:54
Rudi
Hallo,
vermutlich falsch:
ActiveWorkbook.SaveAs Filename:="L:\Pfad" & "Teil_Name" & Cells(2, 14) & ".xls"
Steht z.B. in N2 'Test' wird als
L:\PfadTeil_NameTest.xls gespeichert.
irgendwo fehlt da ein oder mehrere \
ActiveWorkbook.SaveAs Filename:="L:\Pfad\" & "Teil_Name" & Cells(2, 14) & ".xls"
ActiveWorkbook.SaveAs Filename:="L:\Pfad\" & "Teil_Name\" & Cells(2, 14) & ".xls"
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Ergänzung
11.01.2007 13:31:16
Rudi
Hallo,
die Formeln in deinem Workbook werden im übrigen zerstört, da nach Abarbeitung des Makros auch die Originaldatei gespeichert wird, in der ja die Formeln ersetzt wurden.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: Ergänzung
11.01.2007 14:00:40
Denise
Hallo Rudi,
Vielen Dank für deine schnelle Unterstützung.
Bist du dir sicher dass es an dem Pfad liegen kann. Das Excel stürzt nämlich erst ab nachdem die Datei unter einem anderen Namen gespeichert wurde.
Und die Formeln sind dann im Workbook auch noch drin....?!! Wobei das eventuell auch daran liegen kann dass das Excel abschmiert....
Hast du vielleicht eine Idee wie man das Problem besser lösen kann.
Wäre super nett wenn du helfen könntest.
Vielen Dank.
AW: Ergänzung
11.01.2007 16:02:40
Rudi
Hallo,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim wkb As Workbook, wks As Worksheet
On Error GoTo ERRHANDLER
Application.EnableEvents = False
Application.ScreenUpdating = False
Cancel = True
ThisWorkbook.Save
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4", "Tabelle5")).Copy
Set wkb = ActiveWorkbook
For Each wks In wkb.Worksheets
With wks
.Cells.Copy
.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
Next wks
Sheets("Tabelle1").Activate
Range("A1").Select
Application.CutCopyMode = False
With wkb
.SaveAs Filename:="N:\test\" & "Teil_Name" & Cells(2, 14) & ".xls"
.Close
End With
ERRHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: Ergänzung
12.01.2007 08:28:28
Denise
Hallo Rudi,
Vielen Dank. Das Makro läuft jetzt komplett durch & Excel stürzt auch nicht mehr ab.
Leider funzt das mit dem speichern unter einem anderen Namen noch nicht so ganz.
Die "Hardcopy" wird in einer neuen Mappe geöffnet, nur gespeichert unter dem angegebenen Pfad wird sie irgendwie nicht...
Wäre jetzt auch nicht so tragisch wenn man es manuell unter dem Pfad speichern müsste aber falls dir noch was gutes einfallen sollte wärs natürlich klasse...

176 Forumthreads zu ähnlichen Themen

Private Sub open geht nicht gut
Lukas

Hi Allerseits
Kann mir jemand von Euch helfen'
Ich starte die Datei mit Private Sub Workbook_Open() und lasse die Willkommenseite als Userform öffnen. Bis dahin alles i.O. Private Sub Workbook_Open() On Error Resume Next Application.Visible = False Application.ScreenUpdating = False...
14.02.2009 14:03:00
Thread-ID: 1050709
7 Beiträge
Anzeige
Private Sub Workbook_Open()
Sandra

Hallo zusammen,
mittels dieses Ereignisses erhält mein Chef montags und mittags beim Öffnen der Datei eine Info:
Private Sub Workbook_Open() Sheets("Übersicht").Select If Weekday(Date, 2) = 1 Or Weekday(Date, 2) = 3 Then MsgBox "über ..... informieren!" End If End Sub
Dummerweise...
16.10.2009 17:36:38
Thread-ID: 1110164
7 Beiträge
Private Sub WorkbookOpen() | Herbers Excel-Forum
Heinz H
Hallo Leute
Ich habe unten den Code. Wenn Arbeitsmappe öffnen dann, von Sheet "OrgWert" B4:B13 in
Sheet "Prüfungen" B4:B13 kopieren.
Ist hier ein Fehler ?
Denn es wird nicht immer kopiert.
Gruß
Heinz
Private Sub Workbook_Open()
Sheets("OrgWert").Range("B4:B13").Copy<...
31.01.2010 17:59:02
Thread-ID: 1134636
4 Beiträge
Anzeige
Private Sub Workbook_BeforeClose
Scot

Liebe Leute
Ich hab mal wieder ein kleines Problem. Folgendes habe ich in "DieseArbeitsmappe" geschrieben:
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Application.MoveAfterReturnDirection = xlDown Application.CommandBars("Standard").Visible =...
22.09.2011 13:56:18
Thread-ID: 1231079
11 Beiträge
Sub Workbook_Open()
Manfred

Hallo zusammen,
ist es möglich nach einem Sub Workbook_Open() dierekt auf das Blatt KALENDER zu springen ? Ich bekomme das einfach nichthin. Sub Workbook_Open() 'hier werden die Tabellen versteckt Sheets("Passwort").Visible = 2 Sheets("Benutzer_01").Visible = 2 'Die Passwortabfrage sollt...
22.08.2013 09:53:58
Thread-ID: 1327935
2 Beiträge
Zwei unterschiedliche Private Sub Workbook_Sheet..
Alex

Hallo Herr Herber,
ich fürchte, dass ich bei einer Kombination aus zwei VBA-Codes nicht weiterkomme.
Ich habe einen Urlaubsplaner auf der Arbeit.
Bei diesem habe ich den Code (aus dem Netz) eingebettet, der die Datei nach 10 unbenutzten Minuten automatisch schließt.
Link: http:/...
15.01.2015 08:26:00
Thread-ID: 1402921
2 Beiträge
Private Sub Workbook_BeforeClose
Heinz

Hallo Leute
Könnte man den unteren Code etwas eleganter schreiben?
Denn wenn ich die Arbeitsmappe schließe, Flackert der Bildschirm so lange bis alle Sheets geschlossen sind.
Also etwa im Hintergrund schließen.
Danke & gruß Heinz Private Sub Workbook_BeforeClose(Cancel As B...
18.08.2015 21:00:19
Thread-ID: 1443017
3 Beiträge
Private Sub Workbook_Open() aus AddIn in Datei
Veit

Hallo,
ich suche ein Möglichkeit einer neuen EXCEL-Datei aus einem AddIn heraus ein Start-Makro zuzuweisen. Hintergrund der Geschichte ist, daß sobald eine zum AddIn gehörende Datei geöffnet wird schon die ersten Makros aus dem Addin ausgeführt werden sollen.
Gibt es da eine Möglichkeit?...
20.08.2002 14:55:16
Thread-ID: 150664
4 Beiträge

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
6
2
6
3
2
10
1
1
2
3
1
4
10
9
3
4
4
3
7
4
1
5
7
1
20