Dim x As Double
   Dim f As Double
   Dim fl As Double     'Neu Fläche der langen Seitenkanten
   Dim fb As Double    'Neu Fläche der kurzen Seitenkanten
 
   Dim y As Double
   Dim h As Double
   Dim max As Double
   Dim v As Double
 
   ' Wir haben ein Blatt Papier DIN A4 und somit eine gegebene Grundfläche,
   ' die aber durch das Ausschneiden von 4 Quadraten verkleinert wird.
   ' Somit mal eine konstante Größe: x
 
   x = s1 * s2
 
   ' Eine Seite eines Quadrats entspricht der späteren Höhe der Schachtel = h
   ' Wir brauchen nur noch eine Schleife, die h kontinuierlich um 1 erhöht. For 
   ' ... Next
   For h = 0.001 To s1 Step 0.001
       ' Eine weitere Größe: y = (h ^ 2) * 4 und (l * b) = x - y
       y = (h ^ 2) * 4
       fl = 2 * (s1 - 2 * h) * h              'Neu
       fb = 2 * (s2 - 2 * h) * h             'Neu
       f = x - y - fl - fb                           'Neu
       ' Wir haben die Volumenformel: (l * b) * h
       v = f * h
 
      ' Wir brauchen eine Variable, die den momentan größten Wert speichert.
      ' If > Then
       If v > max Then
         max = v
       ElseIf v < max Then
        '  Wir brauchen eine Abbruchbedingung ... Naja ... wenn das Quadrat
        ' so groß wie die kleinste Seite das Blattes ist ... brauchen wir nicht
        ' mehr weiter rechnen.
         Exit For
       End If
   Next
   MsgBox h & " // " & max

Tschaui
Woellmi