Hallo zusammen kann mir wohl jemand helfen, ich muss einzelne Zellen aus 2 verschiedenen Tabellenblättern (gleiches Workbook) mit definierten Werten oder der vorherigen Zeile vergleichen. Stimmen beide Eigenschaften wird die Sterizeit um 5 (oder auch 2 aber das sind dann peanuts) sekunden erhöht. Es kann aber bis über 10'000 Zeilen mal bis zu 24 Spalten geben. Ich habe mal was versucht aber naja es geht erstens nicht und wenns würde ists nicht sehr elegnat glaube ich.
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 &gt .Cells(rwIndex, colIndex - 1) Then
If .Worksheets("G1 Sensors").Cells(rwIndex, colIndex).Value &gt= 121.5 Then
Sterizeit = Sterizeit + 5 'Sekunden Variabel!!!!
End If
End If
End With
Next colIndex
Gruss roland