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!