habe ein kleines Problem. Ich möchte das aktuelle Arbeitsblatt auf Änderungen überprüfen und möchte aber nicht die nachstehende SUB in jedem Blatt anlegen. Gibt es eine Möglichkeit in der Arbeitsmappe oder einem zentralem Punkt dieses zu hinterlegen?
Gruß Mark
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iAktionsZeile As Integer
If Target.Address > ("C2:E32") Then
Exit Sub
Else
iAktionsZeile = Target.Row
Target.Application.EnableEvents = False
Range("F" & iAktionsZeile).Value = (Range("E" & iAktionsZeile).Value - Range("D" & _
iAktionsZeile).Value) * 24 - Range("C" & iAktionsZeile).Value
Target.Application.EnableEvents = True
End If
End Sub