gelöst Excel neuestes Tabellenblatt jeden Montag automatisch drucken
lordofremixes (Level 2) - Jetzt verbinden
08.11.2011, aktualisiert 11:29 Uhr, 7357 Aufrufe, 30 Kommentare
Excel Problem automatisches drucken des aktuellsten Tabellenblatts
Hallo zusammen,
stehe vor folgendem Problem. Ich habe eine Excel Datei, in der jeden Freitag ein neuen Tabellenblatt hinzugefügt (KW 41, dann KW 42 usw..) in der die Aufträge der jeweiligen KW drin steht
Ich brauche eine Batch oder ein Makro, das von dieser Datei jeden Montag morgen das neuste Tabellenblatt automatisch ausdruckt.
Habe die vbs soweit, das Problem ist , ich weiß nicht ob der Ansatz so richtig ist und vorallem wie bekomme ich es hin, das er automatisch immer nur das aktuellste Tabellenblatt druckt : (z.B. nur KW 42)`?
Die vbs würde ich dann in den Taskplaner eintragen (ZB Montag 06.00 Uhr) und wenn ich dann in das Geschäft komme, liegen die Aufträge der aktuellen KW schon bereit im Drucker.
Weiß irgendjemand wie man soetwas umsetzen kann?
so weit bin ich gekommen:
' Datei mit einem normale Editor anlegen
' Dateiendung .VBS
' Excel (versteckt) öffnen
Set appXLS = CreateObject("Excel.Application")
' Workbook (versteckt) und schreibgeschützt öffnen
Set wbkXLS = appXLS.Workbooks.Open("C:\auftragstabelle.xls", , True)
' Tabelle1 ausdrucken
wbkXLS.sheets("Tabelle1").PrintOut
' Workbook schließen
wbkXLS.Close
Set wbkXLS = Nothing
appXLS.Quit
Set appXLS = Nothing
Gruß + Danke
lordofremixes
stehe vor folgendem Problem. Ich habe eine Excel Datei, in der jeden Freitag ein neuen Tabellenblatt hinzugefügt (KW 41, dann KW 42 usw..) in der die Aufträge der jeweiligen KW drin steht
Ich brauche eine Batch oder ein Makro, das von dieser Datei jeden Montag morgen das neuste Tabellenblatt automatisch ausdruckt.
Habe die vbs soweit, das Problem ist , ich weiß nicht ob der Ansatz so richtig ist und vorallem wie bekomme ich es hin, das er automatisch immer nur das aktuellste Tabellenblatt druckt : (z.B. nur KW 42)`?
Die vbs würde ich dann in den Taskplaner eintragen (ZB Montag 06.00 Uhr) und wenn ich dann in das Geschäft komme, liegen die Aufträge der aktuellen KW schon bereit im Drucker.
Weiß irgendjemand wie man soetwas umsetzen kann?
so weit bin ich gekommen:
' Datei mit einem normale Editor anlegen
' Dateiendung .VBS
' Excel (versteckt) öffnen
Set appXLS = CreateObject("Excel.Application")
' Workbook (versteckt) und schreibgeschützt öffnen
Set wbkXLS = appXLS.Workbooks.Open("C:\auftragstabelle.xls", , True)
' Tabelle1 ausdrucken
wbkXLS.sheets("Tabelle1").PrintOut
' Workbook schließen
wbkXLS.Close
Set wbkXLS = Nothing
appXLS.Quit
Set appXLS = Nothing
Gruß + Danke
lordofremixes
30 Antworten
- LÖSUNG bastla schreibt am 08.11.2011 um 13:13:16 Uhr
- LÖSUNG lordofremixes schreibt am 09.11.2011 um 18:07:04 Uhr
- LÖSUNG bastla schreibt am 09.11.2011 um 18:16:18 Uhr
- LÖSUNG lordofremixes schreibt am 09.11.2011 um 18:39:47 Uhr
- LÖSUNG lordofremixes schreibt am 09.11.2011 um 18:49:24 Uhr
- LÖSUNG bastla schreibt am 09.11.2011 um 19:57:04 Uhr
- LÖSUNG lordofremixes schreibt am 09.11.2011 um 20:06:03 Uhr
- LÖSUNG bastla schreibt am 09.11.2011 um 20:11:42 Uhr
- LÖSUNG lordofremixes schreibt am 09.11.2011 um 20:42:53 Uhr
- LÖSUNG lordofremixes schreibt am 13.12.2011 um 14:39:28 Uhr
- LÖSUNG bastla schreibt am 13.12.2011 um 15:29:51 Uhr
- LÖSUNG lordofremixes schreibt am 14.12.2011 um 08:27:10 Uhr
- LÖSUNG bastla schreibt am 14.12.2011 um 09:42:34 Uhr
- LÖSUNG lordofremixes schreibt am 14.12.2011 um 11:35:02 Uhr
- LÖSUNG bastla schreibt am 14.12.2011 um 11:40:57 Uhr
- LÖSUNG lordofremixes schreibt am 14.12.2011 um 12:49:55 Uhr
- LÖSUNG lordofremixes schreibt am 14.12.2011 um 13:11:56 Uhr
- LÖSUNG bastla schreibt am 14.12.2011 um 19:29:33 Uhr
- LÖSUNG lordofremixes schreibt am 15.12.2011 um 09:54:30 Uhr
- LÖSUNG bastla schreibt am 15.12.2011 um 11:25:42 Uhr
- LÖSUNG lordofremixes schreibt am 20.12.2011 um 10:02:03 Uhr
- LÖSUNG bastla schreibt am 20.12.2011 um 13:06:10 Uhr
- LÖSUNG lordofremixes schreibt am 21.12.2011 um 09:01:24 Uhr
- LÖSUNG bastla schreibt am 21.12.2011 um 12:41:16 Uhr
- LÖSUNG lordofremixes schreibt am 21.12.2011 um 09:01:24 Uhr
- LÖSUNG bastla schreibt am 20.12.2011 um 13:06:10 Uhr
- LÖSUNG lordofremixes schreibt am 20.12.2011 um 10:02:03 Uhr
- LÖSUNG bastla schreibt am 15.12.2011 um 11:25:42 Uhr
- LÖSUNG lordofremixes schreibt am 15.12.2011 um 09:54:30 Uhr
- LÖSUNG bastla schreibt am 14.12.2011 um 19:29:33 Uhr
- LÖSUNG bastla schreibt am 14.12.2011 um 11:40:57 Uhr
- LÖSUNG lordofremixes schreibt am 14.12.2011 um 11:35:02 Uhr
- LÖSUNG bastla schreibt am 14.12.2011 um 09:42:34 Uhr
- LÖSUNG lordofremixes schreibt am 14.12.2011 um 08:27:10 Uhr
- LÖSUNG bastla schreibt am 13.12.2011 um 15:29:51 Uhr
- LÖSUNG bastla schreibt am 09.11.2011 um 20:11:42 Uhr
- LÖSUNG lordofremixes schreibt am 09.11.2011 um 20:06:03 Uhr
- LÖSUNG bastla schreibt am 09.11.2011 um 19:57:04 Uhr
- LÖSUNG bastla schreibt am 09.11.2011 um 18:16:18 Uhr
- LÖSUNG lordofremixes schreibt am 09.11.2011 um 18:07:04 Uhr
- LÖSUNG Jochem schreibt am 08.11.2011 um 14:48:26 Uhr
- LÖSUNG bastla schreibt am 08.11.2011 um 15:35:47 Uhr
- LÖSUNG Jochem schreibt am 08.11.2011 um 16:03:58 Uhr
- LÖSUNG bastla schreibt am 08.11.2011 um 16:51:54 Uhr
- LÖSUNG Jochem schreibt am 08.11.2011 um 17:04:35 Uhr
- LÖSUNG bastla schreibt am 08.11.2011 um 16:51:54 Uhr
- LÖSUNG Jochem schreibt am 08.11.2011 um 16:03:58 Uhr
- LÖSUNG lordofremixes schreibt am 09.11.2011 um 18:10:54 Uhr
- LÖSUNG bastla schreibt am 08.11.2011 um 15:35:47 Uhr
LÖSUNG 08.11.2011 um 13:13 Uhr
Hallo lordofremixes!
Unter der Annahme, dass die Benennung konsequent (also immer mit Leerzeichen vor der Wochennummer) erfolgt, könntest Du das Blatt mit der höchsten Nummer so finden:
Grüße
bastla
P.S.: Verwende doch bitte "Code"-Formatierung ...
Unter der Annahme, dass die Benennung konsequent (also immer mit Leerzeichen vor der Wochennummer) erfolgt, könntest Du das Blatt mit der höchsten Nummer so finden:
01.
...
02.
Aktuell = 0
03.
Pre = "KW "
04.
For Each Blatt In wbkXLS.Worksheets()
05.
BN = Blatt.Name
06.
If Left(BN, Len(Pre)) = Pre Then
07.
Woche = CInt(Split(BN)(1))
08.
If Woche > Aktuell Then Aktuell = Woche
09.
End If
10.
Next
11.
12.
wbkXLS.Worksheets(Pre & Aktuell).PrintOut
13.
...bastla
P.S.: Verwende doch bitte "Code"-Formatierung ...
LÖSUNG 08.11.2011 um 14:48 Uhr
Moin,
mal gesetzt den Fall, daß das neue Tabellenblatt immer mit "KW " und der Kalenderwoche benannt ist, dann könnte folgende Vorgehensweise zielführend sein:
- über die Excel-Funktion (Kalenderwoche) die aktuelle Kalenderwoche herausfinden
- über die Excel-Funktion (Wochentag) den aktuellen Wochentag herausfinden
- über die Excel-Funktion (Rechts) die letzten beiden Stellen des Tabellenblattnamens herausfinden
- wenn nun die letzten beiden Stellen des Tabellenblattnamens gleich der Kalenderwoche sind und zusätzlich der Wochentag noch ein Montag, dann soll das Tabellenblatt mit dem Namen "KW xx" gedruckt werden.
- das ganze als Autostart-Makros sollte dann funktionieren.
Gruß J chem
mal gesetzt den Fall, daß das neue Tabellenblatt immer mit "KW " und der Kalenderwoche benannt ist, dann könnte folgende Vorgehensweise zielführend sein:
- über die Excel-Funktion (Kalenderwoche) die aktuelle Kalenderwoche herausfinden
- über die Excel-Funktion (Wochentag) den aktuellen Wochentag herausfinden
- über die Excel-Funktion (Rechts) die letzten beiden Stellen des Tabellenblattnamens herausfinden
- wenn nun die letzten beiden Stellen des Tabellenblattnamens gleich der Kalenderwoche sind und zusätzlich der Wochentag noch ein Montag, dann soll das Tabellenblatt mit dem Namen "KW xx" gedruckt werden.
- das ganze als Autostart-Makros sollte dann funktionieren.
Gruß J chem
LÖSUNG 08.11.2011 um 15:35 Uhr
LÖSUNG 08.11.2011 um 16:51 Uhr
Hallo Jochem!
Aber im Ernst - wie sollte denn Dein Script gestartet, bzw wie sollte die Excel-Datei automatisch geöffnet werden, damit sich
Grüße
bastla
viele Wege führen nach Rom ...
Wenn er aber nach Wanne-Eickel will ... Aber im Ernst - wie sollte denn Dein Script gestartet, bzw wie sollte die Excel-Datei automatisch geöffnet werden, damit sich
wenn ich dann in das Geschäft komme, liegen die Aufträge der aktuellen KW schon bereit im Drucker.
realisieren lässt?Grüße
bastla
LÖSUNG 08.11.2011 um 17:04 Uhr
Moin bastla,
das sind für mich zwei Paar Schuhe: zum einen den Ausdruck starten und zum anderen das richtige Tabellenblatt finden.
Zu 1) ist sicherlich ein geplanter Task sinnvoll, der das Tabellenblatt druckt
Zu 2) ist m.M.n. das Autostart-Makro sinnvoll (liegt wahrscheinlich daran, daß ich mit vbs nix anfangen kann und daher lieber auf das zurückgreife, von dem ich meine, es zu können).
Gruß J chem
das sind für mich zwei Paar Schuhe: zum einen den Ausdruck starten und zum anderen das richtige Tabellenblatt finden.
Zu 1) ist sicherlich ein geplanter Task sinnvoll, der das Tabellenblatt druckt
Zu 2) ist m.M.n. das Autostart-Makro sinnvoll (liegt wahrscheinlich daran, daß ich mit vbs nix anfangen kann und daher lieber auf das zurückgreife, von dem ich meine, es zu können).
Gruß J chem
LÖSUNG 09.11.2011 um 18:07 Uhr
Hallo bastla,
danke für die schnelle Antwort.
Ist das dann die komplette vbs Datei, denke mal nicht ?
Und wenn doch, was ist mit meinem Quellcode den ich oben gepostet habe? Muss ich den noch anfügen oder wie genau läuft das`?
Das mit der KW davor lässt sich einrichten? Soll dann jedes Tabellenblatt so benamt sein: KW 43 , rechts daneben dann KW 44 ? Geht au irgendwie KW 44/2011 ? (wenn nicht auch nicht schlimm?
Gruß
lordofremixes
danke für die schnelle Antwort.
Ist das dann die komplette vbs Datei, denke mal nicht ?
Und wenn doch, was ist mit meinem Quellcode den ich oben gepostet habe? Muss ich den noch anfügen oder wie genau läuft das`?
Das mit der KW davor lässt sich einrichten? Soll dann jedes Tabellenblatt so benamt sein: KW 43 , rechts daneben dann KW 44 ? Geht au irgendwie KW 44/2011 ? (wenn nicht auch nicht schlimm?
Gruß
lordofremixes
LÖSUNG 09.11.2011 um 18:10 Uhr
Hallo jochem,
die Vorgehensweise ist einleuchtend, aber umsetzen könnte ich das nicht. Kein Plan wie man sowas auf die schnelle programmieren kann.
Danke trotzdem für die Antwort
Gruß
lordofremixes
die Vorgehensweise ist einleuchtend, aber umsetzen könnte ich das nicht. Kein Plan wie man sowas auf die schnelle programmieren kann.
Danke trotzdem für die Antwort
Gruß
lordofremixes
LÖSUNG 09.11.2011 um 18:16 Uhr
Hallo lordofremixes!
Mein Stückchen Code soll nur aus allen Tabellenblättern, die mit "KW" + Leerzeichen beginnen, jenes mit der höchsten Wochennummer suchen und den Ausdruck vornehmen - es ersetzt daher nur Deine bisherige Zeile
Grüße
bastla
Mein Stückchen Code soll nur aus allen Tabellenblättern, die mit "KW" + Leerzeichen beginnen, jenes mit der höchsten Wochennummer suchen und den Ausdruck vornehmen - es ersetzt daher nur Deine bisherige Zeile
wbkXLS.sheets("Tabelle1").PrintOutGeht au irgendwie KW 44/2011
Besser wäre "KW 2012/01"(Woche immer zweistellig) - dann könnte einfach der Teil nach dem Leerzeichen als String verglichen werden - der (ungetestete) Code dazu sähe dann so aus:01.
...
02.
Aktuell = ""
03.
Pre = "KW "
04.
For Each Blatt In wbkXLS.Worksheets()
05.
BN = Blatt.Name
06.
If Left(BN, Len(Pre)) = Pre Then
07.
Woche = Split(BN)(1)
08.
If Woche > Aktuell Then Aktuell = Woche
09.
End If
10.
Next
11.
12.
MsgBox "Neuestes Blatt: " & Pre & Altuell 'nur zum Testen
13.
wbkXLS.Worksheets(Pre & Aktuell).PrintOut
14.
...bastla
LÖSUNG 09.11.2011 um 18:39 Uhr
Hallo Bastla,
man kann KW 2012/01 in ein Tabellenblatt reinschreiben, es geht kein / und kein \. Nehme jetzt zum Testen KW 2012-01.
Gruß
LordofRemixes
man kann KW 2012/01 in ein Tabellenblatt reinschreiben, es geht kein / und kein \. Nehme jetzt zum Testen KW 2012-01.
Gruß
LordofRemixes
LÖSUNG 09.11.2011 um 18:49 Uhr
Hallo bastla,
nach Ausführung diesen Codes :
kommt Windows Script Host Fehlermeldung
Skript: C:\excel\excel_letzte_KW.vbs in Zeile 10, Zeichen 1, Fehler: Das Objekt unterstützt diese Eigenschaft oder Methode nicht 'wbkXLS.Worksheets' Code 800A01B6 .
Weißt du wieso dieser Fehler kommt?
Gruß
lordofremixes
nach Ausführung diesen Codes :
01.
'Datei mit einem normale Editor anlegen
02.
' Dateiendung .VBS
03.
' Excel (versteckt) öffnen
04.
Set appXLS = CreateObject("Excel.Application")
05.
' Workbook (versteckt) und schreibgeschützt öffnen
06.
Set wbkXLS = appXLS.Workbooks.Open("C:\excel\auftrag.xls", , True)
07.
'Tabelle1 ausdrucken
08.
Aktuell = ""
09.
Pre = "KW "
10.
For Each Blatt In wbkXLS.Worksheets()
11.
BN = Blatt.Name
12.
If Left(BN, Len(Pre)) = Pre Then
13.
Woche = Split(BN)(1)
14.
If Woche > Aktuell Then Aktuell = Woche
15.
End If
16.
Next
17.
MsgBox "Neuestes Blatt: " & Pre & Aktuell
18.
'nur zum Testen
19.
wbkXLS.Worksheets(Pre & Aktuell).PrintOut
20.
' Workbook schließen
21.
wbkXLS.Close
22.
Set wbkXLS = Nothing
23.
appXLS.Quit
24.
Set appXLS = NothingSkript: C:\excel\excel_letzte_KW.vbs in Zeile 10, Zeichen 1, Fehler: Das Objekt unterstützt diese Eigenschaft oder Methode nicht 'wbkXLS.Worksheets' Code 800A01B6 .
Weißt du wieso dieser Fehler kommt?
Gruß
lordofremixes
LÖSUNG 09.11.2011 um 19:57 Uhr
Hallo lordofremixes!
VBS mag die Klammern nach "wbkXLS.Worksheets" nicht - lass die mal weg ...
Grüße
bastla
VBS mag die Klammern nach "wbkXLS.Worksheets" nicht - lass die mal weg ...
Grüße
bastla
LÖSUNG 09.11.2011 um 20:06 Uhr
Hallo bastla,
das läuft einwandfrei, außer...
Habe "KW 2007-08" und "KW2008-08" , das Jahr wird nicht untersucht und er druckt KW2007-08.
Hast du da noch irgendwie ne Idee?
Gruß
lordofremixes
das läuft einwandfrei, außer...
Habe "KW 2007-08" und "KW2008-08" , das Jahr wird nicht untersucht und er druckt KW2007-08.
Hast du da noch irgendwie ne Idee?
Gruß
lordofremixes
LÖSUNG 09.11.2011 um 20:11 Uhr
Hallo lordofremixes!
Grüße
bastla
Hast du da noch irgendwie ne Idee?
Mach mal vor 2008 ein Leerzeichen ... Grüße
bastla
LÖSUNG 09.11.2011 um 20:42 Uhr
Hallo bastla,
haha das wars , hab nach KW das Leerzeichen vergessen
Coole Sache, ist echt ne schöne Sache. ich teste es wenn ich wieder am richtigen pc bei einer excel datei mit ca. 180 mb.
Werde dir dann Bescheid geben und die Frage lösen. Danke schonmal für die Hife.
Gruß
lordofremixes
haha das wars , hab nach KW das Leerzeichen vergessen
Coole Sache, ist echt ne schöne Sache. ich teste es wenn ich wieder am richtigen pc bei einer excel datei mit ca. 180 mb.
Werde dir dann Bescheid geben und die Frage lösen. Danke schonmal für die Hife.
Gruß
lordofremixes
LÖSUNG 13.12.2011 um 14:39 Uhr
Hallo bastla,
ich habe den Code jetzt schon im Einsatz und es läuft wunderbar.
Jetzt habe ich eine Frage um das Programm auszuweiten.
Kann ich oben bei Zeile 6:
Set wbkXLS = appXLS.Workbooks.Open("C:\excel\auftrag.xls", , True)
Auch mehrere Dateien angeben z.B. auftrag.xls, auftrag2.xls usw.. und wie oder wo gebe ich das ein?
Gruß
lordofremixes
ich habe den Code jetzt schon im Einsatz und es läuft wunderbar.
Jetzt habe ich eine Frage um das Programm auszuweiten.
Kann ich oben bei Zeile 6:
Set wbkXLS = appXLS.Workbooks.Open("C:\excel\auftrag.xls", , True)
Auch mehrere Dateien angeben z.B. auftrag.xls, auftrag2.xls usw.. und wie oder wo gebe ich das ein?
Gruß
lordofremixes
LÖSUNG 13.12.2011 um 15:29 Uhr
Hallo lordofremixes!
Da musst Du eigentlich nur ein Schleifchen um die Verabeitung der einzelnen Datei wickeln - ungetestet etwa so:
Grüße
bastla
Da musst Du eigentlich nur ein Schleifchen um die Verabeitung der einzelnen Datei wickeln - ungetestet etwa so:
01.
Dateien = Array("C:\excel\auftrag.xls", "C:\excel\auftrag2.xls", "C:\excel\auftrag3.xls") 'zu verarbeitende Dateien
02.
03.
' Excel (versteckt) öffnen
04.
Set appXLS = CreateObject("Excel.Application")
05.
06.
For Each Datei In Dateien
07.
' Workbook (versteckt) und schreibgeschützt öffnen
08.
Set wbkXLS = appXLS.Workbooks.Open(Datei, , True)
09.
'Tabelle1 ausdrucken
10.
Aktuell = ""
11.
Pre = "KW "
12.
For Each Blatt In wbkXLS.Worksheets()
13.
BN = Blatt.Name
14.
If Left(BN, Len(Pre)) = Pre Then
15.
Woche = Split(BN)(1)
16.
If Woche > Aktuell Then Aktuell = Woche
17.
End If
18.
Next
19.
MsgBox "Neuestes Blatt: " & Pre & Aktuell
20.
'nur zum Testen
21.
wbkXLS.Worksheets(Pre & Aktuell).PrintOut
22.
' Workbook schließen
23.
wbkXLS.Close
24.
Next
25.
26.
Set wbkXLS = Nothing
27.
appXLS.Quit
28.
Set appXLS = Nothingbastla
LÖSUNG 14.12.2011 um 08:27 Uhr
Hallo bastla,
das funktioniert einwandfrei.. Danke !!
Jetzt hat der Mitarbeiter mich aber falsch informiert.
In seiner Exceldateien stehen schon die KW alle drin für das ganze Jahr.
Das heißt er hat schon KW 2012-01 bis KW 2012-55 drin stehn. (Hab eigentlich gedacht er erstellt jede Woche das Excelblatt neu, dem war nicht so).
Gibt es eine Möglichkeit, den Quellcode so zu verändern , das er nicht die letzte KW ausdruckt , sondern die aktuelle?
Gruß
lordofremixes
das funktioniert einwandfrei.. Danke !!
Jetzt hat der Mitarbeiter mich aber falsch informiert.
In seiner Exceldateien stehen schon die KW alle drin für das ganze Jahr.
Das heißt er hat schon KW 2012-01 bis KW 2012-55 drin stehn. (Hab eigentlich gedacht er erstellt jede Woche das Excelblatt neu, dem war nicht so).
Gibt es eine Möglichkeit, den Quellcode so zu verändern , das er nicht die letzte KW ausdruckt , sondern die aktuelle?
Gruß
lordofremixes
LÖSUNG 14.12.2011 um 09:42 Uhr
Hallo lordofremixes!
... genügt es, die Zeilen 12 bis 18 durch etwas in der Art
zu ersetzen ...
Grüße
bastla
Gibt es eine Möglichkeit, den Quellcode so zu verändern , das er nicht die letzte KW ausdruckt , sondern die aktuelle?
Wenn Du "aktuelle" (bzw "Berechnung KW") definieren kannst ...... genügt es, die Zeilen 12 bis 18 durch etwas in der Art
Aktuell = Berechnung KWGrüße
bastla
LÖSUNG 14.12.2011 um 11:35 Uhr
Hallo bastla,
was meinst du mit Berechnung KW definieren?
Ich meine damit die KW, die wir dann gerade haben.
Habe es ersetzt, es kommt aber der Fehler Anweisungsende erwartet Code 800A0401 in Zeile 10.
Gruß
lordofremixes
was meinst du mit Berechnung KW definieren?
Ich meine damit die KW, die wir dann gerade haben.
Habe es ersetzt, es kommt aber der Fehler Anweisungsende erwartet Code 800A0401 in Zeile 10.
Gruß
lordofremixes
LÖSUNG 14.12.2011 um 11:40 Uhr
Hallo lordofremixes!
Soferne das die verwendet Excel-Version kann (Stichwort: Funktion "KALENDERWOCHE()" verfügbar), etwa so:
Ansonsten findest Du zB hier eine Berechnungsmethode ...
Grüße
bastla
Soferne das die verwendet Excel-Version kann (Stichwort: Funktion "KALENDERWOCHE()" verfügbar), etwa so:
Aktuell = WorksheetFunction.WeekNum(Date)Grüße
bastla
LÖSUNG 14.12.2011 um 12:49 Uhr
Hallo bastla,
und das füge ich dann wie oben beschrieben in Zeile 12 bis 18 ein?
werde es gleich mal testen?
und das füge ich dann wie oben beschrieben in Zeile 12 bis 18 ein?
werde es gleich mal testen?
LÖSUNG 14.12.2011 um 13:11 Uhr
Hallo bastla,
sorry erstmal dass ich so viel frag.
ich habe folgenden code eingegeben:
Es kommt dann der Fehler Objekt erforderlich: WorksheetFunction Code 800A01A8.
Ich verstehe die Berechnungsmethode nicht.
Hoff du weißt da noch was.
Gruß
lordofremixes
sorry erstmal dass ich so viel frag.
ich habe folgenden code eingegeben:
01.
Dateien = Array("C:\excel\auftrag.xls", "C:\excel\auftrag2.xlsx") 'zu verarbeitende Dateien
02.
' Excel (versteckt) öffnen
03.
Set appXLS = CreateObject("Excel.Application")
04.
For Each Datei In Dateien
05.
' Workbook (versteckt) und schreibgeschützt öffnen
06.
Set wbkXLS = appXLS.Workbooks.Open(Datei, , True)
07.
'Tabelle1 ausdrucken
08.
Aktuell = ""
09.
Pre = "KW "
10.
Aktuell = WorksheetFunction.WeekNum(Date)
11.
MsgBox "Neuestes Blatt: " & Pre & Aktuell
12.
'nur zum Testen
13.
wbkXLS.Worksheets(Pre & Aktuell).PrintOut
14.
' Workbook schließen
15.
wbkXLS.Close
16.
Next
17.
Set wbkXLS = Nothing
18.
appXLS.Quit
19.
Set appXLS = NothingIch verstehe die Berechnungsmethode nicht.
Hoff du weißt da noch was.
Gruß
lordofremixes
LÖSUNG 14.12.2011 um 19:29 Uhr
Hallo lordofremixes!
Wie ich schon erwähnte: "Soferne das die verwendete Excel-Version kann" ...
... andererseits hatte ich doch einen Link angeboten (und von dort stammt die unten verwendete Berechnungsmethode) ...
Anyhow: So könnte das auch bei Dir klappen:
Grüße
bastla
Wie ich schon erwähnte: "Soferne das die verwendete Excel-Version kann" ...
... andererseits hatte ich doch einen Link angeboten (und von dort stammt die unten verwendete Berechnungsmethode) ...
Anyhow: So könnte das auch bei Dir klappen:
01.
Dateien = Array("C:\excel\auftrag.xls", "C:\excel\auftrag2.xlsx") 'zu verarbeitende Dateien
02.
Pre = "KW "
03.
kw = 4 + Date - Weekday(Date, 2)
04.
Aktuell = (kw - DateSerial(Year(kw), 1, -6)) \ 7
05.
06.
' Excel (versteckt) öffnen
07.
Set appXLS = CreateObject("Excel.Application")
08.
09.
For Each Datei In Dateien
10.
' Workbook (versteckt) und schreibgeschützt öffnen
11.
Set wbkXLS = appXLS.Workbooks.Open(Datei, , True)
12.
'Tabelle1 ausdrucken
13.
MsgBox "Neuestes Blatt: " & Pre & Aktuell
14.
'nur zum Testen
15.
wbkXLS.Worksheets(Pre & Aktuell).PrintOut
16.
' Workbook schließen
17.
wbkXLS.Close
18.
Next
19.
20.
Set wbkXLS = Nothing
21.
appXLS.Quit
22.
Set appXLS = Nothingbastla
LÖSUNG 15.12.2011 um 09:54 Uhr
Hallo bastla,
cool cool dass du dir noch Zeit nimmst für mein Problem. Find ich wirklich super von dir!!
Wenn ich dieses Script ausführe, kommt als Meldung : Neustes Blatt: KW 50 und wenn ich dann auf OK drücke kommt ein Fehler: Zeile 15, Zeichen 5, Fehler: Index außerhalb des gültigen Bereichs. Code 800A0009 Quelle Laufzeitfehler in Microsoft VBScript und gedruckt wird nichts.
Und welche Vorraussetzungen müssen erfüllt sein, damit das Script funktioniert Muss ich die Tabellenblätter dann trotzdem so benennen? Also KW 2012-06 oder muss ich sie anders benennen?
Gruß
lordofremixes
cool cool dass du dir noch Zeit nimmst für mein Problem. Find ich wirklich super von dir!!
Wenn ich dieses Script ausführe, kommt als Meldung : Neustes Blatt: KW 50 und wenn ich dann auf OK drücke kommt ein Fehler: Zeile 15, Zeichen 5, Fehler: Index außerhalb des gültigen Bereichs. Code 800A0009 Quelle Laufzeitfehler in Microsoft VBScript und gedruckt wird nichts.
Und welche Vorraussetzungen müssen erfüllt sein, damit das Script funktioniert Muss ich die Tabellenblätter dann trotzdem so benennen? Also KW 2012-06 oder muss ich sie anders benennen?
Gruß
lordofremixes
LÖSUNG 15.12.2011 um 11:25 Uhr
Hallo lordofremixes!
Der Tabellenblattname wird (wie ja auch in Zeile 13 ausgegeben wird) aus den Variableninhalten von "Pre" und "Aktuell" zusammengesetzt - daher ggf den Inhalt von "Pre" anpassen ...
... und falls tatsächlich führende Nullen (also "06" anstatt "6") für die Wochennummer gewünscht sind, anstelle von nur "Aktuell"
verwenden.
Grüße
bastla
Der Tabellenblattname wird (wie ja auch in Zeile 13 ausgegeben wird) aus den Variableninhalten von "Pre" und "Aktuell" zusammengesetzt - daher ggf den Inhalt von "Pre" anpassen ...
... und falls tatsächlich führende Nullen (also "06" anstatt "6") für die Wochennummer gewünscht sind, anstelle von nur "Aktuell"
Right("0" & Aktuell, 2)Grüße
bastla
LÖSUNG 20.12.2011 um 10:02 Uhr
Hallo bastla!
Ich häng immer noch an dem Script fest. Ich habe jetzt in der Exceldatei zum Testen ein Tabellenblatt mit KW 2011-51 eingefügt und darauf groß TEST geschrieben.
Es wird auch richtig erkannt.
Er bringt aber einen Fehler und druckt nichts aus.
Zeile 13, Zeichen 5. Index außerhalb des gültuigen Bereichs Code 800A0009
Verstehe diesen Fehler nicht, aber ich vermute das hier der Druckbefehl nicht richtig umgesetzt wird?
Gruß
lordofremixes
Ich häng immer noch an dem Script fest. Ich habe jetzt in der Exceldatei zum Testen ein Tabellenblatt mit KW 2011-51 eingefügt und darauf groß TEST geschrieben.
Es wird auch richtig erkannt.
Er bringt aber einen Fehler und druckt nichts aus.
01.
Dateien = Array("C:\excel\auftrag.xls") 'zu verarbeitende Dateien
02.
Pre = "KW "
03.
kw = 4 + Date - Weekday(Date, 2)
04.
Aktuell = (kw - DateSerial(Year(kw), 1, -6)) \ 7
05.
' Excel (versteckt) öffnen
06.
Set appXLS = CreateObject("Excel.Application")
07.
For Each Datei In Dateien
08.
' Workbook (versteckt) und schreibgeschützt öffnen
09.
Set wbkXLS = appXLS.Workbooks.Open(Datei, , True)
10.
'Tabelle1 ausdrucken
11.
MsgBox "Neuestes Blatt: " & Pre & Aktuell
12.
'nur zum Testen
13.
wbkXLS.Worksheets(Pre & Aktuell).PrintOut
14.
' Workbook schließen
15.
wbkXLS.Close
16.
Next
17.
Set wbkXLS = Nothing
18.
appXLS.Quit
19.
Set appXLS = NothingVerstehe diesen Fehler nicht, aber ich vermute das hier der Druckbefehl nicht richtig umgesetzt wird?
Gruß
lordofremixes
LÖSUNG 20.12.2011 um 13:06 Uhr
Hallo lordofremixes!
Wenn Dein Tabellenblatt "KW 2011-51" heißt - woher soll dann in der Zeile 13 die Jahreszahl kommen(in "Pre" ist sie genauso wenig enthalten wie in "Aktuell")? Auch in der Ausgabe der Zeile 11 dürfte ja eigentlich nurstehen ...
Grüße
bastla
Wenn Dein Tabellenblatt "KW 2011-51" heißt - woher soll dann in der Zeile 13 die Jahreszahl kommen(in "Pre" ist sie genauso wenig enthalten wie in "Aktuell")? Auch in der Ausgabe der Zeile 11 dürfte ja eigentlich nur
Neuestes Blatt: KW 51Grüße
bastla
LÖSUNG 21.12.2011 um 09:01 Uhr
Hallo bastla!!
ach gott ja. irgendwie stand ich da auf dem schlauch.
So eine ***.
Funktioniert einwandfrei !!
Man sollte sich den Code schon genauer anschauen!!
Was sagt diese Zeile eigentlich genauer aus?
Weekday(Date, 2) UND WARUM eigentlich 4 + date ?
gruß
lordofremixes
ach gott ja. irgendwie stand ich da auf dem schlauch.
So eine ***.
Funktioniert einwandfrei !!
Man sollte sich den Code schon genauer anschauen!!
Was sagt diese Zeile eigentlich genauer aus?
Weekday(Date, 2) UND WARUM eigentlich 4 + date ?
gruß
lordofremixes
LÖSUNG 21.12.2011 um 12:41 Uhr
Hallo lordofremixes!
Grüße
bastla
Was sagt diese Zeile eigentlich genauer aus?
Lass Dir die Einzelwerte ausgeben, schlage bei Bedarf die Funktion nach und interpretiere Deine Ergebnisse - zum Ergebnis der Interpretation kannst Du mich dann (falls noch erforderlich ) wieder fragen ...Grüße
bastla
Ähnliche Inhalte
Neue Wissensbeiträge
Heiß diskutierte Inhalte
