Clever-Excel-Forum

Seiten: 1 2

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

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

Seiten: 1 2

bea die erste

Winny