hallo allerseits,
ich habe ein kleines excel verwaltungsprojekt für einen größere soziale Einrichtung (alte verwaltungspapierschule) in die Hände bekommen. Nachdem sie jetzt fertig ist und pro Tabellenblatt 12 Seiten mit den jeweiligen Monaten am Monatsende ausgedruckt werden sollen habe ich ein kleines Makro im Netz gefunden und es 12 mal kopiert. So können sie nach vollendung der Dateneingabe einfach das jeweilige makro starten und der druck sollte funktionieren. Ich habe von VBA's null ahnung. Ich brauche jetzt eigentlich nicht alle Worksheets sondern nur die ersten 13 von 17. Meine erste Frage ist. Wie baue ich dazu nachfolgenden Code um?
Sub Januar_drucken()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
WsTabelle.PrintOut From:=1, To:=1, Copies:=1 'jeweils die erste Seite wird gedruckt
' WsTabelle.PrintOut
Next WsTabelle
End Sub
und die andere Idee die mir kam. Vielleicht wäre es ganz witzig am Ende des Durchlaufs jeweils als Popup Meldung noch nen Lustigen Spruch aufpoppen zu lassen um den schnöden Verwaltungsalltag ein wenig zu versüßen. Wie würde das funktionieren? und hat jemand ne Idee ob man es umgehen könnte falls leute interesse an den Sprüchen haben gleich alle 12 makros zu starten und zu gucken was am ende kommt.. also das man nur im Februar für Januar das Makro starten kann .. und falls jetzt schon jemand im Januar ein Februar Makro startet (Daten fehlen ja noch) kommt ne andere fiese Meldung ;) ich bin für weitere Ideen offen ;) und vll hat ja jemand Lust mir zu helfen.. Lieben Dank!
|