Word-Tabelle filtern mit VBA

[Andrea Adler]

ich bin neu hier und absolutes Greenhorn in Word-VBA. Mit Excel-VBA kenne ich mich leidlich aus, das nützt mir hier wohl leider nichts :(

Mein Problem:
Ich habe eine 3-spaltige Tabelle mit Tabellenüberschrift (Aufgabe, Zuständig, Vertretung). Per VBA sollen die Spalten 2 und 3 auf einen vom Benutzer eingegebenen Begriff durchsucht werden und alle Zeilen ohne diesen Begriff in den Spalten 2 u/o 3 sollen gelöscht werden. Ausnahme: Die Überschriftenzeile soll nicht gelöscht werden!

Dazu habe ich einen Code gefunden, der schon ziemlich gut passt:

Option Compare Text

Sub Tabelle_Filtern()

Dim suchbegriff As String, zeile As Row
Application.UndoRecord.StartCustomRecord ("Tabelle_filtern")
suchbegriff = InputBox("Wonach soll gesucht werden?", "Tabelle filtern")
For Each zeile In Selection.Tables(1).Rows
If Not (zeile.Range.Text Like "*" & suchbegriff & "*") Then zeile.Delete
Next zeile
MsgBox "Filtern nach " & suchbegriff & " beendet. Zum Widerherstellen der Tabelle benutzen Sie die Rückgängig-Funktion."
Application.UndoRecord.EndCustomRecord
End Sub​

Leider wird hier aber immer die gesamte Zeile nach dem Suchbegriff durchsucht. Wie kann ich die Anweisung verändern, dass ausschließlich in den Spalten 2 und 3 der Tabelle gesucht wird? Taucht der Suchbegriff in Spalte 1 auf, nicht aber in den Spalten 2 u/o 3, soll die Zeile gelöscht werden.

Vielen Dank im Voraus.

Schöne Grüße

Andrea