Target mit range
06.11.2003 14:06:59
chris-ka
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A7,D1:D7")) Is Nothing Then
Else
MsgBox "x"
End If
End Sub
mit diesem Code kann ich verschiedene Bereiche abfragen ob eine bestimmte zelle in diesem Bereich ein doppelklick (editiert) gemacht wird
was muss ich ändern wenn ich abfragen möchte ob diese zelle markiert ist??
oder besser gesagt wie binde ich einen Range als target ein?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 5 And Target.Row < 10 Then
MsgBox "bereich A1:d9"
End If
End Sub
geht ja nur wenn der Bereich irgendwo ist oder es mehrere gibt die ich abfragen möchte wird es aufwendig
gibt es nicht sowas
wie
if target.range(....
das funzt irgendwie nicht und in der OH werd ich nicht fündig
Gruß
Christian