Sub Sterizeit()
Dim Zeile As Long
Dim Sterizeit As Variant
Zeile = 9
Spalte = 6
rwIndex = Spalte
For colIndex = 2 To Zeile
With Worksheets("G1 Aleth").Cells(rwIndex, colIndex)
If .Value > .Cells(rwIndex, colIndex - 1) Then
If .Worksheets("G1 Sensors").Cells(rwIndex, colIndex).Value >= 121.5 Then
Sterizeit = Sterizeit + 5 'Sekunden Variabel!!!!
End If
End If
End With
Next colIndex
Gruss roland