04.05.2015, 21:11
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
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