Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim i As Long
Set KeyCells = Worksheets("VEP2 Fahrspiel").Range("D2:J15")
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
For i = 3 To 5
Call Fahrtzeit(Worksheets("Tabelle" & i))
Call Restbeschleunigung(Worksheets("Tabelle" & i))
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
Public Sub Restbeschleunigung(Worksheet As Excel.Worksheet)
End Sub
Public Sub Fahrtzeit(Worksheet As Excel.Worksheet)
Dim x As Long
With Worksheet
x = 3
Do While .Cells(x, 3).Value <> 0
x = x + 1
Loop
.Cells(32, 17).Value = .Cells(x, 1).Value
End With
End Sub