HERBERS Excel-Forum - die Beispiele

Thema: Verschnittproblem mit Solver lösen

Home

Gruppe

Allgemein

Problem

Wie kann ich ein Verschnittproblem mit dem Solver lösen? Es stehen Rohrstücke verschiedener Länge zur Verfügung und eine bestimmte Menge soll geliefert werden. Wie kann die günstigste Kombination ermittelt werden?

Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.
ClassModule: frmMove

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdTop_Click()
   Dim sTxt As String
   If lstValues.ListIndex = -1 Then
      Beep
      MsgBox "Sie müssen ein Element auswählen"
      Exit Sub
   End If
   With lstValues
      If .ListIndex > 0 Then
         sTxt = .List(.ListIndex - 1)
         .List(.ListIndex - 1) = .List(.ListIndex)
         .List(.ListIndex) = sTxt
         .Selected(.ListIndex - 1) = True
      End If
   End With
End Sub

Private Sub cmdDown_Click()
   Dim sTxt As String
   If lstValues.ListIndex = -1 Then
      Beep
      MsgBox "Sie müssen ein Element auswählen"
      Exit Sub
   End If
   With lstValues
      If .ListIndex < .ListCount - 1 Then
         sTxt = .List(.ListIndex + 1)
         .List(.ListIndex + 1) = .List(.ListIndex)
         .List(.ListIndex) = sTxt
         .Selected(.ListIndex + 1) = True
      End If
   End With
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
   Dim iMonth As Integer
   For iMonth = 1 To 12
      lstValues.AddItem Format(DateSerial(1, iMonth, 1), "mmmm")
   Next iMonth
End Sub
StandardModule: Modul1

Sub CallForm()
   frmMove.Show
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Solver

Solver über Makro laufen *hülfe* Allgemeine Frage zur Fehlerbehandlung
allgemeine Fragen zu einer Datenbank Solvereinsatz konkret möglich?
Solver feste Parameter Solver
Zielwertsuche oder Solver oder? Nebenbedinung Solver DRINGLICH!
Solver macht nix Solver-Iteration mit gleicher Nebenbedingung über
allgemein Solver-Automatisierung
Solver per Knopfdruck starten Solver-Fehlermeldung "Werte konvergieren nicht"
solver starten allgemein: VBA lernen?
Hide-Methode-Allgemeine Frage Formelassistent allgemein
allgemeingültig Blattschutz aufheben Solver - Binärbedingung wird nicht eingehalten
Solver gibt nicht die optimale Lösung aus allgemeine Frage...
Solver - allgemein Solver - allgemein
Solver - Ausgangswerte relevant für Lösung??? Frage zum Forum allgemein
Solver Mal wieder der solver
Allgemeine Frage - Finanz-Planungsmodell Makro mit Solver nicht für jede Zelle
Solver Problem Nullstelle in Normalverteilung Mehrfachberechnung linearesGleichungssystem-Solver
Pivoteingrenzung Formel verallgemeinern Hilfe für Makroerstellung bei Solver
makro verallgemeinern Office allgemein, bitte hilfe
allgemein Solver Nebenbedingungen
Allgemeine Frage zu Makro Komprimieren möglich? Allgemeine Frage
Solver - ich kanns nicht :-(( Solver-Parameter, Zielwert als Formel eingeben
Wie rechnet der Solver? Excel Solver
Massen - Lösung mit Solver solver
Solver einschränken Solver-Problem
Solver: veränderliche Zellen bedingte Formatierung allgemein