Fehlersuche
drKnilch
ich bin absoluter neueinsteiger in VBA und hoffe ihr könnt mir weiter helfen.
Ich hab mir jetzt ein Programm zusammengebastelt, allerdings krieg ich´s nicht zum laufen. Irgendwas stimmt wohl an der Summenformel nicht, ich krieg aber nicht raus, was da faul ist...
Hier die Zeilen:
Sub DoLoop1()
Dim Ausgabe As Single
Dim Eingabe As Single
Dim maxKraft As Single
Dim Summe As Single
Dim i As Single
Dim Startwert As Single
Eingabe = Worksheets("Tabelle1").Range("C5").Value 'Übernimmt Wert aus Zelle maximale Wasserhö _
_
_
he
maxKraft = Worksheets("Tabelle1").Range("C7").Value 'Übernimmt Wert aus Zelle maximale _
Biegekraft
i = Eingabe + 1
Startwert = Eingabe + 2
Summe = 0
Do While Summe 1000 Then
MsgBox " Endlosschleife"
Exit Do
End If
Loop
Worksheets("Tabelle1").Range("F11").Value = Summe 'schreibt Summen-Wert in Zelle- Fläche1
End Sub
Es soll mir Zeilen nach oben solange summieren, bis der Wert maxKraft erreicht ist. Dieser Wert soll dann ausgegeben werden.
Wäre super, wenn ihr mir weiterhelfen könntet!
Anzeige