ich arbeite seit einiger Zeit an einer Simulation für ein Projekt. Einige wesentliche Fragen zur Codeerstellung konnten hier gelöst werden - besten dank dafür!
Kurz vor Fertigstellung muss ich noch einige dinge optimieren und da "zwickt" es jetzt etwas. zur genaueren Auswertung der Daten in Spalte 1 setze ich in Spalte 2 ein x. Nach Abschluss der manuellen Prüfung sollen diese Daten kopiert werden, was aber sehr lange dauert. Die Simulation, in der ich bis zu 250.000 Datensätze (von Spalte A bis FQ) generiere benötigt max 45 sec.
Hier mein Code für die Auswertung benötigt allerdings ähnlich lang, obwohl der Aufwand minimal ist und ich versteh nicht warum? vl kann mir jemand helfen.
Code:
Sub kopieren_01()
Dim i As Long
Dim leZeile As Long
Dim Zeile As Long
leZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
Zeile = Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row
With Tabelle1
For i = 1 To leZeile
If .Cells(i, 2) = "x" Then
Zeile = Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row
Tabelle2.Cells(Zeile + 1, 1) = .Cells(i, 1)
End If
Next i
End With
End Sub
Besten Dank!