Daten aus Userform in Tabellenblatt übertragen

Private Sub CommandButton1_Click()
'wenn ich diesen Button drücke soll es mir die Daten aus Textbox1 in das Tabellenblatt " _
Berechnung" nach folgenden Kriterien eintragen
' 1. Datum aus DatumBestellung und Datum in der Zeile 1 stimmt über ein
' 2. Format aus FormatBestellung und Format aus  in der Spalte A stimmt überein
' 3. Farbe aus FarbeBestellung und Farbe in Zeile 2 stimmt überein
' 4. Sollte die Farbe weder Birke, Buche noch Grau sein, soll es die Anzahl aus Textbox1  _
und die Farbe aus ComboBox3
' in die Spalte Sonder eintragen
Dim lngSpalte As Long, lngZeile As Long
Dim datDatum As Date, bolWertFehlt As Boolean
'Eingaben prüfen
bolWertFehlt = False
If Me.DatumBestellung.ListIndex  -1 Then
MsgBox "Es wurde kein Datum ausgewählt."
bolWertFehlt = True
End If
If Me.FormatBestellung.ListIndex  -1 Then
MsgBox "Es wurde kein Format ausgewählt."
bolWertFehlt = True
End If
If Me.FarbeBestellung.ListIndex  -1 Then
MsgBox "Es wurde keine Farbe ausgewählt."
bolWertFehlt = True
End If
If Not IsNumeric(Me.AnzahlBestellung.Value) Then
MsgBox "Feld für Anzahl enthält keinen nummerischen Wert"
bolWertFehlt = True
End If
If bolWertFehlt = False Then
datDatum = CDate(Me.DatumBestellung.Value)
With Worksheets("Berechnung")
'Spalten B bis E abarbeiten
For lngSpalte = 2 To 5
'Datum mit Wert in Zeile 1 vergleichen
If datDatum = .Cells(1, lngSpalte).Value = datDatum Then
For lngZeile = 3 To 42
'Format mit Wert in Spalte A vergleichen
If Me.FormatBestellung.Value = .Cells(lngZeile, 1).Value Then
'Farbe mit Wert in Zeile 2 vergleichen
If Me.FarbeBestellung.Value = .Cells(lngZeile, 2).Value Then
.Cells(lngZeile, lngSpalte).Value = CDbl(Me.AnzahlBestellung.Value)
ElseIf lngSpalte = 5 Then
.Cells(lngZeile, lngSpalte).Value = Me.AnzahlBestellung.Value & "  " & Me. _
FarbeBestellung. _
Value
End If
End If
Next
End If
Next
End With
End If
End Sub