Office: Registerfarbe nach Bedingung per VBA verändern

Hi Thomas,

wenn du eine bestimmte Farbe verwenden willst, formatiere einfach eine Zelle entsprechend - dann kannst du dir mit der Codezeile:

Code:

MsgBox ActiveCell.Interior.Color

die betreffende Color-Nummer ausgeben lassen.


Den Rest habe ich nicht verstanden - was meinst du mit "diese Monats Funktion"? In meinem Code gibt es keine, da wird nur das Jahr ausgelesen.

Bis später,
Karin

 

Hallo @Beverly,

auf Seite 1 von 2 in diesem Thread verwendete ich folgende monatsabhängige Call-Back-Funktion. Das darin enthaltene FOR-Statement (For I% = 1 To 12) dürfte wahrscheinlich auch die Ursache für die fehlerhafte Anwendung desselben auf Seite 2 (For bytZaehler = 0 To 11) gewesen sein.
In diesem Makro unten verwendete ich 2 verschiedene Properties (.ColorIndex und .Color) mit den jeweils passenden Farbkonstanten, wobei die Konstante "vbGreen" den gleichen Wert liefert wie die Funktion "RGB(0,255,0)" nämlich 255*256 = 65280 = &H00FF00
Die ColorIndex-Konstante "xlColorIndexNone" besitzt dagegen den dezimalen Wert -4142 (bzw. hexadez. &HEFD2).
Vielleicht wurden beide vermischt verwendet, sodass sie nicht richtig funktionierten.

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim Rg As Range
  Dim Monate As Variant, I%
  Monate = Array("", "Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")
  For I% = 1 To 12
    If Sh.Name = Monate(I%) Then
      'Blattname ist in der Monate-Liste enthalten -> Bereich B10:B40 prüfen
      Set Rg = Sh.Range("B10:B40").Find(What:=Date, LookIn:=xlValues, LookAt:=xlWhole)
      If Rg Is Nothing Then
        'Suchvorgang erfolglos:
        [COLOR="#0000CD"]Sh.Tab.ColorIndex = xlColorIndexNone[/COLOR]
      Else
        'HEUTE() wurde im Bereich B10:B40 gefunden -> BlattTab einfärben
        [COLOR="#0000CD"]Sh.Tab.Color = vbGreen[/COLOR]
      End If
      Exit Sub
    End If
  Next I
End Sub

 

Moin!
Mal eine Ergänzung, wie man die Arrays bequemer füllen kann.
Statt

Code:

  Dim Monate As Variant
  Monate = Array("Jan", "Feb", "Mrz", "Apr", "Mai", "Jun", _
    "Jul", "Aug", "Sep", "Okt", "Nov", "Dez")

geht sehr viel einfacher:

Code:

Dim Monate As Variant
  Monate = Application.GetCustomListContents(7)

Zu beachten ist jedoch, dass das erste Array Null- (For i = 0 To 11), das Zweite jedoch Eins-basiert (For i = 1 To 12) ist.

Das Jahresarray

Code:

arrJahre = Array("2001", "2002", "2003", "2004", "2005", "2005", "2006", "2007", "2008", "2009", "2010", _
   "2011", "2012", "2013", "2014", "2015", "2016", "2017", "2018", "2019", "2020", _
   "2021", "2022", "2023", "2024", "2025")

füllt man sehr viel einfacher mit

Code:

Dim arrJahre As Variant
  arrJahre = [row(2001:2025)]

oder auch mit

Code:

Dim arrJahre As Variant
  arrJahre = Evaluate("row(2001:2025)")

Beachte, dass hier ein zweidimensionales Array(1 To 25, 1 To 1) erzeugt wird!

Gruß Ralf