Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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, 3681 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
Verschlüsselung & Zertifikate
gelöst Wo werden die Schlüssel bei CloneZilla live gespeichert (6)

Frage von NISS60 zum Thema Verschlüsselung & Zertifikate ...

Windows Tools
gelöst BitLocker - Wiederherstellungsschlüssel werden nicht im AD gespeichert (20)

Frage von emeriks zum Thema Windows Tools ...

PHP
WebShop direkt in PHP aufrufen ohne Webserver (9)

Frage von StefanKittel zum Thema PHP ...

Microsoft
Virtuelle Maschine hängt in gespeicherten Status (2)

Frage von Philbo69 zum Thema Microsoft ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Linux Desktop
Bildschirmauflösung unter Linux festlegen (12)

Frage von itebob zum Thema Linux Desktop ...

Windows Userverwaltung
gelöst Administrator hat alle Rechte verloren (10)

Frage von mrdead zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
Gebäude mit WLAN ausstatten (9)

Frage von udobec zum Thema LAN, WAN, Wireless ...

Windows Server
Kennwort vergessen bei Hyper vserver 2012r (9)

Frage von jensgebken zum Thema Windows Server ...