userform durch bedingung aus / einblenden
27.12.2007 17:34:50
marco
habe eine userform, die in abhängigkeit durch bedingte formatierung in einer zelle aus bzw. eingeblendet werden soll. hier der code.
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