Office: (Office 2010) Nach Datensatz filtern

Hallo zusammen,

in einem einzelnem Formular kann ich mit Hilfe eines Buttons nach Datensätzen filtern.

Da ich selber kein VBA beherrsche, habe ich den Assistenten dafür genommen. Mit der kann ich wunderbar nach dem Inhalt in Textfeldern filtern, aber ich habe folgendes Problem:

Ich habe eine Datenbank mit Betriebsmitteln erstellt. Jedes Betriebsmittel hat eine SAP Nummer, wie z.B. "F5 8474 49948".
Kann ich den Code für die "Suchmaschine" irgendwie so erweitern, dass ich sowohl nach "F5 8474 49948" als auch nach "F5847449948" oder "F5 8474 49 948" denselben Datensatz herausfiltern kann?


Liebe Grüße, Stephanjap

:)

 

Wie sieht denn das aus, was der Assistent erstellt hat?
Ist es VBA?
Oder ist es ein Makro?
Dann wüsste man, wo man was ändern muss.

 

Das ließe sich ändern.

Deine Zeichenketten unterscheiden sich nur durch verschiedene Positionen des Leerzeichens bzw. Weglassen dieses. Die Funktion Replace() - siehe Hilfe - kann eine Zeichenkette vollständig von Leerzeichen befreien. Das wäre die Voraussetzung für einen zuverlässigen Vergleich.

 

Hallo,

wahrscheinlich ist es ein Makro, und kein VBA. Wie finde ich das denn heraus?

Hier jedenfalls ein Screenshot, wenn ich auf die Schaltfläche mit der Filterfunktion gehe -> Ereignis -> Beim Klicken -> [...]


LG, Stephan

 

Hallo,

wetten dass dort vor den drei Punkten "[Eingebettetes Makro]" steht?! *wink.gif*

Störende Leerzeichen kannst du sowohl im Suchfeld als auch auf das Datenfeld bezogen (wie Maxel schon schrieb) mit der Replace-Funktion eliminieren. Dazu brauchst du dann aber VBA - weil man darüber einfach besser kommunizieren kann.

Beispiel: Code:

 

Jap du hast recht! Konnte das nicht sehen, weil die Spalte so schmal ist *biggrin.gif*

Und wo genau soll ich jetzt diesen VBA-Code eingeben? Wie ihr merkt, ichh habe absolut keine Ahnung. :P

Edit: Ich formuliere mein Anliegen mal nochmal neu, vielleicht ist sie nicht so gut rübergekommen. Ich habe ein einzelnes Formular, wo ich dann Betriebsmittel mit verschiedenen Daten, wie z.B. Bezeichnung, Nummer etc. gespeichert habe. Nun habe ich mit Hilfe des Assistenten eine Schaltfläche erzeugt, womit ich ein Betriebsmittel nach Bezeichnung, Nummer etc. herausfiltern kann. Das Problem ist jetzt: ich habe ein Betriebsmittel mit der Bezeichnung "Hammer" und der Nummer "999 888 999". Ich finde das Betriebsmittel, wenn ich in der Suche "999 888 999", aber nicht, wenn ich die Zahlen ohne Leerzeichen eingebe, also "999888999" oder an den falschen Stellen, wie "9 99 888999". Wie krieg ich das hin?

 

Entwurfsansicht des Formulars
Eigenschaften des Button - Ereignis - Beim Klicken
Da sollte "Ereignisprozedur" drin stehen und nicht "Eingebettetes Makro"
Klick auf den kleinen Button mit den drei Punkten
Dort den folgenden Code eingeben.
Code:

Mit LIKE reicht es auch, nur die ersten Ziffern einzugeben und nicht die komplette Nummer

Wobei ich persönlich mir den Button sparen und die Prozedur in das Ereignis suchtextfeld_afterupdate() legen würde

 

Also ich habe das so gemacht, wie du das vorgeschlagen hast (bin auch auf dieselbe Idee gekommen), aber habe ne Fehlermeldung bekommen...

Was mache ich vielleicht falsch?

Fehlermeldung siehe Anhang *mad.gif*

 

Wie heißt denn Dein suchtextfeld?

 

Naja das ist kein Suchtextfeld sondern eine Suchschaltfläche.

Die Suchschaltfläche heißt "Befehl14" und hat die Beschriftung "Suchen".

Jetzt ne Idee, was ich vielleicht falsch mache?

 

Wie heißt das Textfeld, in das du den Suchbegriff eingibst?

 

Hm, ich finde keine Möglichkeit den Namen des Textfelds herauszufinden, da ich das Suchfenster nicht im Entwurf öffnen kann... (wurde vom Assistenten erstellt).

"Suchmaschine" sieht aus wie das Bild im Anhang... das Fenster erscheint als Popup wenn ich auf die Schaltfläche "Suchen" drücke.

 

Das ist dein Fehler. Du lässt dich vom Assistenten leiten, weißt nicht, was er tut und hast keinen Zugriff auf das, was er tat.

• Löse dich vom Assistenten.
• Erstelle ohne ihn ein Textfeld
• Gib diesem den Namen txtSuche
• Gehe im Eigenschaftsfeld von txtSuche zum Ereignis Nach Aktualisierung
• Wähle aus "Ereignisprozedur"
• Klick auf den kleinen Button mit den drei Punkten
• Gib dort zwischen Sub und End Sub diesen Code ein:

Code:

Ersetze DeinDatenfeld durch den Namen des Formularfeldes, nach dem gefiltert werden soll.

Sobald du dann den Suchbegriff in txtSuche eingegeben und mit ENTER abgeschlossen hast, wird das Formular entsprechend gefiltert. Der Button ist dann überflüssig (wurde hier schon vorgeschlagen).

 

Hab nicht nach deiner Anleitung gehalten, und die Suche dann ausprobiert, aber kriege dann folgende Fehlermeldung (Siehe Anhang). Was habe ich jetzt falsch gemacht?

Habe auch statt "DeinDatenfeld" den Namen für das Textfeld für die Betriebsmittelnummer genommen. *frown.gif*

 

Hallo,

zeige bitte den VBA-Code dazu.