Thema Datum  Von Nutzer Rating
Antwort
Rot VBA einzelne Seiten aus Tabellenblätter ausdrucken
 16.01.2022 00:26:17 Karl
NotSolved
16.01.2022 11:54:40 volti
NotSolved

Ansicht des Beitrags:
Von:
Karl		 Datum:
16.01.2022 00:26:17		 Views:
1116		 Rating:
     
Antwort:
  Ja
Thema:
VBA einzelne Seiten aus Tabellenblätter ausdrucken

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!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA einzelne Seiten aus Tabellenblätter ausdrucken
 16.01.2022 00:26:17 Karl
NotSolved
16.01.2022 11:54:40 volti
NotSolved