Was ist an dem Makro bitte falsch?
Private Sub CommandButton3_Click()
Dim s As Integer
With Sheets("site")
For s = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(s, 1) = cb1.Value Then Rows(s).Delete
Next s
End With
End Sub
Es soll den Wert der cb (UF) mit der Spalte 1 des sheets "site" vergleichen und alle treffer loeschen. Gruss Helge