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
Vielen Dank!