möche in dem Tabellenblatt "Tabelle1" per Makro in Spalte T den Text aus einer ComboBox (ComboBox1.Text) suchen und diesen Text dann löschen.
Habt Ihr eine Idee?
Danke
Marco
Private Sub CommandButton1_Click()
Dim Lrow As Long, zelle As Range
If ComboBox1.Text = "" Then Exit Sub
Lrow = Cells(Rows.Count, 1).End(xlUp).Row
For Each zelle In Range("a1:a" & Lrow)
If InStr(zelle, ComboBox1.Text) Then zelle.ClearContents
Next zelle
Unload Me
End Sub
Private Sub CommandButton1_Click()
With Sheets(1).Range("T:T")
.Replace ComboBox1.Text, ""
End With
End Sub
Private Sub CommandButton1_Click()
With Sheets(1).Range("T:T")
.Replace ComboBox1.Text, "", xlWhole
End With
End Sub