Summe 1 bis n
Paul
Kann mal bitte mir jemand helfen? Suche die Summe von 1 bis n. Darf keine negativen Zahhlen eingeben sonst Ausgabe Summe = 0. Die Startvoraussetzungen Summe_Anfang = 0 und Anfang_i = 1.Nach erfolgreicher Abfrage i n ist( Schleife).
Kann jeman sich den Prog.code anschauen und mir sagen was ich Flsch mache !!!
Sub Summe_der_Zahlen()
Dim intn As Integer
Dim intsa As Integer
Dim intia As Integer
Dim intig As Integer
Dim intsg As Integer
intn = InputBox("Gib eine natürliche Zahl ein")
intsa = 0
intia = 1
If intia