Office: Laufzeitfehler 13

Hallo , bräuchte kurz hilfe bei dieser Formel :


Sub Worksheet_Change(ByVal Target As Range)
Dim a
a = ActiveSheet.Range("$H$6").Value
Set Target = Intersect(Target, Range("$H$8:$H$332,$S$8:$S$332"))
If Not Target Is Nothing Then
Application.EnableEvents = False
Target.Value = (a - Target.Value) / 60
End If
Application.EnableEvents = True
End Sub


Wenn jemand ausversehen mehere Zeilen mit entf. löscht bekomme ich einen Laufzeitfehler 13 .

Bitte um Hilfe

Danke

 

Moin xSettix,
grundsätzlich kann man das verhindern, indem man die Zeilen schützt: (Überprüfen > Blatt schützen). Wenn in der Tabelle aber herumgespielt werden soll, vergib für H6 einen Namen (Formeln > Namen definieren) und nutze den im Code.

Ansonsten:
Ein Worksheet_Change kann nur im Code eines Worksheets abgefangen werden. ActiveSheet brauchst Du also nicht. a = cells(6,8) genügt. Wenn Du den Code noch erweitern willst, solltest Du die Application symmetrisch anordnen, also innerhalb der if/endif, wobei ich nicht verstehen, wozu Du die Events überhaupt abschaltest.
Grüße

 

Hi,

so sollte es funktionieren:

Code:

Sub Worksheet_Change(ByVal Target As Range)
    Dim a
    a = Range("$H$6").Value
    Set Target = Intersect(Target, Range("$H$8:$H$332,$S$8:$S$332"))
    If Not Target Is Nothing Then
        Application.EnableEvents = False
        Target.Value = (a - Target.Cells(1).Value) / 60
    End If
    Application.EnableEvents = True
End Sub

---

 

Vielen Dank. Funktioniert Super :)

Gruß