Hallo Steppo,
ich habe einige Änderungen (fett) eingefügt, um die Ablauffähigkeit herzustellen.
Private Sub CommandButton1_Click()
Dim Feld(30) As Integer 'd.h. -32.768 <= Feld(i) <= 32.767
Dim i As Integer
For i = 0 To 30 'die Array beginnen standardmäßig bei 0. Mit 1 wird die 7. Zeile nicht erfasst.
Feld(i) = Cells(2, 7 + i).Value
Next i
Dim gesamtA As Integer 'setzt genügend kleine Zahlen voraus, dass -32.768 <= gesamtA <= 32.767, ev. besser als Double oder Long
Dim a As Integer
For a = 0 To 30 'du könntest auch i wiederverwenden oder beide Schleifen zusammenführen
gesamtA = gesamtA+feld(a)'Feld(1) + Feld(1 + a)
Next a
TextBox1.text = Cstr(gesamtA) '?? Text.texbox1 = "gesamtA", du musst die Zahl in eine Zeichenkette umwandeln
End Sub
Das Makro lässt sich natürlich wesentlich vereinfachen, doch sollte ein sich Anfänger nicht gleich zu viel vornehmen. Ich freue ich, dass du versuchst, eigene Makros zu schreiben. Dieses hätte fast funktionieren können.
Gruß
Holger