Arbeitsbläter nach Registerfarbe drucken

Hallo ihr lieben Excel Profis,
ich habe mal wieder ein kleines Problem bei dem ich nicht weiter komme in der Hoffnung das ich hier Hilfe finde.
Ich möchte in einer Arbeitsmappe, in der mehrere Arbeitsblätter sind, die Arbeitsblätter nur drucken, wenn diese eine bestimmte Farbe haben.
Ich brauche einen Code der mit RGB Farben geschrieben ist da es mit Color nicht funktioniert, wegen z.B. Hellblau und etwas helleres Blau.
Zusätzlich soll aus einer bestimmten Tabelle die im Drucklayout aus mehreren Blättern besteht immer ein gewisses Blatt hinter einer Tabelle gedruckt werden die davor kommt.
Beispiel (Tabelle X mit 6 DIN A4 Blättern, wenn diese gedruckt wird)
Der Code müsste (denke ich) so aufgebaut sein:
BEISPIEL:
Arbeitsblätter drucken
Tabelle 5 drucken wenn Farbe (0,0,0) ist
Tabelle 7 drucken wenn Farbe (0,0,0) ist
wenn Tabelle 7 gedruckt wird dann von Tabelle X die Seite 3 und 4 drucken
Tabelle 10 drucken wenn Farbe (0,0,0) ist
usw.
'Wichtig ist das es so wie ich die Reihenfolge gemacht habe auch so gedruckt wird.
Ich hoffe es versteht jemand was ich meine und danke für jeden Hinweis!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Drucken() If Sheets("Tabelle1").Color = RGB(0, 255, 0) Then .PrintOut Copies:=1, Collate _ :=True, IgnorePrintAreas:=False If Sheets("Tabelle2").Color = RGB(0, 255, 0) Then .PrintOut Copies:=1, Collate _ :=True, IgnorePrintAreas:=False If Sheets("Tabelle2").PrintOut Then ("TabelleX").PrintOut From:=3, To:=4, Copies:=1, Collate _ :=True, IgnorePrintAreas:=False If Sheets("Tabelle3").Color = RGB(0, 255, 0) Then .PrintOut Copies:=1, Collate _ :=True, IgnorePrintAreas:=False End If End Sub

Hallo Timm,
danke für deine Unterstützung. Es funktioniert einwandfrei! Jetzt habe ich nur noch ein kleines Problem bei dem ich nicht
weiter komme.


Sub Test_2()
If ThisWorkbook.Worksheets("Tabelle1").Tab.Color = RGB(0, 176, 80) Then
ThisWorkbook.Worksheets("Tabelle1").PrintOut copies:=1, Collate _
:=True, IgnorePrintAreas:=False
ThisWorkbook.Worksheets("Tabelle2").Tab.Color = RGB(255, 204, 153) Then
ThisWorkbook.Worksheets("Tabelle2").PrintOut copies:=1, Collate _
:=True, IgnorePrintAreas:=False
ThisWorkbook.Worksheets("TabelleX").PrintOut From:=2, To:=5, copies:=1, Collate _
:=True, IgnorePrintAreas:=False
End If
End Sub

Ich will quasi Tabelle 1 drucken, wenn Sie die richtige Farbe hat aber Tabelle 2 nur drucken, wenn diese die richtige Farbe hat wenn Tabelle1 gedruckt wird und immer TabelleX drucken, wenn Tabelle1 gedruckt wird.
Ich muss den Code für Tabelle 2 dazwischen setzen damit diese auch dazwischen gedruckt wird.
Das macht Excel aber so wie ich es geschrieben habe nicht.
Ich hoffe du verstehst was ich meine und danke das du dir die Zeit dafür nimmst mir zu helfen!

Sub Test_2() If ThisWorkbook.Worksheets("Tabelle1").Tab.Color = RGB(0, 176, 80) Then ThisWorkbook.Worksheets("Tabelle1").PrintOut copies:=1, Collate _ :=True, IgnorePrintAreas:=False ThisWorkbook.Worksheets("Tabelle2").Tab.Color = RGB(255, 204, 153) Then ThisWorkbook.Worksheets("Tabelle2").PrintOut copies:=1, Collate _ :=True, IgnorePrintAreas:=False ThisWorkbook.Worksheets("TabelleX").PrintOut From:=2, To:=5, copies:=1, Collate _ :=True, IgnorePrintAreas:=False End If End Sub

Beliebteste Forumthreads (12 Monate)

Arbeitsbläter nach Registerfarbe drucken

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread