Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheets mit Registerfarbe grün drucken

Sheets mit Registerfarbe grün drucken
Dieter(Drummer)
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)

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Sheets mit Registerfarbe grün drucken
13.01.2012 12:33:17
Beverly
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


AW: Danke Karin, funktioniert prima! ..
13.01.2012 12:38:29
Dieter(Drummer)
... 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)
AW: Danke Karin, funktioniert prima! ..
13.01.2012 13:01:19
Rudi
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
Anzeige
AW: Danke Rudi funktioniert prima!
13.01.2012 13:06:21
Dieter(Drummer)
... herzlichen Dank für die schnelle Hilfe und das Makro.
Gruß
Dieter(Drummer)
AW: Danke Karin, funktioniert prima! ..
13.01.2012 13:22:18
Beverly
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


AW: Danke Karin, auch gute Variante ...
13.01.2012 14:08:28
Dieter(Drummer)
... Danke Karin,
für das Makro. So bekomme ich die jeweilige Register-Farbnummer des Sheets angezeigt. Eine gute Idee. Danke.
Gruß,
Dieter(Drummer)

160 Forumthreads zu ähnlichen Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Anzeige
Zellen farbig unterlegen bei Eingabe über Inputbox
Jochen

Hallo Forum
Ich habe eine Tabelle in der werden über eine Inputbox in die Zellen A9 bis K9 Werte eingetragen.
Diese Werte werden der Reihe nach über die Inputbox eingetragen.
Gibt es eine Möglichkeit das die geweils angesprochene Zelle für die Zeit der Eingabe die Farbe
wechselt...
09.11.2008 13:54:18
Thread-ID: 1023062
7 Beiträge
trotz INDIREKT verknüpfte zellen farbig markieren
merlin

Hallo,
gibt es eine Möglichkeit trotz der Verwendung von INDIREKT die verknüpften Zellen markieren zu lassen?
https://www.herber.de/bbs/user/60118.xls
Viele Grüße, vielen Dank.
09.03.2009 11:14:37
Thread-ID: 1058088
3 Beiträge
Anzeige
Füllfarbe nicht mittdrucken
Karsten

Hallo,
Kennt jemand eine Möglichkeit, dass die Füllfarbe nicht mitgedruckt wird?
https://www.herber.de/bbs/user/66717.xls
Dankr für eure Hilfe.
Gruß
Karsten
20.12.2009 13:51:12
Thread-ID: 1125144
9 Beiträge
Bedingte Formatierung klappt nicht
Juergen

Hallo
Ich brauche mal Hilfe.
Und zwar hab ich folgendes Problem mit der Bedingten Formatierung:
in zelle E12 ist eine Formel die ein Wert Zurückgebt.(1-25)
in zelle F12 ist ebenfalls eine Formel hinterlegt die auch ein Wert zurückgebt.(1-25)
Nun zu mein Problem Ich möchte, w...
22.01.2010 21:00:10
Thread-ID: 1132233
16 Beiträge
Pivot wird nicht vollständig gedruckt?
u_hoernchen

Ich habe eine Pivot-Tabelle, in der Umbruchvorschau wird auch alles prima angezeigt, x Seiten, Druckbereich etc. Aber wenn ich dann auf Seitenansicht gehe, zeigt er mir nur die ersten 2 Seiten und druckt auch nicht mehr. Ich bin echt überfragt, was ich falsch mache... kann mir jemand helfen?
04.02.2010 11:39:38
Thread-ID: 1135681
4 Beiträge
Führende Null wird nicht gedruckt
Josef

Hallo!
Mit unten stehendem Makro wird der Inhalte einer ListBox1 in einer UF in ein neues Tabellenblatt kopiert und ausgedruckt.
In der zweiten Spalte in der ListBox1 stehen zweistellige Zahlen und zwar mit einer führenden Null.
Beim Ausdruck erhalte ich jedoch nur eine einstellige...
12.02.2010 07:51:01
Thread-ID: 1137948
3 Beiträge
Bedingte Formatierung klappt nicht
Axel

Hallo zusammen,
Ich habe eine Zelle A1 mit einer bedingten Formatierung belegt: Formel ist =UND(A1=0;A1""
Damit erreiche ich, dass die Zelle bei einer 0 ein bestimmtes Format annimmt, aber nicht, wenn die Zelle leer ist. Vielen Dank für diese Lösung an die Helfer hier im Forum!
Wen...
04.03.2010 18:12:36
Thread-ID: 1143463
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
7
6
2
7
8
15
3
2
2
1
1
3
1
2
8
3
3
3
21
3
10
8
1
4