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
|