Code-Optimierung gesucht
22.09.2016 11:58:48
Berg.Legende
ich lege über eine Eingabemaske Zeilen in einem worksheet an.
Auf Basis dieser Zeilen werden Werte wie folgt berechnet:
For i = 31 To 100
If Cells(i, 13).Value = "" Then Cells(i, 14).Value = ""
If Cells(i, 13).Value "" Then
Cells(i, 14).Value = Cells(i, 13).Value / Cells(i, 12).Value * 100
End If
Next i
Der Code funktioniert, dauert aber sehr lange.
Wie muss ich den Code umbauen, dass er nicht alle Zeilen von 38 bis 100 prüft?
Sondern nur rechnet, wenn Wert vorhanden?
Kann mir bitte jemand helfen?
Vorab vielen Dank!