Anzeige
Archiv - Navigation
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Suchfunktion verfeinern

Suchfunktion verfeinern
15.01.2004 18:48:47
Manfred
Hallo,
ich habe heute morgen schon einmal nach einer Suchfunktion gefragt. Nun hat mir K.Rola folgende Funktion genannt. Die Suchfunktion funktioniert aber gefundene Stellen werden mir als aktuelle Zelle immer links oben gezeigt. Kann man in der Funktion etwas ändern, damit mir die gefundene Zelle mitten auf dem Bildschirm, bzw. dem Blatt angezeigt wird?

Sub MultiSeek()
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As Variant
sFind = InputBox("Bitte Namen eingeben:")
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
lookat:=xlWhole, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox( _
prompt:="Weiter", _
Buttons:=vbYesNo + vbQuestion _
) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Next wks
MsgBox prompt:="Keine Besuchstermine gefunden!"
End Sub


Grüße
Manfred

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchfunktion verfeinern
15.01.2004 19:10:00
K.Rola
Hallo,
das macht keinen Sinn, weil genau da immer die MsgBox erscheint.
Außerdem geht das sowieso nur bedingt, wenn der Treffer nicht links
und nicht oben ist.
Gruß K.Rola
AW: Suchfunktion verfeinern
15.01.2004 19:41:40
Manfred
Schade,
trotzdem vielen Dank, Du hast mir sehr geholfen!!!
Grüße
Manfred

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige