Alle roten Sheets (tabfarbe) drucken
25.11.2015 15:25:58
Björn
ich habe ein Mappe mit mehreren Tabellenblättern. Die erste Tabelle dient als Übersicht. Dort werden unter anderem Ampelfarben vergeben. Die Auswahl einer Ampelfarbe ändert dann gleichzeitig auch die Reiterfarbe des zügehörigen Blattes.
Jetzt würde ich mir gerne einen Button mit einem Makro erstellen, durch dessen Funktion alle roten Tabellenblätter gedruckt werden.
Ich hatte mal ein Makro für das ein-bzw ausblenden von farbigen Blättern erstellt. Hatte jetzt gehofft, dass ich das einfach umschreiben kann. Leider wird hier natürlich jedes rote Blatt nacheinander in die Druckvorschau geschoben. Geht das auch, dass alle roten gleichzeitig drin sind? Also...geht mit Sicherheit aber wie?
Danke fürs Lesen
Björn
Sub roten_drucken()
Dim Blatt As Object
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Tab.Color = 255 Then
Blatt.PrintPreview
End If
Next Blatt
End Sub