ich möchte in "A1" eine Zahl eintragen, deren Quersumme 20 sein soll. Ist die Quersumme bereits 20 soll die Zahl in "A1" bleiben, ansonsten solange um 1 erhöht werden bis die Bedingung eingetroffen ist.
Wie man die Quersumme mit VBA berechnet habe ich in diesem Beitrag gefunden https://www.herber.de/forum/archiv/140to144/141663_Quersumme_einer_Zahl.html
Den Rest schaffe ich aber nicht.
Ich hoffe es kann mir wer helfen wie man das umsetzt. Vielen Dank für eure Tipps im Voraus. Gruß Hans