Excel.Target

[Roland G. Muggli]

Hallo zusammen

Ich möchte anstatt nur eine Zelle anzusprechen:

Private Sub Worksheet_Change(ByVal Target As Excel.Target)
If Target.Address = "$C$3" Then

einen Bereich von C3:C20 auf obige Art ansprechen.
Wie kann ich das eingeben?

Vielen Dank zum voraus

Roland Muggli
www.toggenburg.org

[Joachim Braig]

Hallo Roland,

versuch's mal so oder ähnlich ...

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim InRange As Variant

Set InRange = Application.Intersect(Target, Range("C3:C20"))
If InRange Is Nothing Then
MsgBox "Not in C3:C20"
Else
MsgBox "in C3:C20"
End If

End Sub

hth
JB

"Roland G. Muggli" schrieb:

[Marcel Heimann]

On Wed, 26 Jul 2000 22:33:24 +0200, "Roland G. Muggli" <r...@bluewin.ch>
wrote:

Hallo Roland!

>einen Bereich von C3:C20 auf obige Art ansprechen.
>Wie kann ich das eingeben?

Folgendermassen:
If Target.Column = 3 And Target.Row >= 3 And Target.Row <= 20 Then

MfG
Marcel

[Roland G. Muggli]

Hallo Marcel

Vielen Dank! Das ist genau, was ich suchte!

Marcel Heimann <mak...@gmx.de> schrieb in im Newsbeitrag:
<3980f334...@news.thyssen.com>...

[WIWA]

In article <Ohx1CD09$GA.274@cppssbbsa04>, r...@bluewin.ch says...

>
> Hallo zusammen
>
> Ich möchte anstatt nur eine Zelle anzusprechen:
>
> Private Sub Worksheet_Change(ByVal Target As Excel.Target)
> If Target.Address = "$C$3" Then
>

> einen Bereich von C3:C20 auf obige Art ansprechen.
> Wie kann ich das eingeben?
>

> Vielen Dank zum voraus
>
> Roland Muggli
> www.toggenburg.org
>

Hi Roland,

das mueszte so gehen...

grusz
wiwa

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 3 Then
If Target.Row >= 3 And Target.Row <= 20 Then
'hier deine Befehle rein
MsgBox "Huhu das Ziel getroffen"
End If
End If

End Sub

--
Walter Winter
Technical University Graz
mailto:wwi...@glvt.tu-graz.ac.at