Servus,
habe folgenden code angesetzt um mit einem CommandButton eine Zelle durchzustreichen nur leider das Problem, dass der Text zwar in Excel durchgestrichen wird aber in der Listbox weiterhin normal erscheint:
Private Sub Commandbutton5_Click()
Dim lindexdel As Long
If ListBox1.ListIndex >= 0 Then
lindexdel = 2 'Überschriften der Spalten auslassen
Do While Trim(CStr(Sheets(1).Cells(lindexdel, 1).Value)) <> "" 'solange die Zelle der ersten Spalte in der entsprechenden Zeile nicht leer ist
If ListBox1.Text = Trim(CStr(Sheets(1).Cells(lindexdel, 3).Value)) Then 'wenn der Wert in der Listbox dem der Zelle in Spalte 3 entspricht
Sheets(1).Cells(lindexdel, 3).Font.Strikethrough = True 'streiche den Text
Exit Do
End If
lindexdel = lindexdel + 1
Loop
End If
End Sub
Hat jemand eine Idee warum der Text nicht durchgestrichen in der Listbox erscheint?
Liebe Grüße |