Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Palettenberechnung

Forumthread: Palettenberechnung

Palettenberechnung
22.08.2017 09:56:01
Bastian
Hallo zusammen,
ich habe folgendes Problem bzw suche dafür Hilfe:
Es müssen Paletten gepackt werden.
Auf jede Palette passen eine bestimmte Anzahl an Kartons.
Es können jedoch um keine 1/2 Paletten auszuliefern x Kartons zusätzlich drauf gepackt werden.
Ich habe also drei Eingabe Felder:
Anzahl der Kartons
Anzahl der Kartons auf Palette normal
Anzahl der Kartons auf Palette Max
Als Ausgabe benötige ich:
Anzahl der Paletten Normal
Anzahl der Paletten Max
Reste Palette
Diese Reste Palette soll nur benutzt werden wenn die Kartons auf den Max Paletten nicht ausreichen um den Rest auf zu brauchen.
Bsp. 1
Anzahl der Kartons 100
Anzahl der Kartons auf Palette normal 40
Anzahl der Kartons auf Palette Max 5
Anzahl der Paletten Normal 2
Anzahl der Paletten Max 0
Reste Palette 1
Bsp.2
Anzahl der Kartons 90
Anzahl der Kartons auf Palette normal 40
Anzahl der Kartons auf Palette Max 5
Anzahl der Paletten Normal 0
Anzahl der Paletten Max 2
Reste Palette 0
Ich hoffe das passt so mit der Erklärung.
Besten dank schon jetzt
Bastian
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: und wie sieht Deine Exceldatei dazu aus? owT
22.08.2017 10:59:52
...
Gruß Werner
.. , - ...
AW: Palettenberechnung
22.08.2017 11:14:22
Chris
Ist das eine Aufgabe aus der Matheolympiade?
Warum wird nicht immer maximal gepackt? Was dann Rest ist, ist halt Rest.
Bei 100 Paletten würde das ja bedeuten, dass lieber 12 (ca.) mehr als eine halbe geschickt werden müssten...
Ansonsten die Anzahl durch die Maximalbeladung teilen und wenn dann noch ein Rest bleibt doch lieber die Normalbeladung nehmen!?
Anzeige
AW: Palettenberechnung
22.08.2017 11:21:07
mmat
Hi,
das ist jetzt sehr Quick und Dirty und muß nach getestet werden, aber so könnte es gehen:
Sub Optimieren()
Dim P As Long, K As Long, R As Long
Dim Anz As Long, AnzPlusR As Long, Rest As Long, ReserveTotal As Long, RestRest As Long
P = Cells(1, 2) 'Anzahl der Pappschachteln
K = Cells(2, 2) 'Kapazität der Palette
R = Cells(3, 2) 'Reserve pro Palette
Anz = P \ K: Rest = P Mod K: AnzPlusR = 0: RestRest = R
ReserveTotal = Anz * R
If ReserveTotal  (Rest + K): Rest = Rest + K: Anz = Anz - 1: ReserveTotal = ReserveTotal - _
K: Wend 'Anzal der Paletten optimieren
While Rest > 0: Anz = Anz - 1: AnzPlusR = AnzPlusR + 1: RestRest = Application. _
WorksheetFunction.Min(Rest, RestRest): Rest = Rest - R: Wend
fertich:
Cells(5, 2) = AnzPlusR 'Anzahl mit genutzter Reserve
Cells(5, 3) = RestRest 'Anzahl der Restschachteln auf der letzten AnzPlusR-Palette
Cells(6, 2) = Anz 'Anzahl normal
Cells(7, 2) = IIf(Rest > 0, 1, 0) ' Restepalette (0 oder 1)
Cells(7, 3) = IIf(Rest > 0, Rest, 0) 'Schachteln auf Restpalette
End Sub
Wenn die Gesamtoptimiertung nicht gewünscht ist, streiche die Zeile die mit "While ReserveTotal" beginnt
Anzeige
AW: Palettenberechnung
22.08.2017 12:44:34
mmat
Bei näherer Betrachtung ist mein Algorithmus ziemlich unnütz, wenn immer die maximale Kapazität der Paletten ausgenutzt wird (Chris hat recht!).
In diesem Fall gilt einfach: 
Anz = P \ (K+R): Rest = P Mod (K+R)

AW: Palettenberechnung
22.08.2017 13:30:54
Chris
der schöne Code, was eine Verschwendung ;)
sah aber sehr überzeugend aus.
Um die Beladung der Restpalette zu maximieren, weil es z.B. billiger ist eine normalbeladene anstatt einer vollbeladenen zu schicken müsste man dann nur noch solange die vollbeladenen abstapeln, bis die Restpalette voll ist...
und natürlich dabei aufpassen, dass nichts herunterfällt.
Anzeige
Anzeige

Infobox / Tutorial

Palettenberechnung leicht gemacht

Schritt-für-Schritt-Anleitung

Um die Palettenberechnung in Excel durchzuführen, kannst du die folgenden Schritte befolgen:

  1. Excel öffnen: Starte Microsoft Excel und öffne ein neues Arbeitsblatt.

  2. Eingabefelder erstellen: Erstelle drei Eingabefelder für:

    • Anzahl der Kartons
    • Anzahl der Kartons auf Palette normal
    • Anzahl der Kartons auf Palette Max

  3. Ausgabefelder definieren: Füge Ausgabefelder für:

    • Anzahl der Paletten Normal
    • Anzahl der Paletten Max
    • Reste Palette

  4. VBA-Code einfügen: Gehe auf „Entwicklertools“ -> „Visual Basic“ und füge den folgenden Code in ein neues Modul ein:

    Sub Optimieren()
   Dim P As Long, K As Long, R As Long
   Dim Anz As Long, AnzPlusR As Long, Rest As Long, ReserveTotal As Long, RestRest As Long
   P = Cells(1, 2) 'Anzahl der Kartons
   K = Cells(2, 2) 'Kartons pro Palette normal
   R = Cells(3, 2) 'Reserve pro Palette
   Anz = P \ K: Rest = P Mod K: AnzPlusR = 0: RestRest = R
   ReserveTotal = Anz * R
   If ReserveTotal < (Rest + K) Then
       Rest = Rest + K
       Anz = Anz - 1
       ReserveTotal = ReserveTotal - K
   End If
   While Rest > 0
       Anz = Anz - 1
       AnzPlusR = AnzPlusR + 1
       RestRest = Application.WorksheetFunction.Min(Rest, RestRest)
       Rest = Rest - R
   Wend

   Cells(5, 2) = AnzPlusR 'Anzahl mit genutzter Reserve
   Cells(5, 3) = RestRest 'Anzahl der Restkartons auf der letzten AnzPlusR-Palette
   Cells(6, 2) = Anz 'Anzahl normal
   Cells(7, 2) = IIf(Rest > 0, 1, 0) ' Restepalette (0 oder 1)
   Cells(7, 3) = IIf(Rest > 0, Rest, 0) 'Schachteln auf Restpalette
End Sub

  5. Code anpassen: Stelle sicher, dass die Zellenreferenzen korrekt sind, um die Eingaben und Ausgaben darzustellen.

  6. Makro ausführen: Führe das Makro aus, um die Berechnung durchzuführen.

Häufige Fehler und Lösungen

  • Fehler: Falsche Zellreferenzen: Überprüfe, ob die Zellreferenzen im VBA-Code mit denen in deinem Arbeitsblatt übereinstimmen.
  • Problem: Negative Werte: Stelle sicher, dass die Anzahl der Kartons immer größer ist als die maximale Kapazität einer Palette.
  • Kein Ergebnis: Kontrolliere, ob das Makro korrekt ausgeführt wurde und keine Laufzeitfehler aufgetreten sind.

Alternative Methoden

  • Palettenrechner online: Es gibt zahlreiche kostenlose Tools wie „kartons auf palette rechner online“, die dir die Berechnung erleichtern können.
  • Excel-Add-Ins: Suche nach spezialisierten Excel-Add-Ins, die Palettenpackschemata erstellen können.

Praktische Beispiele

  1. Beispiel 1:

    • Anzahl der Kartons: 100
    • Kartons auf Palette normal: 40
    • Kartons auf Palette Max: 5
    • Ausgabe:
      • Anzahl der Paletten Normal: 2
      • Anzahl der Paletten Max: 0
      • Reste Palette: 1

  2. Beispiel 2:

    • Anzahl der Kartons: 90
    • Kartons auf Palette normal: 40
    • Kartons auf Palette Max: 5
    • Ausgabe:
      • Anzahl der Paletten Normal: 0
      • Anzahl der Paletten Max: 2
      • Reste Palette: 0

Tipps für Profis

  • Verwende Named Ranges: Statt Zellreferenzen direkt im Code zu nutzen, kannst du benannte Bereiche verwenden, um die Lesbarkeit zu verbessern.
  • Nutze bedingte Formatierungen: Hebe die Felder hervor, die eine Überprüfung benötigen, z. B. wenn die Kartons die Kapazität überschreiten.
  • Automatisiere die Validierung: Füge eine Fehlerüberprüfung hinzu, um sicherzustellen, dass die Eingaben gültig sind, bevor die Berechnung erfolgt.

FAQ: Häufige Fragen

1. Wie viele Kartons passen auf eine Palette? Das hängt von der Größe der Kartons und der Palette ab. Du kannst die Anzahl der Kartons auf einer Europalette leicht mit einem „kartons auf palette rechner“ ermitteln.

2. Kann ich die Berechnung auch ohne VBA durchführen? Ja, du kannst die Berechnung auch mit einfachen Excel-Formeln durchführen, indem du die entsprechenden Formeln in die Zellen einfügst.

3. Wo finde ich einen Palettenrechner online? Es gibt viele Websites, die kostenlose Palettenrechner anbieten. Suche nach „palettenrechner online“ für passende Angebote.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige