Change-Ereignis
07.01.2007 15:27:58
Nico
ich würde gern wissen, wie ich in einem Sheet mehere Change Ereignisse abfangen kann. Der unten stehende Code funktioniert jedenfalls nicht so, wie er soll. Ich möchte gern zwei unterschiedliche Bereiche abfragen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, y As Integer
If Intersect(Target, Range("AP11:AQ43")) Then 'erster zu überwachender Bereich
y = Target.Row 'gibt Zeile zurück, in der sich was geändert hat
'----Aufruf einer Funktion-----
Range("AJ" & y) = Stunden(y, Range("AP" & y).Value, Range("AQ" & y).Value)
ElseIf Intersect(Target, Range("E11:AI11")) Then 'zweiter zu überwachender Bereich
x = Target.Row 'gibt Zeile zurück, in der sich was geändert hat
'----Aufruf einer Funktion-----
Range("AK" & x) = SollStd(Range("AP" & x).Value, Range("AQ" & x).Value)
Else 'Funktion verlassen
Exit Sub
End If
End Sub
kann mir da jemand helfen?
Gruß Nico