Office: (Office 365) VBA Makro abbrechen durch Inputbox

Hallo zusammen,

dank Gerhard H aus diesem Forum habe ich das folgende Makro im Einsatz, bei dem eine Spalte einer Tabelle in Word auf einen vom Anwender eingegebenen Begriff durchsucht wird und alle Zeile, die diesen Begriff nicht enthalten, gelöscht werden (bis auf die Überschriftenzeile):

Sub Tabelle_Filtern()
Dim tabelle As Table
Dim suchbegriff As String
Dim i As Long, anzZeilen As Long

Set tabelle = Selection.Tables(1)
anzZeilen = tabelle.Rows.Count
suchbegriff = InputBox("Wonach soll gesucht werden?", "Tabelle filtern")
Application.UndoRecord.StartCustomRecord ("Tabelle_filtern")

For i = anzZeilen To 2 Step -1
If Not tabelle.Rows(i).Cells(2).Range.Text Like "*" & suchbegriff & "*" Then tabelle.Rows(i).Delete
Next i

'MsgBox "Filtern nach " & suchbegriff & " beendet. Zum Widerherstellen der Tabelle benutzen Sie die Rückgängig-Funktion."
Application.UndoRecord.EndCustomRecord
End Sub

Funktioniert grundsätzlich super, nur das Abbrechen über die Inputbox funktioniert leider nicht:

Die Inputbox ist mit einer Abbrechen-Schaltfläche versehen. Klickt man diese an, läuft das Makro trotzdem durch bis die MsgBox sagt, dass das Filtern beendet ist. Tatsächlich wird dabei nichts gefiltert, so dass man grundsätzlich damit leben kann, nur dauert der Makrodurchlauf aufgrund der Größe der Tabelle einige Zeit, in der sich der Anwender fragt, warum Word auf seine weiteren Aktionen nicht reagiert, so dass es schöner wäre, wenn das Makro tatsächlich abgebrochen werden würde, wenn man die entsprechende Schaltfläche betätigt. Hat jemand einen Tipp?

Bei dieser Gelegenheit noch eine Frage:

Nutze ich nach dem Makrodurchlauf die Rückgängig-Funktion, wird die Tabelle korrekt wiederhergestellt, allerdings wird dann irgendwo in der Mitte oder am Ende der Tabelle eine Zeile angesprungen. Kann man dem Makro irgendwie begreiflich machen, dass nach der Rückgängig-Funktion der Cursor an den Dokumentanfang springen soll. Ich hab das schon mit Textmarke versucht. Wo auch immer ich den Code in das Marko geschrieben habe, hatte es leider keine Auswirkungen.

Vielen Dank und schöne Grüße

luftgetrocknet

 

Hallo luft,

Das Makro abwürgen, wenn der Anwender auf Abbrechen oder das Schließkreuz der Inputbox klickt, kannst du so:
suchbegriff = InputBox("Wonach soll gesucht werden?", "Tabelle filtern")
If suchbegriff = vbNullString Then
MsgBox "Abbruch"
Exit Sub
End If

Was das Selektieren nach Betätigen der UnDo-Funktion betrifft: Da diese ja nach Makro-Ablauf manuell betätigt wird, hast du vom Makro aus keinen Zugriff darauf. Kurz: Dafür hab ich keine Lösung.

 

Hallo Gerhard,

herzlichen Dank für die Hilfe zum Makro-Abbruch. Funktioniert prima und ist auch viel wichtiger als der Sprung nach dem Rückgängigmachen.

Viele Grüße

Luftgetrocknet