Suchen und Markieren

[Franke]

Hallo,

ich habe ein VB zum suchen, markieren und wieder löschen von extenoffice.
Doch leider zeigt er mir an das was gefunden wurde, aber wenn die Tabelle sehr lang ist kann ich es nicht sehen wenn ich im oberen Teil der Tabelle bin.
Was muss ich ändern das er automatisch dann auch die Seite nach unten scrollt , damit ich den Eintrag sehe.
Wo muss ich noch was Einfügen.

Code:

Sub FindRange()
'UpdatebyExtendoffice20190813
Dim xRg As Range
Dim xFRg As Range
Dim xStrAddress As String
Dim xVrt As Variant
xVrt = Application.InputBox(prompt:="Search:", Title:="www.extendoffice.com")
If xVrt <> "" Then
Set xFRg = ActiveSheet.Cells.Find(what:=xVrt)
If xFRg Is Nothing Then
MsgBox prompt:="Cannot find this value", Title:="www.extendoffice.com"
Exit Sub
End If
xStrAddress = xFRg.Address
Set xRg = xFRg
Do
Set xFRg = ActiveSheet.Cells.FindNext(After:=xFRg)
Set xRg = Application.Union(xRg, xFRg)
Loop Until xFRg.Address = xStrAddress
If xRg.Count > 0 Then
xRg.Interior.ColorIndex = 8
xRsp = MsgBox(prompt:="Do you want to cancel highlighting?", Title:="www.extendoffice.com", Buttons:=vbQuestion + vbOKCancel)

If xRsp = vbOK Then xRg.Interior.ColorIndex = xlNone
End If
End If
End Sub

[derHoepp]

Hi,

ist Strg+F da nicht die dreißigtausendmal einfachere Lösung? 

Ansonsten... Application.GoTo kann zu Zellen springen.

Viele Grüße
derHöpp

[Franke]

Das Problem ist das ich eine große Tabelle habe und da funktioniert die Suche mit STRG F nicht.

Könntest du mir noch sagen wie ich die Funktion Application.GoTo  in das Skript einbinden kann.

[RPP63]

Das Problem ist das ich eine große Tabelle habe und da funktioniert die Suche mit STRG F nicht.

Öhmmm:
Die Schaltfläche Weiter kennst Du?

   

Gruß Ralf

[Franke]

Die Schaltfläche weiter kenne ich. Aber da passiert nichts.
Da wird nichts markiert.

[Gastlich]

Hallo,


es ist Suchen in: Formeln
eingestellt.