Private Sub Daten_Click()
Dim lngZeile As Long
With Worksheets("Umsatz")
lngZeile = IIf(Len(.Cells(.Rows.Count, 6)), .Rows.Count, .Cells(.Rows.Count, 6).End(xlUp).Row)
If Len(.Cells(lngZeile, 6).Value) > 0 Then lngZeile = lngZeile + 1
Dim rng As Range
If CBMo.Value = True Then
Set rng = ActiveSheet.Range("A1:AF1").Find(WeekdayName(CBMo.Caption))
.Cells(lngZeile, rng).Value = TextBox_2.Value * TextBox_3.Value
.Cells(lngZeile, 1).Value = TextBox_1.Value
lngZeile = lngZeile + 1
End If
If CBDi.Value = True Then
Set rng = ActiveSheet.Range("A1:AF1").Find(WeekdayName(CBDi.Caption))
.Cells(lngZeile, rng).Value = TextBox_2.Value * TextBox_3.Value
.Cells(lngZeile, 1).Value = TextBox_1.Value
lngZeile = lngZeile + 1
End If
If CBMi.Value = True Then
Set rng = ActiveSheet.Range("A1:AF1").Find(WeekdayName(CBMi.Caption))
.Cells(lngZeile, rng).Value = TextBox_2.Value * TextBox_3.Value
.Cells(lngZeile, 1).Value = TextBox_1.Value
lngZeile = lngZeile + 1
End If
If CBDo.Value = True Then
Set rng = ActiveSheet.Range("A1:AF1").Find(WeekdayName(CBDo.Caption))
.Cells(lngZeile, rng).Value = TextBox_2.Value * TextBox_3.Value
.Cells(lngZeile, 1).Value = TextBox_1.Value
lngZeile = lngZeile + 1
End If
If CBFr.Value = True Then
Set rng = ActiveSheet.Range("A1:AF1").Find(WeekdayName(CBFr.Caption))
.Cells(lngZeile, rng).Value = TextBox_2.Value * TextBox_3.Value
.Cells(lngZeile, 1).Value = TextBox_1.Value
lngZeile = lngZeile + 1
End If
End With
End Sub