Target

Forumthread: Target

Target

11.06.2015 10:55:33

WalterK

Hallo,
wie kann man das einfacher schreiben, ich muss noch einige Zellen mehr ergänzen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$51" Or Target.Address = "$D$2" Or Target.Address = "$A$3" Then
Call FilterkriterienFormelFür1
End If
End Sub

Danke und Servus, Walter

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

if not intersect....

11.06.2015 11:14:56

Backowe
AW: Target

11.06.2015 11:15:03

hary
Besten Dank an beide Helfer. Servus, Walter

11.06.2015 11:33:22

WalterK

if not intersect....

11.06.2015 11:14:56

Backowe

Hi Walter,

If Not Intersect(Target, Range("E51,D2,A3,C5,F7,G8,J12,K1,Y23,Z45")) Is Nothing Then

Gruß Jürgen

AW: Target

11.06.2015 11:15:03

hary

Moin Walter

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3,D2,E51")) Is Nothing Then
Call FilterkriterienFormelFür1
End If
End Sub

gruss hary

Besten Dank an beide Helfer. Servus, Walter

11.06.2015 11:33:22

WalterK

Forumthread: Target

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread