Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Worksheets("VEP2 Fahrspiel").Range("D2:J15")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
<em><strong> </strong></em><strong> ThisWorkbook.Worksheets("Tabelle3").Application.Run _
"'Beispieldatei.xlsm'!Restbeschleunigung"
ThisWorkbook.Worksheets("Tabelle3").Application.Run _
"'Beispieldatei.xlsm'!Fahrtzeit"
ThisWorkbook.Worksheets("Tabelle4").Application.Run _
"'Beispieldatei.xlsm'!Restbeschleunigung"
ThisWorkbook.Worksheets("Tabelle4").Application.Run _
"'Beispieldatei.xlsm'!Fahrtzeit"
ThisWorkbook.Worksheets("Tabelle5").Application.Run _
"'Beispieldatei.xlsm'!Restbeschleunigung"
ThisWorkbook.Worksheets("Tabelle5").Application.Run _
"'Beispieldatei.xlsm'!Fahrtzeit"
</strong>
End If
End Sub
Public Sub Restbeschleunigung()
Debug.Print "Restbeschl."
Dim x As Double
x = 2
Do While Cells(x, 3).Value < Cells(10, 19).Value
x = x + 1
If x > 10003 Then Exit Do
Loop
If x < 10003 Then
Cells(31, 17).Value = Round(Cells(x - 1, 6), 2)
Else
Cells(31, 17).Value = 0
End If
End Sub
Public Sub Fahrtzeit()
Dim x As Double
x = 3
Do While Cells(x, 3).Value <> 0
x = x + 1
Loop
Cells(32, 17).Value = Cells(x, 1)
End Sub