Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: frmFormatierung

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

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmFormatierung.Show
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und RefEdit