Vielfaches

Forumthread: Vielfaches

Vielfaches

08.10.2019 19:45:50

Marco

Hallo zusammen,
ich habe folgende Frage:
Behälterfüllmenge 80 Füllmenge Vormaterial aktuell 11 Zukunft 10
Behälterfüllmenge 16 Füllmenge Vormaterial aktuell 20 Zukunft 16
Wie kann ich den Zukunftswert ermitteln, der Wert sollte ein vielfaches aus der Behälterfüllmenge sein und immer kleiner oder gleich der aktuellen Menge sein?
Eine gerade und nie eine ungerade Zahl darstellen.
Geht das überhaupt?
Besten Dank.
Marco

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Vielfaches

08.10.2019 19:58:13

Regina
AW: Vielfaches

08.10.2019 20:06:18

Marco
AW: Vielfaches

08.10.2019 20:37:53

Regina
AW: Vielfaches

08.10.2019 20:45:46

ChrisL
AW: Vielfaches

09.10.2019 10:36:19

Marco
AW: Vielfaches

09.10.2019 12:03:19

ChrisL
AW: Vielfaches

09.10.2019 12:19:03

Marco
AW: Vielfaches

09.10.2019 12:51:39

ChrisL

AW: Vielfaches

08.10.2019 19:58:13

Regina

Hi,
ein Vielfaches sollte doch immmer mehr als der Basiswert sein und nicht kleiner oder gleich?
gruß
Regina

AW: Vielfaches

08.10.2019 20:06:18

Marco

Hi, danke, dann liege ich geistig daneben. Welchen Ansatz muss ich gehen um mein gewünschtes Ergebnis zu erreichen?

AW: Vielfaches

08.10.2019 20:37:53

Regina

.. das kann ich Dir nicht sagen, rechnen kann man vieles, nur die Regeln müssen klar sein. Wie man von 11 zu 10, oder von 20 zu 16 kommt dafür gibt es viele Wege ....

AW: Vielfaches

08.10.2019 20:45:46

ChrisL

Hi Marco
Eine etwas grössere Daten-/Beispielmenge wäre hilfreich.
Auf eine gerade Zahl abrunden kannst du z.B. so...
=WENN(REST(B1;2)=1;B1-1;B1)
Beispiel 2 (16/20) wäre m.E. eine Wenn-Funktion
=WENN(B1>=A1;A1;"sonst")
Beispiel 1 (80/10) könnte der "grösste gemeinsame Teil" sein.
=GGT(A1;B1)
Falls dem so ist, dann müsste man die Formeln nur noch ineinander verschachteln.
cu
Chris

AW: Vielfaches

09.10.2019 10:36:19

Marco

Hallo Chris,
besten Dank, ich versuche es mit einem größerem Bsp.
Userbild

Besten Dank

AW: Vielfaches

09.10.2019 12:03:19

ChrisL

Hi Marco
Jetzt haben wir schon ganze 4 Datenbeispiele. Etwas dünn, für die Puddingprobe.
Alt+F11, Einfügen, Standardmodul, Code reinkopieren. Danach wie eine Formel verwenden
=Ingendwas(D1;F1)

Function Irgendwas(lngBeh As Long, lngAkt As Long) As Long
Dim i As Long
Application.Volatile
If lngAkt Mod 2 = 1 Then lngAkt = lngAkt - 1
If lngAkt > lngBeh Then
For i = lngAkt To 0 Step -2
If i / lngBeh = WorksheetFunction.Round(i / lngBeh, 0) Then
Irgendwas = i
Exit Function
End If
Next i
Else
For i = lngAkt To 0 Step -2
If lngBeh / i = WorksheetFunction.Round(lngBeh / i, 0) Then
Irgendwas = i
Exit Function
End If
Next i
End If
End Function

cu
Chris

AW: Vielfaches

09.10.2019 12:19:03

Marco

Chris, tausend DANK.
Wahnsinn, ich verstehe zwar Null, aber es funktioniert.
Hast du eine Buchempfehlung wie ich das lernen kann?
Besten Dank.

AW: Vielfaches

09.10.2019 12:51:39

ChrisL

Hi Marco
Ich kann dir selber nichts empfehlen, da ich nicht lese :)
(schau mal im Archiv, da die Frage nach Literatur schon öfters gekommen ist)
Zum Start würde ich aber einfach mal ein kleines Projekt nehmen (z.B. Eingabemaske Userform) und ein Youtube-Video schauen. Bei Bedarf kannst du dich dann immer noch mit Fachbüchern eindecken.
cu
Chris

Forumthread: Vielfaches

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread