Code-Optimierung gesucht

Forumthread: Code-Optimierung gesucht
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Code-Optimierung gesucht

22.09.2016 13:58:48

Berg.Legende

Hallo,
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!

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code-Optimierung gesucht

22.09.2016 14:14:48

UweD
AW: Code-Optimierung gesucht

22.09.2016 14:51:20

Berg.Legende
AW: gern geschehen owt

22.09.2016 14:54:07

UweD

AW: Code-Optimierung gesucht

22.09.2016 14:14:48

UweD

Hallo
so... ohne Schleife

    With ActiveSheet.Range(Cells(31, 14), Cells(100, 14))
        .FormulaR1C1 = "=IF(RC[-1]="""","""",RC[-1]/RC[-2]*100)" ' =WENN(M31="";"";M31/L31*100) 
        .Value = .Value
    End With