Private Sub Demo_Click()
Dim Anzahl As Integer
Dim Faktor1 As Integer
 
Zuschnitte.Text = Anzahl
Select Case Anzahl
  Case 40 To 50
  Faktor1 = 5
  Case 30 To 40
  Faktor1 = 4
  Case 20 To 30
  Faktor1 = 3
  Case 10 To 20
  Faktor1 = 2
  Case Else
  Faktor1 = 1
End Select
 
ausgabeAT = Faktor1
End Sub