HERBERS Excel-Forum - die Dialoge

Thema: Bedingt formatieren

Home
Über das RefEdit-Steuerelement wird ein Bereich ausgewählt, für den dann eine bedingte Formatierung festgelegt wird. Bedingt formatieren
  • Prozedur: cmdFormat_Click
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Bedingt formatieren
  • Ablaufbeschreibung:
    • Rahmen um das RefEdit-Objekt bilden
    • Alle bedingten Formatierungen löschen
    • Bedingte Formatierung setzen
    • UserForm schließen
  • Code:

    
    Private Sub cmdFormat_Click()
       With Range(refFormat.Value)
          .FormatConditions.Delete
          .Range(refFormat.Value).Cells(1).Activate
          .FormatConditions.Add Type:=xlExpression, Formula1:= _
             "=WOCHENTAG(" & Range(refFormat.Value).Cells(1, 1) _
             .Address(False, False) & ")=7"
          .FormatConditions(1).Interior.ColorIndex = 35
          .FormatConditions.Add Type:=xlExpression, Formula1:= _
             "=WOCHENTAG(" & Range(refFormat.Value).Cells(1, 1) _
             .Address(False, False) & ")=1"
          .FormatConditions(2).Interior.ColorIndex = 42
       End With
       Unload Me
    End Sub