Makro til sletning i tabel
Jeg har denne lille makro, som beder om en tekst og efterfølgende sletter alle rækker i tabellen, hvor teksten forekommer.Jeg ville gerne have den ændret, så den i stedet for BEVARER alle de rækker, hvor teksten forekommer og sletter alle de rækker, hvor teksten ikke forekommer.
Sub DeleteRowWithSpecifiedText()
Dim sText As String
sText = InputBox("Enter text for Row to be deleted")
Selection.Find.ClearFormatting
With Selection.Find
.Text = sText
.Wrap = wdFindContinue
End With
Do While Selection.Find.Execute
If Selection.Information(wdWithInTable) Then
Selection.Rows.Delete
End If
Loop
End Sub
