Berechnungsschleife

[Hammaballe]

Hallo,
habe folgendes Problem mit meinem folgenden Code:

With ActiveSheet
For xxx = 1 To 54

If Nullxxx = True Then
Cells(4, xxx) = Cells(4, xxx) - Cells(3, xxx)
Cells(5, xxx) = Cells(5, xxx) - Cells(3, xxx)
Cells(6, xxx) = Cells(6, xxx) - Cells(3, xxx)
Cells(7, xxx) = Cells(7, xxx) - Cells(3, xxx)
Cells(8, xxx) = Cells(8, xxx) - Cells(3, xxx)
Cells(9, xxx) = Cells(9, xxx) - Cells(3, xxx)
Cells(10, xxx) = Cells(10, xxx) - Cells(3, xxx)
Cells(11, xxx) = Cells(11, xxx) - Cells(3, xxx)
Cells(12, xxx) = Cells(12, xxx) - Cells(3, xxx)
Cells(13, xxx) = Cells(13, xxx) - Cells(3, xxx)
Cells(14, xxx) = Cells(14, xxx) - Cells(3, xxx)
Cells(15, xxx) = Cells(15, xxx) - Cells(3, xxx)
Cells(16, xxx) = Cells(16, xxx) - Cells(3, xxx)
Cells(17, xxx) = Cells(17, xxx) - Cells(3, xxx)
Cells(18, xxx) = Cells(18, xxx) - Cells(3, xxx)
Cells(19, xxx) = Cells(19, xxx) - Cells(3, xxx)
End If

Next
End With

Habe 54 checkboxen, die mit Null1 bis Null54 durchnummerriert sind. Wenn einer der Checkboxen aktiviert ist soll auch in der Spalte die die nummer der checkbox hat die obrigen berechnungen ausgeführt werden also die Zellen 4-19 dieser Spalte - Zelle 3 dieser Spalte....
Kann jmd meinen Fehler hier finden?
Programm läuft durch rechnet aber nicht...
Vielen Dank schonmal
mfg
Steff

 

[DrSoong]

Bei Cells() denke ich mal, du verwendest Excel, leider kennt Excel keine Indizes bei Elementen.

Die Cells()-Zeilen könnten ja noch funktionieren, das Problem ist aber, dass du die Variable xxx in eine andere Variable einbauen willst, so geht das leider aber nicht.

Du müsstest deine Controls z.B. über die Controls-Auflistung abrufen und dementsprechend dann deine Felder befüllen.


Der Doc!