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

Aktuelles Tabellenblatt automatisch ausdrucken mit vbs

Frage Microsoft Microsoft Office

Mitglied: Spacewonder

Spacewonder (Level 1) - Jetzt verbinden

31.12.2014, aktualisiert 02.01.2015, 1966 Aufrufe, 2 Kommentare

Hallo

das Thema war glaube ich schon mal hier besprochen worden. Doch die richtige Antwort war so richtig nicht dabei.

Ich muss meine Arbeitszeiten pflegen und habe mir dafür eine Excelmappe erstellt für jeden Monat ein Tabellenblatt, beschriftet mit Januar usw. bis Dezember. Nun ist mein Ziel immer das aktuelle
Tabellenblatt nur auszudrucken mit hilfe des Taskplaner in Windows.

Meine bissherige VBS-Datei sieht so aus:

__________________________________________________________________________________________________________________________________________________________________

' Excel (versteckt) öffnen
Set appXLS = CreateObject("Excel.Application")

' Workbook (versteckt) und schreibgeschützt öffnen
Set wbkXLS = appXLS.Workbooks.Open("C:\Users\Wunder\Datenaustausch\Arbeitszeit Wunder 2015.xlsx", , True)
' Tabelle1 ausdrucken
wbkXLS.sheets("Januar").PrintOut
' Workbook speichern
wbkxls.Saved = True
' Workbook schließen
wbkXLS.Close

Set wbkXLS = Nothing
appXLS.Quit
Set appXLS = Nothing
___________________________________________________________________________________________________________________________________________________________________

habe diesen Code bis jetzt gearbeitet und funktioniert. Dabei muss ich jeden Monat immer diese Datei ändern und den Monat ändern. Die Tabelle wird täglich bearbeitet und soll nur noch am Wochenende das aktuelle
Tabellenblatt mit dem Aktuellen Monat ausdrucken.

Was Muss ich verändern?

Gruß Ralph
Mitglied: 114757
LÖSUNG 31.12.2014, aktualisiert 02.01.2015
Moin Ralph,
entweder so
01.
wbkXLS.sheets(MonthName(Month(date))).PrintOut
oder auch so via Index, wenn es insgesamt nur 12 sheets sind (1 =Januar bis 12=Dezember)
01.
wbkXLS.sheets(Month(date)).PrintOut
Gruß jodel32
Bitte warten ..
Mitglied: Spacewonder
02.01.2015 um 13:09 Uhr
Danke jodel32 hat funktioniert.

Gruß Ralph
Bitte warten ..
Neuester Wissensbeitrag
Heiß diskutierte Inhalte
Linux
gelöst Boot failed: not a bootable disk (10)

Frage von Fleckmen zum Thema Linux ...

Windows Server
Probleme mit Client Software Zugriff auf Windows Server 2012 (8)

Frage von it-kolli zum Thema Windows Server ...

Multimedia & Zubehör
gelöst Iphone 6 prob (8)

Frage von jensgebken zum Thema Multimedia & Zubehör ...

Windows Installation
Eine etwas (wirklich) speziellere Frage: Windows 10-Installation über (7)

Frage von DerFurrer zum Thema Windows Installation ...