Optimierung zum Sägen über Excel?

Hey,

ich habe so eine ähnliche Frage hier gefunden:

https://www.gutefrage.net/frage/wie-berechne-ich-den-optimalen-verbrauch-ueber-excel

Ich brauche es auch für die Arbeit und es geht in die Richtung weswegen ich anhand eines Lösungsvorschlages eines Kommentars eine kleine Tabelle erstellt habe.

Mein Problem ist nur, dass ich beim Sägen von bestimmten Aluteilen als Bestand immer Teile von 6000 mm habe, aber viele verschiedene Größen und Anzahl zum Sägen.

Jetzt ist meine Frage:

Wie kann ich eine Excel Tabelle erstellen, die mir anzeigt, wie ich am besten Sägen soll, um so wenig Rest wie möglich am Ende zu haben?

Im Bild seht ihr ein kurzes Beispiel und mein Problem ist, dass ich von den 6000 mm 2 Stück von 2200 sägen kann, dann habe ich einen Rest von 1600 übrig und gibt es ne Möglichkeit, die Formel so zu setzen, dass es mir dann anzeigt, dass ich mit dem Stück dann die 1590 mm sägen soll? Und dann so weiter, dass es mir danach anzeigt dass noch 1 von 2200 übrig ist und wie viele ich von 6000 Teilen insgesamt brauche?

Habe es heute auf der Arbeit recherchiert und probiert und bin auf die Frage von wie es der Zufall so will von gestern darauf getroffen.

Ich bin mit meinem Latein am Ende.

Hoffe jemand kann mir helfen.

Liebe Grüße

auf dem Bild fehlt die Angabe, dass ein Teil 6000 mm Länge hat

und das mit der benötigten Länge war nur eine Denkhilfe für mich selbst, brachte mir aber nix

Bild zum Beitrag
Computer, Microsoft Excel, optimierung
Wie kann ich bei Excel einen Button erstellen der abspeichert?

Hallo,

Ich würde gerne bei Excel einen Button erstellen, der die Excel mappe auf dem Desktop abspeichert. Der Name der Datei soll in Zeile A1 stehen.

Den Button habe ich bereits erstellt. Ich scheitere noch bei dem Makro, weil ich keine ahnung davon habe. Ich habe etwas im Internet gefunden, was meinen Vorstellungen nahe kommt. Ich habe versucht es anzupassen, aber irgendwie klappt das alles nicht.

Sub Schaltfläche1_Klicken()
Dim lw_pfad As String
lw_pfad = ActiveSheet.Range("A1").Value
lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an, wo die Datei gespeichert werden soll." & Chr(13) & Chr(13) & "(Ihre Eingabe wird in A1 als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
  MsgBox "Die Datei wird nicht gespeichert, da Sie [Abbrechen] gedrückt oder nichts eingegeben haben.", , "Abbruch"
  Exit Sub
Else
  If Right(lw_pfad, 1) <> "\" Then lw_pfad = lw_pfad & "\"
  ActiveSheet.Range("A1").Value = lw_pfad
Rem MsgBox lw_pfad
ActiveWorkbook.SaveAs lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls gespeichert.", , "OK"
End If
End Sub

Das ist, was ich bis jetzt habe.

Vielen Dank für die Hilfe im Voraus!

Computer, Microsoft, Microsoft Excel, Excel 2010, Technik, Programm, programmieren, Makro, VBA, Technologie, Spiele und Gaming

Meistgelesene Beiträge zum Thema Microsoft Excel