|
ich muss auch mehr kommentiern.
zumindest bis ich es verstanden habe und um mir am Anfang klatr zu machen, was ich überhaupt möchte.
habe nun auch mit hilfe von einem Freund den Fehler gefunden, was eigentlich auch ganz logisch ist.
es fehlte einfach eine weitere Variable.
Sub SchleifeAdierenDerWerte()
Dim i As Integer
Dim Summe As Integer
Dim Zwischensumme As Integer
For i = 1 To 10 'geht von 1 - 10 die Schleife "i" durch
Zwischensumme = ActiveWorkbook().Sheets("Spiele").Cells(i, 2).Value 'geht die Schleifen durch
Summe = Summe + Zwischensumme 'aktuaisiert Variable "Summe" und recht immer wieder die zwischensumme dazu
Next i
ActiveWorkbook().Sheets("Spiele").Cells(11, 2).Value = Summe 'Schreibt den Wert Summe auf Tabellenblatt Spiele Zelle "B11"
End Subjetzt schaut es so aus.
was ich aber nicht verstehe ist. wenn ich das den code anstatt auf eine Spalte auf eine Reihe abändern möchte, müsste ich follgende zeile wie darauffolgend abändern.
Zwischensumme = ActiveWorkbook().Sheets("Spiele").Cells(i, 2).Value 'geht die Schleifen durch
zu
Zwischensumme = ActiveWorkbook().Sheets("Spiele").Cells(2, i).Value 'geht die Schleifen durch
aber anstatt Zeile 2 zusammenzurechne, bekomme ich einen Laufzeitfehler 13 "Typen unverträglich
|