Nur bestimmte Zellen durchstreichen
18.05.2021 17:11:07
MikeY
zur folgender Frage finde ich leider keine Lösung.
Ich möchte das beim Fett markierten Teil des Codes nicht die ganze Zeile sondern nur die Spalten A bis F durchgestrichen werden.
Ich bekomm es aber net hin.
Meine Lösungsansätze haben bisher hinten und vorne nicht hingehauen daher erspare ich euch diese besser. ;-)
Vielen Dank vorab.
Sub CommandButton1_Click6()
Dim i As Variant
i = InputBox("Welche ZeilenNummer wollen sie l?schen?", "L?schvorgang")
If i = "" Then
Exit Sub
Else
If Not IsNumeric(i) Then
MsgBox "Bitte geben sie die Zeilennummer an, welche gel?scht werden soll."
Else
Sheets("Tabelle1").Unprotect Password:="fbs"
Cells.Rows(CDbl(i)).Select
Rows(CDbl(i)).Font.Strikethrough = True
CommandButton1_Click7
End If
End If
End Sub
Anzeige
