Button Suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub SuchenUndScrollen() Dim rngZelle As Range, strSuchtext strSuchtext = Application.InputBox("Bitte Suchbegriff eingeben :") If strSuchtext "" And strSuchtext False Then Set rngZelle = Cells.Find(strSuchtext) If Not rngZelle Is Nothing Then Application.Goto rngZelle, True End If End If End Sub

Hallo NoNet,
das sieht schon mal ganz gut aus.
Zwei Sachen sind noch, die ich auch nicht speziell erwähnt habe:
1.) Seitlich dürfte sich die Tabelle nicht verschieben. Ist der Suchbegriff z.B. in Spalte C, dann sind Spalte A+B nicht mehr sichtbar. Das sollte nicht sein. Ansonsten steht die gefundene Zelle wie gewünscht in der 2. Zeile.
2.) Beim Suchfenster müsste es auch die Möglichkeit geben auf "Weitersuchen" zu klicken damit die nächste Fundstelle angesprungen wird, sonst muss das Makro jedesmal neu aufgerufen werden. Das Fenster sollte erst weggehen, wenn es durch das "x" beendet wird.
Vielleicht gibt es noch eine Möglichkeit, diese 2 Änderung einzubauen.
Danke jedenfalls und Servus, Walter

Hallo Walter,
hier eine Lösung für beide Anliegen :

Public strSuchtext 'as Variant
Sub SuchenUndScrollen()
'Per "Extras - Makros - Optionen" Tastenkombination Strg+Shift+Z zuweisen !
Dim rngZelle As Range
strSuchtext = Application.InputBox("Bitte Suchbegriff eingeben :")
If strSuchtext  "" And strSuchtext  False Then
Set rngZelle = Cells.Find(strSuchtext)
If Not rngZelle Is Nothing Then
'Application.Goto rngZelle, True
ActiveWindow.ScrollRow = rngZelle.Row - 1
rngZelle.Select
End If
End If
End Sub
Sub WeiterSuchenUndScrollen()
'Per "Extras - Makros - Optionen" Tastenkombination Strg+Shift+Q zuweisen !
Dim rngZelle As Range
If strSuchtext  "" And strSuchtext  False Then
Set rngZelle = Cells.FindNext(after:=ActiveCell)
If Not rngZelle Is Nothing Then
'Application.Goto rngZelle, True
ActiveWindow.ScrollRow = rngZelle.Row
rngZelle.Select
End If
End If
End Sub

Per Extras - Makros - Optionen" habe ich den beiden Makros die Tastenkombinationen Strg+Shift+Z (neuen Suchbegriff eingben) bzw. Strg+Shift+Q (suchbegriff weiter suchen) zugewiesen, so dass man weitere fundstellen suchen kann.
Ich hoffe es "passt" so ;-)
Gruß, NoNet

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Button Suchen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread