Target und Range

Forumthread: Target und Range
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Target und Range

Target und Range

27.04.2005 17:52:02

Markus

Hallo Excelsier,
ich möchte bei Änderung in den Zellen A1:A20 ein Makro ausführen lassen. Die Prozedur unten funktioniert, wenn das Range aus einer Zelle besteht, aber nicht wenn mehrer Zellen das Range bilden. Ich habe für den Bereich auch bereits einen Namen vergeben, mit dem es auch nicht geht. Kann mir jemand sagen was da falsch ist?
Schn mal Danke Gruß Markus


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1:A20").Address Then
MsgBox "Hier wird gearbeitet!"
End If
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Target und Range

27.04.2005 17:58:01

Dr.
AW: Target und Range

27.04.2005 18:00:59

UweD
AW: Target und Range

27.04.2005 18:14:22

Markus

AW: Target und Range

27.04.2005 17:58:01

Dr.

Hi, das funzt so:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A20")) Is Nothing Then MsgBox "Hier wird gearbeitet!"
End Sub

AW: Target und Range

27.04.2005 18:00:59

UweD

Hallo
so gehts:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
MsgBox "Hier wird gearbeitet!"
End If
End Sub

Gruß UweD

AW: Target und Range

27.04.2005 18:14:22

Markus

Hallo,
Dank zusammen.
Gruß Markus

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!