Hallo allerseits,
mir hat sich da ein Rätsel aufgetan, in meinem folgendem Quellcode Ausschnitt dauert die Bearbeitung sehr lange. Ich hatte denselben Quellcode schonmal mit Range() anstelle Cells() geschrieben und da ging das ganz fix. Benötigt Cells() eine große Bearbeitungszeit? oder entsteht die Wartezeit vielleicht durch etwas anderes? Ich hab mein Problem durch MsgBox anzeigen auf diesen Quellcode eingrenzen können:
For j = m To n
K = 99
If Cells(pos + 213, 4).Value = "1,5" Then
For K = 99 To 9 Step -1
If Cells(pos + 226, 10).Value <= Worksheets("Tabellenwerte sonst").Cells(K, 7).Value Then
Else
Cells(pos + 226, 16).Value = Worksheets("Tabellenwerte sonst").Cells(K + 1, 10).Value
K = 9
End If
Next K
End If
If Cells(pos + 213, 4).Value = "2" Or Cells(pos + 213, 4).Value = "2,0" Then
For K = 99 To 9 Step -1
If Cells(pos + 226, 10).Value <= Worksheets("Tabellenwerte sonst").Cells(K, 8).Value Then
Else
Cells(pos + 226, 16).Value = Worksheets("Tabellenwerte sonst").Cells(K + 1, 10).Value
K = 9
End If
Next K
End If
If Cells(pos + 213, 4).Value = "2,5" Then
For K = 99 To 9 Step -1
If Cells(pos + 226, 10).Value <= Worksheets("Tabellenwerte sonst").Cells(K, 9).Value Then
Else
Cells(pos + 226, 16).Value = Worksheets("Tabellenwerte sonst").Cells(K, 10).Value
K = 9
End If
Next K
End If
Next j