VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Verschnittproblem mit Solver lösen

Gruppe

Allgemein

Bereich

Solver

Thema

Verschnittproblem mit Solver lösen

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