3
Aufrufe in DieseArbeitsmappe sollen nicht gespeichert werden.
Hallo Zusammen,
ich habe eine Excel-Datei in der sich einige Makros befinden welche beim Start dieser Excel-Datei automatisch ausführen.
Das habe ich einfach mit "DieseArbeitsmappe" und dem einfügen folgender Kommandos erledigt.
nun will ich aber das beim Speichern (siehe code) das was sich unter "DieseArbeitsmappe" verschwindet.
kann mir da jemand helfen ?
Der Rest der Excel-Datei kann so bleiben nnur das was unter "DieseArbeitsmappe" steht musst in der gesavten Datei raus sein, da diese später nochmals aufgerufen wird und dann aufgrund des anderen Namens debuggt.
Gruß Landstreicher
ich habe eine Excel-Datei in der sich einige Makros befinden welche beim Start dieser Excel-Datei automatisch ausführen.
Das habe ich einfach mit "DieseArbeitsmappe" und dem einfügen folgender Kommandos erledigt.
Private Sub Workbook_Open()
Application.Run "sig_perf_d_auto.xls!auswertung"
ThisWorkbook.Close SaveChanges:=False
Application.Quit
End Subnun will ich aber das beim Speichern (siehe code) das was sich unter "DieseArbeitsmappe" verschwindet.
Sub save_xls()
Dim filename As String
filename = datestamp & ".xls"
ActiveWorkbook.SaveAs filename:=savedir & filename, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Subkann mir da jemand helfen ?
Der Rest der Excel-Datei kann so bleiben nnur das was unter "DieseArbeitsmappe" steht musst in der gesavten Datei raus sein, da diese später nochmals aufgerufen wird und dann aufgrund des anderen Namens debuggt.
Gruß Landstreicher
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 96795
Url: https://administrator.de/forum/aufrufe-in-diesearbeitsmappe-sollen-nicht-gespeichert-werden-96795.html
Ausgedruckt am: 25.12.2024 um 14:12 Uhr
3 Kommentare
Neuester Kommentar
Hallo Landstreicher!
Da es ja offensichtlich darum geht, das "Application.Run" nicht bei jedem Starten ausführen zu lassen, könntest Du es ja vielleicht von einer Bedingung (Dateiname, Inhalt einer Zelle, ...) abhängig machen, etwa:
und im "save_xls()" dann
Grüße
bastla
Da es ja offensichtlich darum geht, das "Application.Run" nicht bei jedem Starten ausführen zu lassen, könntest Du es ja vielleicht von einer Bedingung (Dateiname, Inhalt einer Zelle, ...) abhängig machen, etwa:
If ThisWorkbook.Sheets("Tabelle1").Range("L2").Value = "" Then Application.Run "sig_perf_d_auto.xls!auswertung" ThisWorkbook.Sheets("Tabelle1").Range("L2").Value = " " Grüße
bastla
Hallo Bastla,
nicht ganz ...
sig_perf_d_auto.xls soll automatisch laufen ... erzeugt aber ein diagramm <aktuelles datum.xls> welches dann nach dem wegschreiben diesen code noch im bauch hat.
wenn man das diagramm dann öffnet debuggt er natürlich
gruß Landstreicher
nicht ganz ...
sig_perf_d_auto.xls soll automatisch laufen ... erzeugt aber ein diagramm <aktuelles datum.xls> welches dann nach dem wegschreiben diesen code noch im bauch hat.
Private Sub Workbook_Open()
Application.Run "sig_perf_d_auto.xls!auswertung"
ThisWorkbook.Close SaveChanges:=False
Application.Quit
End Subwenn man das diagramm dann öffnet debuggt er natürlich
gruß Landstreicher
gibt es eine andere möglichkeit dieses automatisch laufen zu lassen ggf. ohne den code ?
