|
Hallo Onur,
das hat nichts mit der Hardware zu tun sondern mit einem sauberen Programmierstil. Select und Activate sollte man wenn möglich vermeiden, da es meistens unnötig ist (und das ist zu 90% der Fall) und nur Ressourcen frisst.
Aber wenn du meinst, dann lass deinen Code mal mit ein paar hundert Datensätzen laufen.
Ich kann nicht nachvollziehen, dass man sich ständig auf den Schlips getreten fühlt. Ich bin dankbar dafür, wenn ich derartige Hinweise bekomme. Schließlich will ich mich verbessern, wenn du das nicht mehr brauchst dann soll mir das auch recht sein.
Und hier jetzt noch meine Herangehensweise an das Problem
Public Sub Spalten_überprüfen()
Dim loLetzteQ As Long
Dim loLetzteZ As Long
Application.ScreenUpdating = False
loLetzteQ = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
loLetzteZ = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1
For i = loLetzteQ To 2 Step -1
If Application.WorksheetFunction.CountIf(Sheets("Tabelle2").Range("C:C"), Cells(i, 3)) > 1 Then
Rows(i).Delete
End If
Next i
loLetzteQ = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Tabelle1")
'Spalten ggf. anpassen, derzeit bis Spalte F (6)
.Range(.Cells(2, 1), .Cells(loLetzteQ, 6)).Copy Sheets("Tabelle2").Cells(loLetzteZ, 1)
End With
Application.ScreenUpdating = True
End Sub
Und ich erhebe hierbei nicht den Anspruch dass es nicht noch besser geht.
Gruß Werner
|