Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Aufrufe in DieseArbeitsmappe sollen nicht gespeichert werden.

Frage Entwicklung VB for Applications

Mitglied: Landstreicher

Landstreicher (Level 1) - Jetzt verbinden

12.09.2008, aktualisiert 09.10.2008, 3689 Aufrufe, 3 Kommentare

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.

01.
Private Sub Workbook_Open() 
02.
Application.Run "sig_perf_d_auto.xls!auswertung" 
03.
ThisWorkbook.Close SaveChanges:=False 
04.
Application.Quit 
05.
End Sub
nun will ich aber das beim Speichern (siehe code) das was sich unter "DieseArbeitsmappe" verschwindet.

01.
Sub save_xls() 
02.
 
03.
Dim filename As String 
04.
filename = datestamp & ".xls" 
05.
 
06.
ActiveWorkbook.SaveAs filename:=savedir & filename, _ 
07.
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ 
08.
        ReadOnlyRecommended:=False, CreateBackup:=False 
09.
         
10.
End Sub
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
Mitglied: bastla
17.09.2008 um 14:17 Uhr
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:
01.
If ThisWorkbook.Sheets("Tabelle1").Range("L2").Value = "" Then Application.Run "sig_perf_d_auto.xls!auswertung"
und im "save_xls()" dann
01.
ThisWorkbook.Sheets("Tabelle1").Range("L2").Value = " "
Grüße
bastla
Bitte warten ..
Mitglied: Landstreicher
09.10.2008 um 15:56 Uhr
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.

01.
Private Sub Workbook_Open() 
02.
Application.Run "sig_perf_d_auto.xls!auswertung" 
03.
ThisWorkbook.Close SaveChanges:=False 
04.
Application.Quit 
05.
End Sub
wenn man das diagramm dann öffnet debuggt er natürlich

gruß Landstreicher
Bitte warten ..
Mitglied: Landstreicher
09.10.2008 um 15:59 Uhr
gibt es eine andere möglichkeit dieses automatisch laufen zu lassen ggf. ohne den code ?
Bitte warten ..
Ähnliche Inhalte
Windows Netzwerk
Nicht berechtigte Netzlaufwerke sollen nicht angezeigt werden
gelöst Frage von samet22Windows Netzwerk9 Kommentare

Hallo liebe Leute, Ich habe ein Logon Script in welchem einige Zeilen stehen: net use X: \\server\freigabe1 net use ...

JavaScript
Zweiter Aufruf einer Funktion unterbricht ersten Aufruf
gelöst Frage von BadgerJavaScript6 Kommentare

Hallo Leute, ich habe folgendes Problem: Ich habe eine JS Funktion welche dann eine jQuery ajax Funktion aufruft Soweit ...

Windows Server
Word Schnellbausteine werden nicht gespeichert
Frage von manuelwWindows Server3 Kommentare

Hallo, ich habe bei einem unserer Kunden das Problem, dass die im Word angelegten Schnellbausteine nicht gesichert werden. Es ...

Windows 10
Was wird in diesem Windows 10 Verzeichnis gespeichert?
Frage von cableguy007Windows 107 Kommentare

Hallo, bei einem Windows 10 System habe ich in folgendem Verzeichnis Dateien mit Endung TMP entdeckt, die ca. 20 ...

Neue Wissensbeiträge
Microsoft Office

Deaktivieren von Startbildschirm und Backstage-Ansicht in Office 2016 per Batch-Datei

Anleitung von SarekHL vor 1 StundeMicrosoft Office2 Kommentare

Guten Morgen zusammen! Ich habe mir gestern (auch mit Hilfe dieses Boards) ein Script gebastelt, um in Office 2016 ...

Erkennung und -Abwehr

Sicherheitslücke Spectre und Meltdown: Status prüfen

Anleitung von Frank vor 7 StundenErkennung und -Abwehr2 Kommentare

Nach all den Updates der letzten Woche sollte man unbedingt auch den Status prüfen, ob die Sicherheitslücken Spectre, Meltdown ...

Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 1 TagMicrosoft Office9 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 1 TagDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner15 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...

iOS
Einladung vom iphone kalender
Frage von jensgebkeniOS15 Kommentare

Hallo Gemeinschaft, folgendes Problem - immer wenn ich von meinem Iphone einen Termin einztrage und diesem Termin Teilnehmer zuweise, ...

Batch & Shell
Dateien verschieben mit batch
gelöst Frage von michi-ffmBatch & Shell13 Kommentare

Hallo Zusammen hat jemand evtl eine Idee? Zunächst hier das Skript: Leider werden keine UNC-Pfade unterstüzt, kann mir jemand ...