Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 3662 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 Tools
gelöst BitLocker - Wiederherstellungsschlüssel werden nicht im AD gespeichert (20)

Frage von emeriks zum Thema Windows Tools ...

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

Frage von Philbo69 zum Thema Microsoft ...

Batch & Shell
gelöst Powershell: CMD Kommando mit Parameter aufrufen (8)

Frage von bonnerjung zum Thema Batch & Shell ...

Batch & Shell
gelöst Parameter für plink-Aufruf (4)

Frage von trobonarf zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
CNC Maschinen verlieren Netzwerkverbindung (kurioser Fehler) (22)

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

Drucker und Scanner
Erfahrungen mit Enterprise-Tintenstrahldruckern A4 und A3 (14)

Frage von User1000 zum Thema Drucker und Scanner ...

Webentwicklung
Aktuellen Mitarbeiter auf Homepage anzeigen (13)

Frage von alemanne21 zum Thema Webentwicklung ...