Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
560to564
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
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bessere suche

bessere suche
03.02.2005 08:23:08
Justus
Hi,
über ein Textfeld suche ich Namen wie folgt:


    Private Sub txtName_Change()
        Range("A2") = txtName.Value
        Range("A6:I100").AdvancedFilter _
            Action:=xlFilterInPlace, _
            criteriarange:=Range("A1:A2"), _
            unique:=False
    End Sub


Wie kann ich anstattdessen Informationen oder auch Teilinformationen über das ganze Blatt verteilt suchen? Ich will also nicht nur die Spalte "A" zum suchen verwenden, sondern den Bereich zwischen A6:K1000 - wie auch die Suche mit * oder so...
Wie ist es denn, wenn ich teile eines Wortes suchen möchte?
Der Filter sollte natürlich entsprechend reagieren.... die EierlegendeWollmilchSau...
Danke
Justus

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

Betreff
Datum
Anwender
Anzeige
AW: bessere suche
RR
Hallo,
teste mal damit, funktioniert auch ohne *:

Sub Suche()
On Error GoTo ende:
XYZ = InputBox("Was suchst du?")
range("a6:k1000").Select
For Each zelle In Selection
If Not zelle.Find(What:=XYZ, LookIn:=xlFormulas, LookAt:=xlPart) Is Nothing Then
zelle.Activate
If MsgBox("Weitersuchen?", vbYesNo) = vbNo Then GoTo ende:
End If
Next
ende:
MsgBox ("Ende der Suche!")
End Sub

Gruß
RR
AW: bessere suche
Justus
Ja danke... aber mir ging es ja vorwiegend um die Filterung, so dass nicht die Zelle aktiviert sondern dei Daten anhand des Suchbegriffs gefiltert werden.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige