Live-Forum - Die aktuellen Beiträge
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 selbst erstellen

Suchfunktion selbst erstellen
18.01.2004 11:14:43
Packster
Hallo Excelfans,
habe ein kleines problem und zwar habe ich mir ein Dialogfeld erstellt das ich über eine Schaltfläche aufrufe. Auf diesen Dialogfeld befindet sich ein Textfeld in dem ich einen Suchbegriff eingeben möchte. Des weiteren 6 Optionsfelder mit denen ich auswählen möchte in welcher Spalter der Suchbegriff aus dem Textfeld gesucht werden soll. An letzter stelle befindet sich noch eine Schaltfläche die die Suchfunktion startet. Wurde der Suchbegriff gefunden möchte ich automatisch zu dieser Zelle springen. Meine Frage, geht das überhaupt so wie ich mir das vorstelle, wenn ja würde ich mich sehr darüber freuen wenn mir jemand den Lösungsweg zeigen könnte. Ich bedanke mich schon mal in voraus bei euch.

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

Betreff
Datum
Anwender
Anzeige
AW: Suchfunktion selbst erstellen
18.01.2004 11:26:48
Ramses
Hallo wie auch immer,
geht eigentlich ganz einfach:
In den Header deiner Userform ein Variable
Public SuchSpalte As Integer
In das Click-Ereignis deiner Optionsfelder die Anweisung
SuchSpalte = x
wobei x für die Spalte steht die du durchsuchen willst. Optionsfeld 1 z.B. Spalte 1=A usw.
Auf die Schaltfläche baust du dir dann eine Schleife
Dim i As Long
For i = 1 to x ' steht für den letzten Eintrag in der Spalte
If Cells(i,SuchSpalte) = Me.Textbox1.Value Then
Cells(i,SuchSpalte).Select
Exit Sub
End If
Next i

.... und fertig ist die ganze Suchroutine
Gruss Rainer
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige