Office: (Office 2013) Makro? Mehrere Druckbereiche auf einer Seit festlegen!

Ich habe eine Arbeitsmappe mit mehreren Arbeitsblättern (Register)
erstellt.

Nun würde ich gerne

- 1. die Arbeitsblätter 3-36 drucken jedoch ohne die Spalten "x" + "y". (Blatt 1-2 sind Inhaltsverzeichnis).
- 2. die Arbeitsblätter 3-36 drucken incl. den Spalten "x" + "y"

Bekomm ich das irgendwie hin, ohne jedes Blatt extra anklicken zu
müssen und die Spalten manuell auszublenden etc.?

Wenn ich über "Drucklayout" gehe, werden mir jeweils die markierten Zellen auf 2 Seiten ausgedruckt.

Mir wurde gesagt hier muss man evtl. mit Makros etc. arbeiten.
Leider kenne ich mich hiermit überhaupt nicht aus.

Falls mir jemand helfen kann, wäre das ohne zu übertreiben, das Weihnachtsgeschenk schlechthin - wirklich !

:)

 

Hi,

vielleicht wäre es gut, wenn du mal eine Beispielmappe mit 2 oder 3 der zu druckenden Tabellen hochlädst, damit man sich den Tabellenaufbau genauer anschauen kann.

 

Hallo - Danke für die schnelle Nachricht !

Anbei eine gekürzte "Test-Datei" es geht
um die blau hinterlegten Spalten D + E

Bitte nicht von der Formatierung und Gestaltung des Deckblattes und Inhaltsverzeichnis etc. beeinflussen lassen,
ich musste hier auf die schnelle vertrauliche Daten löschen...

 

ist so natürlich einfacher... jetzt der Anhang

 

Hi,

versuche es mal mit diesem Makro:

Code:

 

ich habe vor lauter Freude schon Tränen in einem Auge!
Wirklich ich übertreibe nicht. Darf ich nochmal was fragen - ich weiß unverschämt, da du mir schon so geholfen hast.

Könntest du mir folgendes ergänzen ?
- Druck incl. Deckblatt und Inhalsverzeichnis (also Register 1-2 auch, beide Seiten komplett - ohne die Spaltenformatierung)

Problem nun: Es druckt jetzt immer alle Seiten

Kann man auch noch folgendes einstellen ?

- Abfrage: welches Register gedruckt werden soll (von - bis)
- Abfrage: mit oder ohne Druck (eben dieser beiden Spalten) ?
(ich möchte nicht unbedingt, dass automatisch immer beide Möglichkeiten gedruckt werden.

Vielleicht kannst du mir helfen und ich bekomme vor lauter Hilfe einen Weinkrampf...

ansonsten bedanke ich mich schon jetzt aufs[/b][/b] herzlichste - vielen

 

Hi,

wenn du einzelne Tabellen auswählen willst, dann wäre es am besten, du benutzt ein UserForm mit CheckBoxen - da wählst du dann die relevanten Tabellenblätter aus. Ich habe das mal für die Tabellen aus deiner hochgeladenen Arbeitsmappe gemacht - das UserForm musst du dann mit weiteren CheckBoxen erweitern, die jeweils die Namen der anderen Tabellenblätter als Aufschrift haben.

 

Super, super, super ! Es wird nun ganz peinlich für mich. Wie / wo finde ich diese Befehle in der Datei / Excel um es mit meinen Arbeitsblättern zu "ergänzen"... ?

Sorry.... *eek.gif*

 

Hi,

wenn du mit VBA, VBA-Editor und Steuerelementen (konkret: UserForms) überhaupt nicht vertraut bist, dann wäre es gut, wenn du dir erst einnmal ein paar Grundlagen aneignen würdest - bitte nicht böse sein, aber ein Forum ist dafür leider nicht geeignet. Wenn du dann wenigstens ein paar fundamentale Verfahrensweisen beherrschst, kannst du dann gerne deine konkreten Fragen dazu hier im Forum stellen.

Was du aber schon mal machen kannst ist, die Entwicklertools aktivieren (falls das noch nicht der Fall ist), denn ohne sie geht es nicht. Register: Datei -> Optionen -> Menüband anpassen und im rechten Fenster dann "Entwicklertools" aktivieren (Haken in die CheckBox setzen). Danach gelangst du immer mit der Tastenkombination Alt+F11 in den VBA-Editor (VBA-Umgebung), wo die gesamte Programmierung abläuft.

 

du hast recht - es tut mir leid.
ich dachte es wäre eine "kleine" Sache und nicht so umfangreich...

ganz, ganz lieben dank für deine geduld und großartige hilfe !

 

eine aller letzte Frage versprochen, vielleicht kannst du mir diese noch beantworten:

wie muss ich folgenden Code abändern bzw. kürzen damit lediglich die Mappe mit den ausgeblendeten Spalten gedruckt wird ?

Jetzt wird die gesamte Mappe 2 x (1x komplett + 1 x ausgeblendet) gedruckt.

Sub Drucken()
Dim intTab As Integer
Dim lngLetzte As Long
' Schleife über alle Tabellen ab 3. Tabelle
For intTab = 3 To Worksheets.Count
' bezogen auf die laufende Tabelle
With Worksheets(intTab)
' letzte belegte Zeile in Spalte A ermitteln
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
' Druckbereich von Spalte A, Zeile 1 bis Spalte AC, letzte belegte Zeile festlegen
.PageSetup.PrintArea = Range(Cells(1, 1), Cells(lngLetzte, 29)).Address
' drucken
.PrintOut
' Spalten D:E ausblenden
.Columns("D:E").Hidden = True
' drucken
.PrintOut
' Spalten D:E einblenden
.Columns("D:E").Hidden = False
' Druckbereich löschen
.PageSetup.PrintArea = ""
End With
Next intTab
End Sub

 

Hi,

der Code würde dann so aussehen:

Code:

Ich hätte noch einen anderen Vorschlag, wie man es vielleicht etwas einfacher lösen könnte. Kennst du dich wenigstens ein ganz klein wenig mit Kontrollkästchen im Tabellenblatt aus, also wie man sie erstellt und beschriftet und ihnen ein Makro zuweist?

 

lieben Dank für deine Hilfe.

Ich trau mich gar nicht deine Frage zu beantworten: Nein

Mit Makros und Programmierung habe ich mich noch nie befasst,
weil ich es überhaupt noch nie, auch nicht ansatzweise benötigt habe.

Diese Sache ist auch für ein Freund der Familie...
Das sollte ich jetzt einmal g`scheit erstellen und er kann das dann die nächsten Jahre in seinem Familienbetrieb nutzen.

Ich wußte nicht, was das für Ausmaße nehmen könnte, bzw. jetzt schon genommen hat...

 

Hi,

Dafür dass du dich noch wie mit Programmierung beschäftigt hast, musst du dich noch nicht entschuldigen - irgendwann haben wir alle einmal bei Null angefangen *wink.gif*. Du musst dir nur über eine Sache im Klaren sein: wenn man mehr als nur die Standardfunktionalitäten von Excel nutzen will, dann kommt man meist nicht um Makros und Co. herum.

Zu den Steuerelementen kann ich dir mit ein paar Sätzen eine kurze Einführung geben, wenn du möchtest - das sollte nicht das Problem sein. Du musst dich halt nur entscheiden, ob du das möchtest oder nicht. *tongue.gif*

 

ich bin willig zu lernen und freue mich immer meinen Horizont zu erweitern...
speziell hier bei Office-Themen...