Tabelle ergänzen (Geschwindigkeit)

Hallo,
Ich habe ein SPEED Problem.
In befülle eine Tabelle mit durchschnittlich 3000 Zeilen (A4:W3004).
Dann sortiere ich die Datensätze gemäss Datum und ergänze in Spalte Q, ob die Daten undgültig oder abgelaufen sind.
Dazu berücksichtige ich mehrere Zellen in meiner Matrix (String & Datum).
Das Ziel besteht darin, auf Basis eines Stichdatum (M2) anzuzeigen welche Zeilen gültig, ungültig oder abgelaufen waren.
Mein Makro funktioniert wie es soll, nur wird es extrem langsam bei vielen Datensätzen, da ich jede einzelne Zeile in IF-Schlaufen mehrfach durchlaufen muss.
Könnte mir jemand einen Tipp geben wie ich diesen Vorgang beschleunigen könnte?
Gibt es eine Möglichkeit diese IF Schlaufen schneller in einer Array durchzulaufen?
Folgend mein Code:


Dim r As Integer
Dim k As Integer
Dim i As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'Formelkalkulation ausschalten
'Filter löschen
ThisWorkbook.Worksheets("IST Employee Skills").Range("A3").AutoFilter
ThisWorkbook.Worksheets("IST Employee Skills").Range("A3").AutoFilter
ThisWorkbook.Worksheets("IST Employee Skills").ListObjects("EmployeeSkills"). _
Sort.SortFields.Clear
ThisWorkbook.Activate
ThisWorkbook.Worksheets("IST Employee Skills").ListObjects("EmployeeSkills"). _
Sort.SortFields.Add Key:=Range("EmployeeSkills[[#All],[Erstellt am]]"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ThisWorkbook.Worksheets("IST Employee Skills").ListObjects( _
"EmployeeSkills").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ThisWorkbook.Worksheets("IST Employee Skills").Range("Q4:Q99999").ClearContents
'Aktive und inaktive Kompetenzen definieren
r = (ThisWorkbook.Worksheets("IST Employee Skills").Range("I1048576").End(xlUp).Row)
For k = r To 4 Step -1
If ThisWorkbook.Worksheets("IST Employee Skills").Cells(k, 8)

Danke für eure Hilfe
Marcel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub marcel() Dim vntTMP, vntOUT Dim r As Integer Dim k As Integer Dim i As Integer Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'Formelkalkulation ausschalten With ThisWorkbook .Activate 'Filter löschen With .Worksheets("IST Employee Skills") .Range("A3").AutoFilter .Range("A3").AutoFilter With .ListObjects("EmployeeSkills").Sort .SortFields.Clear .SortFields.Add Key:=Range("EmployeeSkills[[#All],[Erstellt am]]"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With .Range("Q4:Q99999").ClearContents vntTMP = .Range(.Cells(4, 1, .Cells(Rows.Count, 9).End(xlUp).Row, 17)) For k = UBound(vntTMP) To 1 Step -1 If vntTMP(k, 17) = "" Then If vntTMP(k, 8)

Hi
das liegt an den Hintergrundaktivitäten, die Excel ausführen muss wenn du einen Zellwert änderst.
änderst du jeden Zellwert einzeln, dann muss Excel diese Aktivitäten auch bei jeder Zelle einzeln wiederholt ausführen
änderst du jedoch viele Zellen gleichzeitig in einem Schritt so beim zurückschreiben des Arrays in die Zellen, dann kann Excel diese Aktvitäten für alle Zellen geblockt und gemeinsam durchführen.
Ist wie beim Bäcker, wenn du jedes Brötchen einzeln bezahlst, dauert es länger als wenn du die Kosten zusammenaddierst und dann alle zusammen bezahlst.
auch das generelle Arbeiten ist einfacher.
Plakativ kann man sich das so vorstellen:
ein Exceltabellenblatt ist wie ein großes Bürogebäude und jedes Büro ist eine Zelle und auf dem Whiteboard steht der entsprechende Zellwert.
Arbeitest du direkt mit den Zellen, läufst du praktisch von Büro zu Büro und holst dir da die einzelnen Werte ab.
Verwendest du das Array, schriebst du dir alle Werte aus den Büros erstmal auf einen Zettel (Werte abschreiben geht auch von außen mit dem Fernglas) und arbeitest dann nur noch mit dem Zettel.
Bist du fertig, dann hälst du nur noch den Zettel hoch und die Angestellen in den Zellen schreiben den Zettelwert aufs Whiteboard.
daher ist das schneller
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Tabelle ergänzen (Geschwindigkeit)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread