Suche Formel

[wbendl]

Hi!

Hier der Code für VBA:


Dim lngZahl As Long
Dim lngTempZahl As Long
Dim lngTeilZahl As Long

lngZahl = 365
lngTeilZahl = 50

lngTempZahl = lngZahl

Do While lngTempZahl > 0
If lngTempZahl >= lngTeilZahl Then
Debug.Print lngTeilZahl
lngTempZahl = lngTempZahl - lngTeilZahl 'Verwendete Zahl subtrahieren
lngTeilZahl = lngTeilZahl - 1 'Nächstkleinere Zahl versuchen
Else 'Nur (noch) eine Zahl notwendig
Debug.Print lngTempZahl
lngTempZahl = lngTempZahl - lngTempZahl 'Bis 0 subtrahieren
End If
Loop

Funktioniert genau wie Zappel erklärt hat.
Die Ausgabe mußt du für deine Zwecke anpassen.


mfg

WB