Hallo,

ich habe folgenden Code, der sich auf eine Tabelle mit über 100000 Einträgen bezieht.
Gibt es da eine Möglichkeit, die Performance zu steigern oder zumindest so dass Excel sich nicht aufhängt?

Sub positionen_zaehlen()

letztezeile1 = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
letztezeile3 = Sheets(3).UsedRange.SpecialCells(xlCellTypeLastCell).Row

Application.ScreenUpdating = False
Dim a As Integer


Cells(6, 8).FormulaR1C1 = "=COUNTIF(Tabelle2!R2C2:R" & letztezeile3 & "C2,Tabelle1!RC[-7])"
Cells(6, 8).AutoFill Destination:=Range("H6:H" & letztezeile1)

Range("H6:H" & letztezeile1).Copy
Range("H6:H" & letztezeile1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Application.ScreenUpdating = True

End Sub