Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Sheets mit Registerfarbe grün drucken | Herbers Excel-Forum


Betrifft: Sheets mit Registerfarbe grün drucken von: Dieter(Drummer)
Geschrieben am: 13.01.2012 12:28:27

Hi Spezialisten,

ist es möglich, per Makro die Sheets mit der Registerfarbe grün, alle hintereinander zu drucken? Es können auch mehrere, nicht hintereiandener liegende Sheets sein. Ich kann mir vorstellen, dass die Farbe des Registers bekannt sein muss, deshalb anbei eine Musterdatei:

https://www.herber.de/bbs/user/78418.xls

Mit der Bitte um Hilfe.

Gruß, Dieter(Drummer)

  

Betrifft: AW: Sheets mit Registerfarbe grün drucken von: Beverly
Geschrieben am: 13.01.2012 12:33:17

Hi Dieter,

Sub Drucken()
   Dim wksTab As Worksheet
   For Each wksTab In Worksheets
      If wksTab.Tab.ColorIndex = 10 Then wksTab.PrintOut
   Next wksTab
End Sub


GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Danke Karin, funktioniert prima! .. von: Dieter(Drummer)
Geschrieben am: 13.01.2012 12:38:29

... herzlichen Dank für schnelle Hilfe und noch einen schönen Tag, trotz Freitag, dem 13.

Kannst Du mir noch mitteilen, wie ich an die Register-Farbnummern komme?

Gruß
Dieter(Drummer)


  

Betrifft: AW: Danke Karin, funktioniert prima! .. von: Rudi Maintaire
Geschrieben am: 13.01.2012 13:01:19

Hallo,
in ein Modul:

Sub Farbliste()
  Dim i As Integer
  With Worksheets.Add
    For i = 1 To 56
      .Cells(i, 1).Interior.ColorIndex = i
      .Cells(i, 2) = i
    Next
  End With
End Sub

Gruß
Rudi


  

Betrifft: AW: Danke Rudi funktioniert prima! von: Dieter(Drummer)
Geschrieben am: 13.01.2012 13:06:21

... herzlichen Dank für die schnelle Hilfe und das Makro.

Gruß
Dieter(Drummer)


  

Betrifft: AW: Danke Karin, funktioniert prima! .. von: Beverly
Geschrieben am: 13.01.2012 13:22:18

Hi Dieter,

im Prinzip mit dem selben Code

Sub FarbeDesTab()
   Dim wksTab As Worksheet
   For Each wksTab In Worksheets
      MsgBox wksTab.Tab.ColorIndex
   Next wksTab
End Sub


GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Danke Karin, auch gute Variante ... von: Dieter(Drummer)
Geschrieben am: 13.01.2012 14:08:28

... Danke Karin,

für das Makro. So bekomme ich die jeweilige Register-Farbnummer des Sheets angezeigt. Eine gute Idee. Danke.

Gruß,
Dieter(Drummer)


Beiträge aus den Excel-Beispielen zum Thema "Sheets mit Registerfarbe grün drucken"