Morgen,

hey ich suche jemanden der mir helfen kann ich bruache VBA sonst eig nicht aber hierbei hat es sich angeboten ich will von Zelle B7 bis zwlle B37 alle zahlen auslesen und siele dann miteinander addieren

hier mein code ich glaueb der ist scheiße

Private Sub CommandButton1_Click()
Dim Feld(30) As Integer
Dim i As Integer
For i = 1 To 30
Feld(i) = Cells(2, 7 + i).Value
Next i

Dim gesamtA As Integer
Dim a As Integer
For a = 1 To 30
gesamtA = Feld(1) + Feld(1 + a)
Next a



Text.texbox1 = "gesamtA"
End Sub

Danke für hilfe

MFG Steppo