Hallo Zusammen,
ich habe nachfolgende Schleife in meinem Code und aktuell läuft diese 14s.
Habt ihr eine Idee wie ich diese noch beschleunigen kann.
Es werden 711 Zeilen durchlaufen:
'Formeln einsetzen
For i = 12 To last_cell
'Abfrage ID
If WS.Cells(i, 5).Value <> "" And WS.Cells(i, 4).Value <> "X" Then
For j = 17 To 28
'Formeln einsetzen
If WS.Cells(i, 5).Value Like "ID*" Then
'Suchbegriff setzen
astring = WS.Cells(i, 5).Value & WS.Range("K14").Value
'Kontrollsumme
WS.Cells(i, j).FormulaR1C1 = "=SUMIF([" & hdl_susa_imp & "]" & asheet & "!R1C" & aspalte & ":R" & last_cell_i & "C" & aspalte & ",""" & astring & """,[" & hdl_susa_imp & "]" & asheet & "!R1C" & j - 5 & ":R" & last_cell_i & "C" & j - 5 & ")"
Else
'Suchbegriff setzen
astring = WS.Cells(i, 5).Value & adef
'normal
WS.Cells(i, j).FormulaR1C1 = "=SUMIF([" & hdl_susa_imp & "]" & asheet & "!R1C" & aspalte & ":R" & last_cell_i & "C" & aspalte & ",""" & astring & """,[" & hdl_susa_imp & "]" & asheet & "!R1C" & j - 5 & ":R" & last_cell_i & "C" & j - 5 & ")"
End If
'Prüfung Erlöse/Aufwendungen
If WS.Cells(i, 4).Value = "E" Then
WS.Cells(i, j).Value = WS.Cells(i, j).Value
ElseIf WS.Cells(i, 4).Value = "K" Then
WS.Cells(i, j).Value = WS.Cells(i, j).Value * -1
Else
WS.Cells(i, j).Value = "Kenner fehlt"
End If
Next j
End If
Next i
Danke Euch schon mal.
VG Steffen Schmerler