monitor a specified range ( OnChange)

[matthias.rother]

Hi,

is it possible to change/specify the procedure "Worksheet_Change(ByVal
Target as Range)" in an worksheet to a specified Range of Data, for
example E7:E61 (Worksheet_Change("E7:E61") ?

greets

 

[Guest]

Try this:-

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("e7:e61")) Is Nothing Then
'DO YOUR STUFF
End If
End Sub

Mike

 

[matthias.rother]

Hi,

is it possible to change/specify the procedure "Worksheet_Change(ByVal
Target as Range)" in an worksheet to a specified Range of Data, for
example E7:E61 (Worksheet_Change("E7:E61") ?

greets

i found it

Private Sub Worksheet_Change(ByVal Target As Range)
'Target wird auf den sich überschneidenden Bereich gesetzt, um bei
'Mehrfachmarkierungen die ausserhalb des eingeschränkten Bereiches
'liegenden Zellen nicht ebenfalls zu verändern

'Hier den Bereich anpassen
Set Target = Application.Intersect(Target, Range("A1:C10"))

'Wenn nicht innerhalb des Bereiches wird die Prozedur verlassen
If Target Is Nothing Then Exit Sub

'Errorhandling aktivieren, um im Falle eines Fehlers die
Ereignisse
'am Ende wieder zu aktivieren
On Error GoTo ErrorHandler

'Ereignisse ausschalten, um das Change-Ereignis nicht erneut
auszulösen
Application.EnableEvents = False

'Eine Range-Variable deklarieren
Dim rngZelle As Range

'jede Zelle innerhalb des Target-Bereiches durchlaufen
For Each rngZelle In Target


'Dein Code zur Bearbeitung der Zelle


Next rngZelle
ErrorHandler:
Application.EnableEvents = True 'Ereignisse wieder einschalten
End Sub