Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Target

Target
11.06.2015 08: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
Anzeige
if not intersect....
11.06.2015 09: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 09: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 09:33:22
WalterK

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige