Vergleich einer Summe und eines Produkts
06.07.2004 07:46:44
Patrick
ich möchte immer zehn aufeinanderfolgende Zellen in einer Spalte vergleichen, ob 10 aufeinanderfolgende Werte enthalten sind oder nicht.
For i = 1 to 1000
Checksumme1 = WorksheetFunction.Sum(Range("A" & i, "A" & i + 9))
Checksumme2 = WorksheetFunction.Product(Range("A" & i * 10 + 45))
If Checksumme1 = Checksumme2 then...
next i
Für Checksumme zwei bekomme ich einen Fehler. Wie bekomme ich hierfür das Produkt + Addition von 45?
Viele Grüsse,
Patrick