Hilfe Code bleibt hängen

Private Sub CommandButton3_Click() Dim DName As String, aktDir As String ChDir "C:\Winnt\" 'Speicherort Selection.Copy DName = "Auswertung1" & " " & [A1] & " " & Format(Now, "DD-MM-YY") & ".xls" ActiveWorkbook.SaveAs DName ' speichere unter Name Inhalt von Zelle A1 Datum.xls MsgBox "Kopie erfolgreich unter " & ThisWorkbook.Path & "\" & DName & " gespeichert." ActiveWorkbook.Close ChDir "C:\Winnt\Eigene Dateien" Workbooks.Open FileName:= _ "C:\Winnt\Eigene Dateien\Auswertung.xls" Sheets("Auswertung").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton3_Click() Dim DName As String, aktDir As String ChDir "C:\Winnt\" 'Speicherort Selection.Copy DName = "Auswertung1" & " " & [A1] & " " & Format(Now, "DD-MM-YY") & ".xls" ActiveWorkbook.SaveAs DName ' speichere unter Name Inhalt von Zelle A1 Datum.xls MsgBox "Kopie erfolgreich unter " & ThisWorkbook.Path & "\" & DName & " gespeichert." ActiveWorkbook.Close End Sub

Hallo Ute
Habe nun zuerst getestet und jetzt schreib ich :-)
Du kannst deshalb nicht den 2. Code-Teil nach dem Befehl "ActiveWorkbook.Close" schreiben, weil mit diesem Befehl eben alles geschlossen wird. So wird dann auch nicht folgender Quellcode ausgeführt.
Um dieses Problem zu umgehen, gibt es für jede Excel-Datei das Ereignis:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub

Hier kann Quellcode eingegeben werden, der direkt VOR dem Schließen einer Excel-Datei ausgeführt werden soll (wie ja in Deinem Fall gewünscht).
Du erreichst diesen Abschnitt, in dem Du die folgenden Schritte befolgst:
1. Deine Excel-Datei öffnen
2. VBA-Editor öffnen (über Extras / Makro / Visual-Basic-Editor)
3. Im Projekt-Explorer (linkes Fenster) doppelt auf "DieseArbeitsmappe" klicken
4. Im rechtten Fenster wählst Du aus dem Popupmenü (Allgemein) den einzigen Eintrag (Workbook) aus
5. Weiterhin im rechten Fenster wählst Du nun aus dem Popupmenü "Open" den Eintrag "BeforeClose" aus
Nun befindet sich der Textcursor in dem Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub

In diesen Bereich schreibst Du Diesen Code:
ChDir "C:\Winnt\Eigene Dateien"
Workbooks.Open FileName:= "C:\Winnt\Eigene Dateien\Auswertung.xls"
ActiveWorkbook.Sheets("Auswertung").Select
Das Ganze sollte dann SO aussehen:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
ChDir "C:\Winnt\Eigene Dateien"
Workbooks.Open FileName:= "C:\Winnt\Eigene Dateien\Auswertung.xls"
ActiveWorkbook.Sheets("Auswertung").Select
End Sub

Hoffe, dass Dir mit dieser "Wegbeschreibung" besser geholfen ist.
Bei mir funktioniert es jedenfalls.
Bin gespannt auf Deine Rückmeldung :-)
Ciao
Thorsten

Hallo Ute!
Mit "ActiveWorkbook.Close" schliesst Du die Datei,
der Code kann also nicht weiterlaufen!
Stell die Anweisung zum schliessen ans Ende.

Private Sub CommandButton3_Click()
Dim DName As String, aktDir As String
Dim wkb As Workbook
Set wkb = ThisWorkbook
ChDir "C:\Winnt\" 'Speicherort
Selection.Copy
DName = "Auswertung1" & " " & [A1] & " " & Format(Now, "DD-MM-YY") & ".xls"
wkb.SaveAs DName ' speichere unter Name Inhalt von Zelle A1 Datum.xls
MsgBox "Kopie erfolgreich unter " & wkb.Path & "\" & DName & " gespeichert."
'ActiveWorkbook.Close
ChDir "C:\Winnt\Eigene Dateien"
Workbooks.Open Filename:= _
"C:\Winnt\Eigene Dateien\Auswertung.xls"
Sheets("Auswertung").Select
wkb.Close
End Sub

Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread