Cel met bepaalde tekst verwijderen

[Noord2011]

Ik wil bepaalde tekst in een column verwijderen.

Ik heb een code maar die verwijdert het hele rij.

Wie kan me helpen om de code te aanpassen om alleen de cel met de bepaalde tekst te verwijderen, dus niet het hele rij aleen het cel

Private Sub CommandButton1_Click()

    Dim rng As Range
    Dim what As String
    what = "ANN"
    Do
        Set rng = Range("C10:C22").Find(what)
        If rng Is Nothing Then
            Exit Do
        Else
            Rows(rng.Row).Delete Shift:=xlUp
        End If
    Loop

End Sub

Mv/Gr

 

[richard1970]

Beste Nord25,

Wil je alleen de tekst uitvegen? Of moet de cel verwijderd worden zodat alle onderliggende cellen een rij omhoog gaan?

In het eerste geval kun je volstaan met de VBAcode:

Columns("D:D").Replace What:="ANN", Replacement:=""

Groeten,
Richard

 

[HSV]

Private Sub CommandButton1_Click()
Dim rng As Range
    Dim what As String
    what = "ANN"
    Do
        Set rng = Range("C10:C22").Find(what)
        If rng Is Nothing Then
            Exit Do
        Else
          [COLOR="Red"]Range("C10:C22").ClearContents[/COLOR]        
End If
    Loop
End Sub

Succes.

 

[Noord2011]

niet verder aangedacht, bedankt voor het tip

 

[trucker10]

niet verder aangedacht, bedankt voor het tip

Met msg box

Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Response, MyString
    Msg = "Wilt u de rij leegmaken ?"
    Style = vbYesNo + vbCritical + vbDefaultButton2
    Title = "Dit blad leegmaken "
    Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then
    MyString = "Ja"
    Range("C10:C22").Activate
    
    Selection.ClearContents
    Range("C4").Select
Else
    MyString = "Nee"
End If

End Sub