Frage nach "Kopie erstellen?"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo rainer
Weiß, es sit nicht selbstverständlich, daß jetzt noch einer antwortet
Bab bitte Nachsicht mit mir, sonst werd ich heute nicht schlafen.
Zur Glaskugel hast Recht, deshalb nochmal dsa Prob
Excel soll fragen, wenn da eine Arbeitsmappe geschlossen wird,ob eine gesonderte Kopie
erstellt werden soll.
K.Rola sagte, ein Klassenmodul müsste her. Hab ich gemacht, doch Excel merkt nicht,daß eine Arbeitsmappe geschlossen wird
Mein Makro:
Sub WB_Close()
Dim WB_Name As String
Dim Kopie_Pfad As String
'
Kopie_Pfad = "J:\Eigene Dateien (Backup)\Excel\Kopien\"
WB_Name = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
'ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=WB_Name & "_Kopie"
End Sub
Mein Klassenmodul:


Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
Call WB_Close
End Sub

Danke für deine Hilfe im voraus

Private Sub myApplication_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean).... Könntest du bitte mal versuchen, mir die verschiedenen Schritte zu erklären, ...speziell Schritt 1, warum das hier nötig ist. Irgendwie krieg ich das nicht auf die Reihe. Gruss Rainer

Hi Rainer,
du machst in Gedanken der zweiten vor dem ersten Schritt. Wenn nach dem aktivieren der Makros der Interpreter die Module durchläuft, wird die Variable "myXL_Application" angelegt. Erst dann wird das Open - Ereignis ausgeführt. Alle nicht in Prozeduren gekapselten Variablen, sind in dem Moment schon angelegt. Das ist wie in einer "normalen" Sub. Egal wo ich die DIM - Anweisung hinschreibe, die Variablen werden angelegt, bevor die erste Codezeile ausgeführt wird. Es gibt also keine bedingte Dimensionierung. Darum sind solche Konstrukte völlig unsinnig, da die Variable a auf alle Fälle angelegt wird, auch wenn A1 nicht leer ist.

Public Sub test1()
    If Cells(1, 1).Value = "" Then
        Dim a As Integer
        a = 1
    End If
End Sub

Starte das Makro mal mit F8 und schau in das Lokalfenster. Die Variable a wird angelegt, wenn das Makro aufgerufen wird (Die Zeile Public Sub test1() ist gelb unterlegt)
Der Interpreter meckert nur, wenn eine Variable schon angesprochen wird, bevor sie dimensioniert wurde, da er das Makro Zeile für Zeile von oben nach unten in den Maschinencode übersetzt. Also, das:

Public Sub test2()
a = 1
Dim a As Integer
End Sub

geht nicht.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Frage nach "Kopie erstellen?"

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread