AW: Na dann nenn uns doch mal die Bereiche o.T.
10.08.2005 11:00:51
Mac4
Hallo Sven,
bezogen auf mein Beispiel geht Folgendes:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Bereich1
Dim Bereich2
Set Bereich1 = Application.Union([Y9], [Y11], [Y15], [Y17], [Y19], [Y21], [Y23], _
[AA9], [AA11], [AA15], [AA17], [AA19], [AA21], [AA23], _
[Z28], [Z30], [Z32], [Z34], [Z36], [Z38], [Z40], _
[F45], [L45], [B47], [E47], [H47], [K47], [N47], [Q47], [T47])
Set Bereich2 = Application.Union([Y49], [Y51], [AA49], [AA51])
If Not Intersect(Target, Bereich1) Is Nothing Or _
Not Intersect(Target, Bereich2) Is Nothing Then
If Target = "x" Then
Target = ""
Else
Target = "x"
End If
End If
End Sub
Marc