mehrere change-ereignisse überwachen

18/06/2010 - 09:09 von hotzi | Report spam
hallo zusammen,

erst wenn ich den code mit immer mit if not beginne und mit end if
abchließe kann ich nacheinander mehrere ereignisse überwachen. das
übliche konstrukt

If Intersect(Target, Range("A1:F14")) Is Nothing Then Exit Sub
funktioniert bei mehreren bereichen, auf die unterschiedlich zu
reagieren ist nicht. woran kann das liegen.

der code, der funktioniert

If Not Intersect(Target, Range("A1:F14")) Is Nothing Then
MsgBox "1. Bereich geàndert"
End If
'nimmt Formatierungen in den Verfahren vor
If Not Intersect(Target, Range("A15:S1000")) Is Nothing Then
MsgBox "3. Bereich geàndert"
End If

'überprüft, ob S- oder E-Verfahren geàndert worden sind
If Not Intersect(Target, Range("A15:A1000")) Is Nothing Then
MsgBox "3. Bereich geàndert"
End If

End Sub

hier der code, der nicht funktioniert
Private Sub Worksheet_Change(ByVal Target As Range)

'verhindert Änderungen im kopf
If Intersect(Target, Range("A1:F14")) Is Nothing Then Exit Sub
MsgBox "1. Bereich geàndert"

'nimmt Formatierungen in den Verfahren vor
If Intersect(Target, Range("A15:S1000")) Is Nothing Then Exit Sub
MsgBox "2. Bereich geàndert"

'überprüft, ob S- oder E-Verfahren geàndert worden sind
If Intersect(Target, Range("A15:A1000")) Is Nothing Then Exit Sub
MsgBox "3. Bereich geàndert"
end sub

freue mich auf eine antwort klaus
 

Lesen sie die antworten

#1 Claus Busch
18/06/2010 - 11:14 | Warnen spam
Hallo Klaus,

Am Fri, 18 Jun 2010 00:09:09 -0700 (PDT) schrieb hotzi:

hier der code, der nicht funktioniert
Private Sub Worksheet_Change(ByVal Target As Range)

'verhindert Änderungen im kopf
If Intersect(Target, Range("A1:F14")) Is Nothing Then Exit Sub
MsgBox "1. Bereich geàndert"



die Anweisungen in einer Prozedur werden in ihrer Reihenfolge
abgearbeitet. Wenn hier also nichts geàndert wird in A1:F14 wird die
Prozedur verlassen und keine weitere Anweisung ausgeführt.


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen