Quersumme berechnen mit indizierte schleife Excel Vba

[MadMax7496]

Hey leute,
Ich versuche mich im moment an einer aufgabe, bei der ich mit (for i = 1 to n ;
Next i) eine quersumme berechnen lassen soll. Leider komme ich grad nicht weiter und würdr mich über hilfe freuen. Auf den bildern sieht man den pap. Außerdem habe ich noch meinen versuch hinzugefügt.

 

[Bagbag]

Ich kenne VBA zwar nicht, aber wenn ich mein Wissen von anderen Sprachen übertrage:

• textbox1.Value wird effektiv nicht genutzt
• n gibt es nicht
• textbox2.Value ist immer gleich - ein leerer String

Sieht für mich nicht so als ob du Anfänger wärst, sondern dass du absolut NULL Ahnung von dem hast, was da vor dir ist. Demnach wäre es am besten, wenn du versucht das selbst zu Lösen und erst wieder kommst, wenn du konkrete Fragen hast. Und das auch erst, nachdem Google zu deiner Frage wie du sie hier eintippst nichts findet.

 

[Jirko]

Naja, die Aufzeichnungen waren ja schon gar nicht so schlecht. Aber die Übertragung nach Excel ist, wie Bagbag schon gesagt hat, sehr schludrig erfolgt.

1. Wieso belegst du deine Variable für die Quersumme mit dem Wert aus dem ersten Textfeld und überschreibst ihn dann wieder mit 0? (Wo kommt Z initial her? hust)
2. Textbox2.Value = Textbox2.Value soll was genau bewirken? Was ist denn dein Ergebnis nach allen Rechenschritten?
3. Für deine Schleife müsstest du in der Tat wissen, wo das Ende (n) sein sollte. Sollst du tatsächlich so eine Schleife nehmen? Einfacher wäre imho, das Abbruchkriterium direkt in "Do while ..." zu definieren.

Dann klappt das auch so wie geplant..

 

[Bagbag]

Wo kommt Z initial her?

Zeile 2: Dim Z As Long. Ich nehme an das ist dann default 0.

 

[Jirko]

Ja, das weiß ich - ich hab mich schlecht ausgedrückt. Ich meine nicht, wo der Datentyp definiert wird, sondern wo Z eigentlich das erste mal einen Wert bekommen sollte. Z, nicht Qs, sollte textbox1.value sein. Jetzt hab ich es verraten.

 

[Bagbag]

Jetzt hab ich es verraten.

Mensch

 

[MadMax7496]

Also ich wollte es mit loop ausprobieren.
Wenn man jetzt einen wert aus der textbox1 bekommt also z und der dann z.b 253 ist dann müsste dz = z mod 10 dz = 3 sein.
Danach bleibendann 253 / 10 = 25 über und man müsste von vorne anfangen und die 3 + die nächsten 2 loops rechen, nur da weiß ich grad nicht weiter. Danke schonmal !

 

[Bagbag]

Mathematik mit Strings ist abenteuerlich (außer VBA ist hier ne Ausnahme?).

 

[MadMax7496]

Mathematik mit Strings ist abenteuerlich (außer VBA ist hier ne Ausnahme?).

Wusste leider nicht wie ich das Problem, sonst löse damit Z = textbox1.Value ist

 

[Bagbag]

Was musst du denn machen um ein String in einem Integer zu speichern?

PS:
Anstatt Fotos lieber Screenshots nutzen.

PPS:
Anstatt Bilder lieber das hier nutzen:
[CODE]Quelltext[/CODE]

 

[G-Red]

Lösung deines Problems klick
Du mußt nur das ganze an deine Felder anpassen.

Beim nächsten mal Google anschmeißen, war der erste link mit dem Begriff "VBA Quersumme"

 

[Bagbag]

@G-Red und genau so ist der Lerneffekt nahe 0. Er lernt nicht eine Lösung zu erarbeiten, er lernt nicht sich passende Fragen zu stellen, nein - er lernt nicht mal zu Googlen.

 

[G-Red]

@G-Red und genau so ist der Lerneffekt nahe 0. Er lernt nicht eine Lösung zu erarbeiten, er lernt nicht sich passende Fragen zu stellen, nein - er lernt nicht mal zu Googlen.

Weiß ich... aber wenns davor nicht geklappt hat mit dem googeln und dem nachdenken, wird es für TE schwierig. Außerdem sitzt in der Klausur keiner der die Lösung vorsagt.

Aus diesem Grund erlöse ich einfach den rest von uns die sich hier noch eventuell aufregen werden, was der Mensch anders machen sollte usw. usf. .

 

[Bagbag]

Außerdem sitzt in der Klausur keiner der die Lösung vorsagt.

Umso wichtiger, dass er lernt selbst drauf zu kommen.

 

[MadMax7496]

Lösung deines Problems klick
Du mußt nur das ganze an deine Felder anpassen.

Beim nächsten mal Google anschmeißen, war der erste link mit dem Begriff "VBA Quersumme"

Tatsächlich habe ich das auch getan, nur hatten wir Len noch nicht.
Deswegen dachte ich, dass man dies nicht so lösen soll.

 

[G-Red]

Tatsächlich habe ich das auch getan, nur hatten wir Len noch nicht.
Deswegen dachte ich, dass man dies nicht so lösen soll.

Du kannst es auch mit modulo Lösen, aber dafür mußt du z.B. bei Wikipedia nachgucken. Dort wird nämlich erklärt wie es damit gelöst werden kann. Alternativ YouTube

 

[MadMax7496]

Muss ich mal schauen ob ich das verstehe, weil es das nur von anderen programmiersprachen gibt und ich nicht mal vba ansatzweise kann. Trotzdem danke.

 

[abcddcba]

Also wo genau scheitert es jetzt?
Du hast ja schon ne Schleife und den Modulo Operator. Waere noch schoen wenn du jetzt Zahlen als Datentyp benutzt, sonst macht es keinen Sinn.
Und dann kannst du doch einfach den Wert dz in jeder Iteration zu einer Variable fuer die Quersumme (die musst du noch erstellen) dazu addieren, oder nicht?