Moin VBA-Experten!
ich habe den folgenden Code eingesetzt um das Wort "Preise" in jeweils dem 5ten Feld anzeigen zu lassen (solange die Spalte G gefüllt ist).
For i = 2 To ActiveSheet.UsedRange.Rows.Count Step 4
strformel = "=WENN(G" & i & "="""";"""";""Preise"")"
ActiveSheet.Cells(i, 2).FormulaLocal = strformel
Next i
Die Funktion läuft an sich auch wie gewollt, das Problem ist aber die Ladezeit. Im Vergleich zu allen anderen Funktionen braucht sie sehr lange um alles zu verarbeiten.
Gibt es eine Möglichkeit die Funktion zu optimieren um die Ladezeit zu senken? Indem man z.B. sagt bis zur welchen Zeile gearbeitet werden soll (habe dafür extra eine Variable da)?
|