Office: (Office 2016) Performance Probleme beim Makro

jonas67808 · 23. März 2020

Hallo zusammen,

ich habe mir folgendes kleines Programm gebastelt.

Als "Laie" macht es zumindest was es soll... aber wenn es über 36 TSD Zeilen läuft, ist die Performance unterirdisch.

Habt ihr ein paar kurze Hinweise wie man es etwas schneller bekommen könnte?

Würde mich über jeden Hinweis freuen! *Smilie

Code:

Sub Test()
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim rowNr As Long
Dim rowNr2 As Long
Dim Test As Integer

AD = 30
Q = 17
AF = 32
I = 9
AG = 36

rowNr2 = 2

Set ws = Worksheets("Tabelle1")
Set ws2 = Worksheets("Tabelle2")

Application.ScreenUpdating = False

For rowNr = 2 To 29000 Step 1 'ws.UsedRange.SpecialCells(xlCellTypeLastCell).Row

If ws.Cells(rowNr, AD).Value = "angekreuzt" Then

ws.Rows(rowNr).Copy
ws2.Rows(rowNr2).Insert xlDown
ws2.Rows(rowNr2).Copy
ws2.Rows(rowNr2).Insert xlDown

Application.CutCopyMode = False

rowNr2 = rowNr2 + 1

ws2.Cells(rowNr2, Q).Value = ws2.Cells(rowNr2, Q).Value * -1
ws2.Cells(rowNr2, AD).Value = "Kopie"
ws2.Cells(rowNr2, AF).Value = ws2.Cells(rowNr2, I).Value

rowNr2 = rowNr2 + 1

End If

If ws.Cells(rowNr, AD).Value "angekreuzt" Then
ws.Rows(rowNr).Copy
ws2.Rows(rowNr2).Insert xlDown
Application.CutCopyMode = False
ws2.Cells(rowNr2, Q).Value = ws2.Cells(rowNr2, Q).Value
rowNr2 = rowNr2 + 1
End If

Next

Application.ScreenUpdating = False

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Viele Grüße
Jonas

:)

Fennek11 · 25. März 2020

Hallo,

dieses

Code:

rows.insert xlshiftdown
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gehört zu den ganz langsamen Befehlen.

Wesentlich schneller geht es, wenn man alle Daten auf einmal in ein Array kopiert, alle Änderungen in Arrays vornimmt und dann das Array auf einmal zurückschreibt.

Falls Du Unterstüzung brauchen solltest, lade ein klein, aber aussagefähige Datei hoch, ein Nachbau der Daten aus dem Code wird vermutlich niemand machen.

mfg

jonas67808 · 26. März 2020

Hi,

Danke für deine Rückmeldung *Smilie

Ich habe ein kleines Beispiel gebastelt.

Bislang kam ich immer ohne Array aus, man lernt nie aus.

Wäre super dankbar für ein Grundgerüst.

Quelltext habe ich im Ursprungspost.

Grüße
Jonas

Fennek11 · 26. März 2020

Hallo,

hier ein Vorschlag:

Die Ausgabe erfolft in ein neues Sheets("Test"). Nach Prüfung kann das in Sheets("Ziel") geändert werden.

Code:

'in Sheets("Start") ausführen

Sub F_en()
Dim Ar, Br
Dim i As Long, ii As Long

Range("A15:H35").Clear
lr = Cells(Rows.Count, 1).End(xlUp).Row + Application.CountIf(Columns(6), "angekreuzt")
nLine = Application.CountIf(Columns(6), "angekreuzt")
Ar = Sheets("Start").Cells(1).CurrentRegion
ReDim Br(1 To lr, 1 To UBound(Ar, 2))
For i = 1 To UBound(Ar)
If Ar(i, 6) = "angekreuzt" Then
For j = 1 To UBound(Ar, 2)
Br(i + ii, j) = Ar(i, j)
Next j
Br(i + ii, 5) = -1 * Br(i + ii, 5)
Br(i + ii, 7) = Br(i + ii, 3)
Br(i + ii, 8) = Br(i + ii, 3)

ii = ii + 1
For j = 1 To UBound(Ar, 2)
Br(i + ii, j) = Ar(i, j)
Next j

Br(i + ii, 6) = "nicht angekreuzt"
Br(i + ii, 8) = Br(i + ii, 3)
Else
For j = 1 To UBound(Ar, 2)
Br(i + ii, j) = Ar(i, j)
Next j
Br(i + ii, 8) = Br(i + ii, 3)
End If
Next i

Sheets("Test").Cells(1, 1).Resize(UBound(Br), UBound(Br, 2)) = Br

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jonas67808 · 26. März 2020

Bin echt total happy gerade!

1000 Daaaank das du dir die Zeit genommen hast!

Wünsche dir noch einen schönen Abend *Smilie

Grüße aus Darmstadt,
Jonas

Office: (Office 2016) Performance Probleme beim Makro

Performance Probleme beim Makro

Performance Probleme beim Makro

Performance Probleme beim Makro

Performance Probleme beim Makro - Similar Threads - Performance Probleme Makro

Performance bei Ausführung Tabellenerstellungsabfrage

Schnellere Lösung als Index Vergleich gesucht um aus Zeileninfos Matrix zu bilden

KPIs (Key Performance Indicators) in Power Pivot

For Schleife, schlechte Performance

Performance-Probleme mit verknüpften Tabellen in Access 2010

einen BIS-Wert aus Tabelle auslesen

Performance Probleme