Sub bearbeiteZeile(Optional b_zeile)
If IsMissing(b_zeile) = True Then
b_zeile = ActiveCell.Row
End If
letzteSpalte = 32
Set auswahl = Range(Cells(b_zeile, 1), Cells(b_zeile, letzteSpalte))
For Each element In auswahl
Set feld = Cells(b_zeile, element.Column)
Select Case element.Column
Case 2 To 15: feld.ClearContents
Case 19 To 22, 24 To 27, 29 To 32: feld.Font.Strikethrough = True
End Select
Next
End Sub