Gern schicke ich auch die Testdatei.
Sub x()
Dim Anz as long
Do
Anz = Anz + 1
if anz > 1000000 then exit do 'damit die schleife nicht ewig läuft
Application.Calculate
Loop While Range("A1").Value 4 'hier zelle anpassen
msgbox "Um eine Übereinstimmung von 4 zu erreichen wurden " & Anz & " Durchläufe benötigt"
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen