Performance Problem

[bea die erste]

Hallo,

ich muss das Thema nochmal aufgreifen da ich zwar etwas weiter gekommen bin, abr bevor ich mir nen Wolf tippe an euch die Frage ob es nicht doch reduzierter geht.

Das habe ich mir zusammengebastelt.
Es läuft auch super prima.

Nur...muss ich das jetzt echt für jede Berechnung schreiben?
Oder gibt es da eine fortlaufende, also immer eine Zelle weiter?

Sub Einzel()
Range("E34") = Application.WorksheetFunction.CountIfs(Sheets("Tabelle5").Range("A:A"), Range("C32"), Sheets("Tabelle5").Range("G:G"), Range("E32"), Sheets("Tabelle5").Range("F:F"), Range("A34"))
Range("F34") = Application.WorksheetFunction.CountIfs(Sheets("Tabelle5").Range("A:A"), Range("C32"), Sheets("Tabelle5").Range("G:G"), Range("F32"), Sheets("Tabelle5").Range("F:F"), Range("A34"))
Range("G34") = Application.WorksheetFunction.CountIfs(Sheets("Tabelle5").Range("A:A"), Range("C32"), Sheets("Tabelle5").Range("G:G"), Range("G32"), Sheets("Tabelle5").Range("F:F"), Range("A34"))
Range("H34") = Application.WorksheetFunction.CountIfs(Sheets("Tabelle5").Range("A:A"), Range("C32"), Sheets("Tabelle5").Range("G:G"), Range("H32"), Sheets("Tabelle5").Range("F:F"), Range("A34"))
Range("I34") = Application.WorksheetFunction.CountIfs(Sheets("Tabelle5").Range("A:A"), Range("C32"), Sheets("Tabelle5").Range("G:G"), Range("I32"), Sheets("Tabelle5").Range("F:F"), Range("A34"))
Range("J34") = Application.WorksheetFunction.CountIfs(Sheets("Tabelle5").Range("A:A"), Range("C32"), Sheets("Tabelle5").Range("G:G"), Range("J32"), Sheets("Tabelle5").Range("F:F"), Range("A34"))
Range("K34") = Application.WorksheetFunction.CountIfs(Sheets("Tabelle5").Range("A:A"), Range("C32"), Sheets("Tabelle5").Range("G:G"), Range("K32"), Sheets("Tabelle5").Range("F:F"), Range("A34"))
Range("L34") = Application.WorksheetFunction.CountIfs(Sheets("Tabelle5").Range("A:A"), Range("C32"), Sheets("Tabelle5").Range("G:G"), Range("L32"), Sheets("Tabelle5").Range("F:F"), Range("A34"))
Range("M34") = Application.WorksheetFunction.CountIfs(Sheets("Tabelle5").Range("A:A"), Range("C32"), Sheets("Tabelle5").Range("G:G"), Range("M32"), Sheets("Tabelle5").Range("F:F"), Range("A34"))
Range("N34") = Application.WorksheetFunction.CountIfs(Sheets("Tabelle5").Range("A:A"), Range("C32"), Sheets("Tabelle5").Range("G:G"), Range("N32"), Sheets("Tabelle5").Range("F:F"), Range("A34"))
End Sub

Ich sag wie immer Danke fürs lesen

Grüße
bea

[Winny]

Hi

wenn ich mich nicht vertan habe sollte es dies auch tun

Code:

Sub Einzel()
  With Range("E34:N34")
     .Formula = "=COUNTIFS(Tabelle5!$A:$A,$C32,Tabelle5!$G:$G,E32,Tabelle5!$F:$F,$A34)"
     .Value = .Value
  End With
End Sub