Function BereichAusgeblendet(bereich As Range) As Boolean
BereichAusgeblendet = bereich.Width = 0 Or bereich.Height = 0
End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[a1].Formula = [a1].Formula
End Sub
genügen.
Greetz Renee