Hintergrundfarbe aller Zellen

• Hintergrundfarbe aller Zellen von Stefan Glander vom 11.12.2003 15:54:18
  • AW: Hintergrundfarbe aller Zellen - von andreas e am 11.12.2003 15:55:52
    • Lieber ohne Select - von xXx am 11.12.2003 15:58:26
      • AW: Lieber ohne Select und ohne Default - von PeterW am 11.12.2003 16:03:06
        • AW: Lieber ohne Select und ohne Default - von Stefan Glander am 11.12.2003 16:12:37
          • AW: Lieber ohne Select und ohne Default - von xXx am 11.12.2003 16:18:48
            • AW: Lieber ohne Select und ohne Default - von Stefan Glander am 11.12.2003 16:31:30
              • AW: Lieber ohne Select und ohne Default - von xXx am 11.12.2003 16:47:01
                • Ganz vielen Dank :-)) o.T. - von Stefan Glander am 11.12.2003 17:06:15
          • AW: Lieber ohne Select und ohne Default - von PeterW am 11.12.2003 16:19:27
            • AW: Lieber ohne Select und ohne Default - von Stefan Glander am 11.12.2003 16:22:20

Betrifft: Hintergrundfarbe aller Zellen
von: Stefan Glander
Geschrieben am: 11.12.2003 15:54:18
Hallo Excelanier,
bin mal wieder völlig geblendet.
Ob mir wohl jemand sagen kann wie ich in VBA ein ganzes Tabellenblatt mit einer Hintergrundfarbe belegen kann.

Grüsse
Stefan Glander

Betrifft: AW: Hintergrundfarbe aller Zellen
von: andreas e
Geschrieben am: 11.12.2003 15:55:52
hallo stefan,

Sub Makro2()
' Makro2 Makro
' Makro am 11.12.2003 von andreas e aufgezeichnet
Cells.Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub

Gruß
Andreas E

http://www.skripteundaufgaben.de
viele kostenlose Downloads und Links zu EXCEL und mehr
http://www.fachforen.de
eine Linksammlung zu diversen fachforen

Betrifft: Lieber ohne Select
von: xXx
Geschrieben am: 11.12.2003 15:58:26
Hallo

Sub Farbe()
with cells
.interior.colorindex=6
.pattern=xlsolid
end with
End Sub

Gruß aus'm Pott
Udo

Betrifft: AW: Lieber ohne Select und ohne Default
von: PeterW
Geschrieben am: 11.12.2003 16:03:06
Hallo,

das reicht dann auch:

Cells.Interior.ColorIndex = 6

Gruß
Peter

Betrifft: AW: Lieber ohne Select und ohne Default
von: Stefan Glander
Geschrieben am: 11.12.2003 16:12:37
Nu bin ich völlig buschig,

Bitte ich möchte nur wenn man die Datei öffnet das sich das Tabellenblatt in Farbe 14 ändert.
Wenn es geht gleich wenn man die Datei öffnet.
Gruss
Stefan Glander

Betrifft: AW: Lieber ohne Select und ohne Default
von: xXx
Geschrieben am: 11.12.2003 16:18:48
Hallo,
In DieseArbeitsmappe:

Private Sub Workbook_Open()
Cells.Interior.ColorIndex = 14
End Sub

Gruß aus'm Pott
Udo

Betrifft: AW: Lieber ohne Select und ohne Default
von: Stefan Glander
Geschrieben am: 11.12.2003 16:31:30
Hallo Udo,
problem ist nun eigentlich ja gelöst... nur interessenhalber für mich:
Habe den code in DieseArbeitsmappe geschrieben. Das Tabellenblatt1 hat dann die gewünschte Farbe.
Nun meine Frage:
Wie muss der Code lauten damit a: alle Tabellen die Farbe 14 haben
b: nur die Tabelle1 und Tabelle3 die Farbe 14 haben ( und wo muss der Code stehe)
und c: wenn Tabelle1 die Farbe 14 Tabelle2 die Farbe 6 und Tabelle3 die Farbe 8 haben soll.
Lieben Gruss
Stefan Glander

Betrifft: AW: Lieber ohne Select und ohne Default
von: xXx
Geschrieben am: 11.12.2003 16:47:01
Hallo,
a.
For each t in worksheets
t.cells.interior.colorindex=14
next t
b.
Sheets("Tabelle1").cells......
Sheets("Tabelle3").cells......
c.
wie b. mit unterschiedlichen Colorindex-Werten

Wohin?
in Diese Arbeitsmappe (Workbook_open)für a auf jeden Fall
in den Code der Tabelle (WorkSheet_Activate) dann werden die Blätter jedesmal eingefärbt wenn sie aktiviert werden.

Gruß aus'm Pott
Udo

Betrifft: Ganz vielen Dank :-)) o.T.
von: Stefan Glander
Geschrieben am: 11.12.2003 17:06:15
.

Betrifft: AW: Lieber ohne Select und ohne Default
von: PeterW
Geschrieben am: 11.12.2003 16:19:27
Hallo Stefan,

warum soll das mit Code gemacht werden? Wenn die Datei nicht geöffnet ist kann man die Farbe sowieso nicht erkennen, also Tabelle (manuell) entsprechend einfärben und speichern. Oder hast du bei der Aufgabenstellung ein uns unbekanntes Detail verschwiegen?

Gruß
Peter

Betrifft: AW: Lieber ohne Select und ohne Default
von: Stefan Glander
Geschrieben am: 11.12.2003 16:22:20
Danke an alle !
Peter ich verschweige nie etwas... und eigentlich hast du mal wieder recht.

Danke
Stefan Glander

Excel-Beispiele zum Thema " Hintergrundfarbe aller Zellen"
Hintergrundfarbe nach Datum festlegen	Feste Hintergrundfarbe der aktiven Zelle bei Cursorbewegungen
Hintergrundfarbe nach Eingabewert	Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln
Werte in Zellen mit vorgegebener Hintergrundfarbe addieren	Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern
Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten	Jede zweite Zeile mit Hintergrundfarbe belegen
Hintergrundfarbe in Abhängigkeit vom Wochentag	Hintergrundfarbe einer Zeile, wenn bestimmter Wert in 1 Zelle