Hallo Katrin,
Mit diesem Makro hast du zwei Möglichkeiten:
1.) Du startest das Makro und die Zeile, auf der der Cursor steht, wird bearbeitet.
2.) Du übergibst dem Makro die gewünschte Zeilennummer und diese wird bearbeitet.
Ich hoffe, es funktioniet, wie du es dir vorstellst.
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
Liebe Grüße
Martin
|