Makro ohne select
Frank
Moin
Ich habe das nachstehende Makro geschrieben. Durch die vielen Select-Anweisungen ist es aber auf meinem alten Rechner sehr langsam.
Kann mir bitte jemand einen Vorschlag machen, wie ich die Befehle ohne select zusammenfassen kann?
Danke schon mal im Voraus für die Hilfe.
Sub ausschneiden_und_kopieren()
Dim i As Integer ' Zählerschleife
Dim T1 As Worksheet 'Tabelle1
Dim T2 As Worksheet 'Tabelle2
Set T1 = Worksheets("Tabelle1")
Set T2 = Worksheets("Tabelle2")
Dim n As Integer
Dim lzeile As Integer
T1.Activate
T1.Range("a1").Select
Range(Selection, Selection.End(xlDown)).Select 'bildet Bereich bis letzte gefüllte Zeile
n = Selection.Count 'gibt Anzahl des Bereichs aus
For i = n To 2 Step -1
If Cells(i, 14) = "2" Then
Rows(i).Select
Application.CutCopyMode = False
Selection.Copy
T2.Activate
lzeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(lzeile).Select
ActiveSheet.Paste
T1.Activate
Rows(i).Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End If
Next i
End Sub
Frank