In der Entwicklungsumgebeung in das Klassenmodul des betreffenden Arbeitsblattes gehen [Tabelle1(Tabelle1) oder wie es auch heißen mag]
Im Dropdwon bei den Objekten Worksheet auswählen (standardmäßig steht dort (Allgemein)
Im Dropdown bei den Ereignissen "Change" auswählen (gegenüber den Objekten)
Dann erhaältst Du das Gerüst für die Ereignisprozedur
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
Dort fügst Du dann Meine If-Then-Bedingung und Deinen Code ein.
Wichtig: Da es sich um ein Change-Ereignis handelt, wird dieses bei jeder Veränderung auf dem Blatt ausgelöst, auch bei solchen, die durch den dort hinterlegten Code verursacht werden. Um ständiges, nicht erwünschtes Auslösen der Prozedur durch ihre eigenen Changes zu vermeiden, und auch um keine Rechenleistung durch Bildschirmaktualisierungen zu vergeuden, sollte der Code etwa so aussehen:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$7" Ans Target.Address <> "$B$8" Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
'HIer Dein Code
'............
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Severus
|