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, 3633 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Windows 10
Windows 10 Updates sollen kleiner werden (4)

Link von Looser27 zum Thema Windows 10 ...

Outlook & Mail
Outlook 2010 Suche - Anhänge sollen nicht mitgesucht werden (2)

Frage von staybb zum Thema Outlook & Mail ...

Windows Server
Word Schnellbausteine werden nicht gespeichert (3)

Frage von manuelw zum Thema Windows Server ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (18)

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

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...

Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...