Hallo zusammen,
ich habe ein hoffentlich sehr kleines Problemchen.
Folgenden Code habe ich geschrieben:
Sub MakroTeilnehmerhinzufügen()
'Kalkulation grün
Range("E10").Select
ActiveCell.FormulaR1C1 = "1"
Do
Cells(10, 5) = Cells(10, 5) + 1
Loop Until Cells(33, 8) > "9%"
'Kalkulation gelb
Range("I10").Select
ActiveCell.FormulaR1C1 = "1"
Do
Cells(10, 9) = Cells(10, 9) + 1
Loop Until Cells(33, 12) >= "0%"
End Sub
Der funktioniert auch soweit wunderbar. Ich bekomme keine Fehlermeldung. In der ersten Loop Schleife möchte ich jedoch eigentlich die Bedingung haben, dass wenn die Celle (33,8) > 10% ist, dann soll der Loop beendet werden. Bei einstelligen ganzen Zahlen funktioniert alles wie es soll. Sobald ich jedoch in zweistellige ganze Zahlen wechseln möchte oder eine Kommazahl da einfüge, kommt nicht das Ergebnis, welches ich haben möchte. Gebe ich beispielweise in den ersten Loop anstatt der 9% eine 10% ein, beendet er den Loop bei 2,65%. Gebe ich anstatt einer Prozentzahl lediglich 0,1 ein oder 0,1% habe ich eine Endlosschleife aus der er sich nicht mehr befreien kann.
Ich hoffe sehr, dass ich es gut genug erklärt habe. Hoffentlich gibt es hier eine sehr einfache Lösung. Schonmal vielen lieben Dank an alle Helfer!
|