Loop Until
07.05.2022 09:28:59
Henry
ich habe noch ein Problem mit einer Schleife.
Und zwar möchte ich alle benachbarten Zellen in einer Spalte so lange füllen bis der Wert 500 erreicht ist am Beispiel eingabe (Inputbox) = 4.
Das klappt leider nur bedingt.
Denn es wird in der Zelle E1 noch 1.024 eingetragen..
Dieser Wert soll aber nicht mehr ausgegeben werden, die Schleife soll aufhören, wenn in D1 256 stehen.
Mein Code sieht wie folgt aus:
Dim eingabe As String, vquadrat As String
eingabe = InputBox("Bitte eine Ganzzahl eingeben.", "Eingabe")
vquadrat = eingabe * eingabe
Cells(1, 2) = vquadrat
Dim i As Integer
Do
i = i + 1
Cells(1, i + 2).Value = Cells(1, i + 1) * eingabe
Loop Until Cells(1, i + 2).Value > 500