Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells.Range("G21").FormatConditions(1).Interior.ColorIndex = 3 Then UserForm1.Show  _
vbModeless
If Cells.Range("G21").FormatConditions(2).Interior.ColorIndex = 1 Then UserForm1.Hide
End Sub

aber die userform wird mir immer nur ganz kurz eingeblendet, und dann ist sie wieder weg, auch, wenn die zelle g21 rot (colorindex = 3) ist.
hat jemand ne idee, warum das so abläuft?
danke
grüße
marco