Register einfärben

Forumthread: Register einfärben
4 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Register einfärben

24.08.2014 16:21:31

Werner

Hi Forum,
Zum farbig Kennzeichnen des jeweils aktuellen Kalenderwochenregisterblatt (KW..) wurde nachfolgender Code eingesetzt.
woche = "KW" & WorksheetFunction.WeekNum(Date)
For i = 1 To Sheets.Count
If Sheets(i).Name = woche Then
Sheets(i).Tab.Color = 355
Else
Sheets(i).Tab.ColorIndex = xlColorIndexNone
End If
Next i
Dadurch lassen sich jedoch andere Register nicht einfärben. Wie können Register ohne Kalenderwochenbezeichnung trotzdem eingefärbt werden, ohne dass ein Code für jedes Wochenblatt eingesetzt werden muss?
Vielen Dank für eure Hilfe
Gruß
Werner

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Register einfärben

24.08.2014 16:36:12

Hajo_Zi
AW: Register einfärben

25.08.2014 02:30:55

Ewald
AW: Register einfärben

25.08.2014 20:13:45

Hajo_Zi
AW: Register einfärben

26.08.2014 14:34:14

Werner

AW: Register einfärben

24.08.2014 16:36:12

Hajo_Zi

Hallo Werner,
nicht
Sheets(i).Tab.ColorIndex = xlColorIndexNone
sondern
Sheets(i).Tab.Color = 255

AW: Register einfärben

25.08.2014 02:30:55

Ewald

Hallo,
wenn du neben den Kalenderwochentabellen auch noch mehrere andere Tabellengruppen unterschiedlich färben willst, kannst du

Select Case Sheets(i).Name

durch Case-anweisung

Case  "KW" & WorksheetFunction.WeekNum(Date)
Sheets(i).Tab.Color = 355

beliebig viele Tabregister färben
Gruß Ewald

AW: Register einfärben

25.08.2014 20:13:45

Hajo_Zi

Hallo Werner,
nicht
Sheets(i).Tab.ColorIndex = xlColorIndexNone
sondern
Sheets(i).Tab.Color = 255

AW: Register einfärben

26.08.2014 14:34:14

Werner

Hallo Hajo,
danke für die Formel. Bin beruflich wieder unterwegs und komme im Moment nicht dazu sie auszuprobieren.
Gebe auf jeden Fall ein Feedback sobald ich die Zeit zum ausprobieren habe.
Gruß
Werner

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