Auslösen eines Ereignisses bei Speicherung
Gunnar
Dies ist mein erster Beitrag also seid bitte nicht allzu kritisch was Form, oder Beschreibung angeht ;o)!
Durch den Weggang eines Kollegen bin ich in den Genuss gekommen, seine Programmierung weiter zu bearbeiten. Folgende Aufgabenstellung:
Bei drücken eines Buttons holt sich das Makro aus verschiedenen Zellen/ Bereichen die _
Information für die Bezeichnung der Datei. Der "Speichern unter" Dialog wird geöffnet und die _
Datei am ausgewählten Ort abgespeichert. Alles relativ simpel und einfach.
Private Sub btn_saveas_Click()
' hier wird in einem ersten Teil der Dateiname zusammengesetzt
pfad = "C:\e_valuator\"
datei = "WA" & number & "_" & system & "_" & reference & "_" & customer & "_" & project & "_" _
_
_
_
_
& datum & "_" & kuerzel
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
With dlg
' .Filters.Clear
' .Filters.Add "Excel 2003", "*.xls"
.InitialFileName = pfad & datei & ".xls"
.Show
End With
If dlg False Then dlg.Execute
End Sub
Wenn ich das Makro per Einzelschritt debugge läuft alles 1a durch.
Bei einer neuen Version der Arbeitsmappe habe ich das Makro nicht verändert stehe jetzt aber vor der Herausforderung dass jedes Mal nach dlg.Execute
Excel in völlig andere Tabellenblätter springt und da die verschiedensten Fehler erzeugt.
Nun meine eigentlich Frage: Werden bei der Speicherung der Arbeitsmappe auch bestimmte Ereignisse in anderen Tabellenblättern ausgelöst? Ich habe auch schon versucht mit Application.EnableEvents zu arbeiten aber leider ohne Erfolg. Habt Ihr noch andere Ideen woran das liegen könnte?
Ich habe auch in der neuen Arbeitsmappe per Einzelschritt debuggt - aber was (welches Tabellenblatt/ welche Zelle) angesprochen werden und wieso ist mir völlig rätselhaft!
Wenn Ihr noch weitere Infos braucht, bitte einfach melden!
Vielen Dank schon mal vorab für Eure Hilfe!
Viele Grüße
Gunnar