2 Teilbegriffe mit msg box suchen und ausgeben

Computer: Software & Programmierung Visual Basic
#1

Habe eine Excel Tabelle - in Zeile B steht der Kundenname, in Zeile G der Artikel.

Nun suche ich ein Makro, in dem über eine Msg Box Teile des Kundennamens und zusätzlich Teile der Artikelbezeichnung eingebenen werden können.

Ich möchte ausgewertet bekommen, ob ein Kunde (wird nicht immer gleich geschrieben - deshalb auch Teile des Kundennamens) schon einen (oder einen ähnlichen) Artikel bekommen hat.

Am besten wird das Ergebnis in eine neue, leere Datei oder in ein leeres Tabellenblatt in meiner Exceldatei kopiert, und zwar nicht nur die Zeilen B und G, sondern die komplette Zeile.

Natürlich kann ich dies auch über die Standard- Filterfunktion lösen, dies ist mir aber zu zeitaufwendig.

Ich bedanke mich im Voraus für Eure Hilfe !!!

#2

Anrede: Hallo meitraudl,

Habe eine Excel Tabelle - in Zeile B steht der Kundenname, in
Zeile G der Artikel.

B und G sind keine Zeilen, sondern Spalten.

Nun suche ich ein Makro, in dem über eine Msg Box Teile des
Kundennamens und zusätzlich Teile der Artikelbezeichnung
eingebenen werden können.

In eine MsgBox kannst du keine Eingaben machen, die ist für Ausgaben da.
Meinst du eine InputBox?

Ich möchte ausgewertet bekommen, ob ein Kunde (wird nicht
immer gleich geschrieben - deshalb auch Teile des
Kundennamens) schon einen (oder einen ähnlichen) Artikel
bekommen hat.

Versteh’ ich jetzt nicht ganz. Wenn du die Kunden Meier und Meiering hast, was willst du dann in deine InputBox eingeben, um welchen Kunden zu finden?

Am besten wird das Ergebnis in eine neue, leere Datei oder in
ein leeres Tabellenblatt in meiner Exceldatei kopiert, und
zwar nicht nur die Zeilen B und G, sondern die komplette
Zeile.

Natürlich kann ich dies auch über die Standard- Filterfunktion
lösen, dies ist mir aber zu zeitaufwendig.

Ich bedanke mich im Voraus für Eure Hilfe !!!

Wenn du das noch mal etwas genauer erklären kannst, kriegen wir sicher einen Makro hin.

Gruß, Andreas

#3

Hallo Waltraud,

Nun suche ich ein Makro, in dem über eine Msg Box Teile des
Kundennamens und zusätzlich Teile der Artikelbezeichnung
eingebenen werden können.

Andreas hat ja schon korrigiert.
Excel/Vba kennt schon Boxen wo du etwas eingegeben kannst. Z.B. eine Textbox. Wie aber stellst du dir die Eingabe vor?
Willst du

Meie       Sta

in EINE Box eingeben? D.h. zwischen beiden Begriffen mußt du Leerzeichen o.ä. eingeben damit Vba beide Begriffe erkennt und dann nach Namen die mit „Meie“ beginnen suchen kann, dito für Artikel die mit „Sta“ beginnen…?
Sehr unpraktisch *find*

Ich möchte ausgewertet bekommen, ob ein Kunde (wird nicht
immer gleich geschrieben - deshalb auch Teile des
Kundennamens) schon einen (oder einen ähnlichen) Artikel
bekommen hat.

Du willst eine Fuzzy-Suche programmiert haben? Vllt. gibst dazu kostenlos Codes im Internet aber ich könnte mir vorstellen daß die exakten Anpassungen an deine Datenbank dann doch noch viel Zeit verschlingen, mal von der Komplettprogrammierung abgesehen, die reichlich Zeit kostet.

Am besten wird das Ergebnis in eine neue, leere Datei oder in
ein leeres Tabellenblatt in meiner Exceldatei kopiert, und
zwar nicht nur die Zeilen B und G, sondern die komplette
Zeile.

Das geht easy, kommt aber später, erstmal mußt du ja wissen welche Zeile.

Natürlich kann ich dies auch über die Standard- Filterfunktion
lösen, dies ist mir aber zu zeitaufwendig.

„Natürlich“? *hmmh* Wie machste denn das bei so Namenslisten:
Müller
Mueller

mit M* oder wie?

Deine Mappe, ist die Top Secret? Oder kannste da mal unten Datenzeilen löschen sodß noch so 50-100 übrigbleiben, Inhalte von uninteressanten Spalten kannste löschen. Wichtig sind letztlich nur die Spalten Kundennamen und Artikel.
Zur Not mußte die halt anonymisieren, dann die Mappe hochladen.

Oder gehe zu Testdatengeneratoren wie
http://www.migano.de/testdaten.php
dort kannste mit wenigen Klicks so eine Mappe erstellen:
http://www.file-upload.net/download-9088493/Testdate…

In so einer Mappe mußte nur noch in der Nachnamensliste die Namen bearbeiten damit wie du schriebst „ähnliche“ Namen drinstehen.

Gruß
Reinhard

Gruß
Reinhard

#4

Anrede: Hallo meitraudl,

Habe eine Excel Tabelle - in Zeile B steht der Kundenname, in
Zeile G der Artikel.

B und G sind keine Zeilen, sondern Spalten.

Richtig, meinte Spalten

Nun suche ich ein Makro, in dem über eine Msg Box Teile des
Kundennamens und zusätzlich Teile der Artikelbezeichnung
eingebenen werden können.

In eine MsgBox kannst du keine Eingaben machen, die ist für
Ausgaben da.
Meinst du eine InputBox?

Ja, meinte inputBox

Ich möchte ausgewertet bekommen, ob ein Kunde (wird nicht
immer gleich geschrieben - deshalb auch Teile des
Kundennamens) schon einen (oder einen ähnlichen) Artikel
bekommen hat.

Versteh’ ich jetzt nicht ganz. Wenn du die Kunden Meier und
Meiering hast, was willst du dann in deine InputBox eingeben,
um welchen Kunden zu finden?

habe z,B. einmal Meier oder Meier Stuttgart oder Meier München eingegeben - ich möchte alle Meier finden.
Ähnlich verhält es sich bei dem Suchkriterium für den Artikel. Er heisst einmal Schokolade, einmal Nuß- Schokolade und einmal Vollmilch- Schokolade.
Möchte alles mit Schokolade finden

Am besten wird das Ergebnis in eine neue, leere Datei oder in
ein leeres Tabellenblatt in meiner Exceldatei kopiert, und
zwar nicht nur die Zeilen B und G, sondern die komplette
Zeile.

Natürlich kann ich dies auch über die Standard- Filterfunktion
lösen, dies ist mir aber zu zeitaufwendig.

Ich bedanke mich im Voraus für Eure Hilfe !!!

Wenn du das noch mal etwas genauer erklären kannst, kriegen
wir sicher einen Makro hin.

Gruß, Andreas

Gruß
meitraudl

#5

Hallo Waltraud,

Nun suche ich ein Makro, in dem über eine Msg Box Teile des
Kundennamens und zusätzlich Teile der Artikelbezeichnung
eingebenen werden können.

Andreas hat ja schon korrigiert.
Excel/Vba kennt schon Boxen wo du etwas eingegeben kannst.
Z.B. eine Textbox. Wie aber stellst du dir die Eingabe vor?
Willst du

Meie       Sta

in EINE Box eingeben? D.h. zwischen beiden Begriffen mußt du
Leerzeichen o.ä. eingeben damit Vba beide Begriffe erkennt und
dann nach Namen die mit „Meie“ beginnen suchen kann, dito für
Artikel die mit „Sta“ beginnen…?
Sehr unpraktisch *find*

Es können auch zwei Input Boxen hintereinander sein:
Zuerst Teile der Kundenbezeichung: Es gibt Meier, Meier, Stuttgart, Meier München… Ich will NICHT Maier finden, nur alles mit Meier.
Hier dürfte schon eine Vorfilterung stattfinden (muss aber nicht !)
Dann möchte ich nach Teilen der Artikelbezeichung suchen.
Z. B. gibt es Schokolade, Vollmichschokolade, Nußschokolade.
Das Ergebnis soll alles mit „Meier“ und „Schokolade“ sein, die sich in EINER Zeile befinden, sein.

Ich möchte ausgewertet bekommen, ob ein Kunde (wird nicht
immer gleich geschrieben - deshalb auch Teile des
Kundennamens) schon einen (oder einen ähnlichen) Artikel
bekommen hat.

Du willst eine Fuzzy-Suche programmiert haben? Vllt. gibst
dazu kostenlos Codes im Internet aber ich könnte mir
vorstellen daß die exakten Anpassungen an deine Datenbank dann
doch noch viel Zeit verschlingen, mal von der
Komplettprogrammierung abgesehen, die reichlich Zeit kostet.

Dazu kenne ich mich zu wenig aus, um das beurteilen zu können.

Am besten wird das Ergebnis in eine neue, leere Datei oder in
ein leeres Tabellenblatt in meiner Exceldatei kopiert, und
zwar nicht nur die Zeilen B und G, sondern die komplette
Zeile.

Das geht easy, kommt aber später, erstmal mußt du ja wissen
welche Zeile.

Natürlich kann ich dies auch über die Standard- Filterfunktion
lösen, dies ist mir aber zu zeitaufwendig.

„Natürlich“? *hmmh* Wie machste denn das bei so Namenslisten:
Müller
Mueller

mit M* oder wie?

Deine Mappe, ist die Top Secret? Oder kannste da mal unten
Datenzeilen löschen sodß noch so 50-100 übrigbleiben, Inhalte
von uninteressanten Spalten kannste löschen. Wichtig sind
letztlich nur die Spalten Kundennamen und Artikel.
Zur Not mußte die halt anonymisieren, dann die Mappe
hochladen.

Hier vereinfacht meine Daten:

Splate B
Meier
Meier Stuttgart
Meier München
Hans Meier
Meier
Meier Stuttgart
Meier München
Hans Meier

Spalte G
Schokolade
Vollmilchschokolade
Nuß- Schokolade
Kuchen mit Schokolade
Zucker
Traubenzucker
Milchzucker
ohne Zucker

Oder gehe zu Testdatengeneratoren wie
http://www.migano.de/testdaten.php
dort kannste mit wenigen Klicks so eine Mappe erstellen:
http://www.file-upload.net/download-9088493/Testdate…

In so einer Mappe mußte nur noch in der Nachnamensliste die
Namen bearbeiten damit wie du schriebst „ähnliche“ Namen
drinstehen.

Gruß
Reinhard

DANKE
Gruß meitraudl

#6

Dann möchte ich nach Teilen der Artikelbezeichung suchen.
Z. B. gibt es Schokolade, Vollmichschokolade, Nußschokolade.
Das Ergebnis soll alles mit „Meier“ und „Schokolade“ sein, die
sich in EINER Zeile befinden, sein.

Hallo Meitraudl,

hier ist quasi ein Spezialfilter:

http://www.file-upload.net/download-9098609/kwWaltra…

Gruß
Reinhard

#7

Hallo meitraudl,

hier habe ich dir mal eine Beispielmappe hochgeladen:
http://www.file-upload.net/download-9098745/KundenUn…
Auf dem Blatt „Datenbank“ sind deine Beispiele.
Wenn du in der UserForm die Kundennamen und Artikel eingibst, werden auf dem Blatt „gefunden“ die passenden Einträge angezeigt.

Gruß, Andreas

#8

Hallo Meitraudl,

eine Bitte an dich, du fragst hier um Hilfe zu einem Excel-Problem an. Man versucht dir zu helfen. Dann sei du bitte auch so nett, wenn Helfer dir eine Datei hochladen dir diese auch mal überhaupt anzuschauen und darauf zu reagieren.

Natürlich mußt du nicht. Hat aber schon mittelfristig die Folge daß ein Helfersterben einsetzen könnte.

Gruß
Reinhard

#9

Hallo Reinhard,

vielen Dank - ist ja genial !
Nur habe ich das Problem, dass die Eingabefelder schwarz schattiert sind.

Kannst Du das vielleicht in hellgrün formatieren, dass man die Eingabe sehen kann ?

Du hast die Felder J1 und J2 schreibgeschützt - wie kann ich das sehen oder ändern ?

Vielen Dank

Gruß meitraudl

#10

Hallo Reinhard,

sorry, wenn ich mich falsch ausgedrückt habe.
Ich habe Deine Datei heruntergeladen und getestet. Funktioniert wie gesagt super.

Nur habe ich die Bitte mit der anderen Formatierung der Eingabefelder J1 und J2 -
die sind bei mir scharz schattiert und ich kann die Eingabe nicht lesen - daher meine Antwort.

Bitte erkläre mir, was ich falsch gemacht habe - verstehe es nicht - sorry.
Bin Dir sehr dankbar für Deine Hilfe !

Gruß
meitraudl

#11

Hallo meitraudl,

Nur habe ich das Problem, dass die Eingabefelder schwarz
schattiert sind.

? Bei mir nicht. Getestet bei mir mit XL 2000 und XL 2007. Sie sind hellblau unterlegt, siehe dieses Bild:
http://www.pic-upload.de/view-23638588/kwwaltraut.jp…

Welche Version hast du? (Sorry wenn du das schon geschrieben hattest)

Kannst Du das vielleicht in hellgrün formatieren, dass man die
Eingabe sehen kann ?

Man kann die Farbe nach Wunsch ändern aber sag erstma deine Version, ist dann einfacher dir das zu erläutern.

Du hast die Felder J1 und J2 schreibgeschützt - wie kann ich
das sehen oder ändern ?

Die sind nicht schreibgeschützt. Sind wie alle Zellen. Besonderheit ist, ich habe darüber ActiveX-Textfelder gelegt. Deshalb kannste J1,J2 nicht mehr anklicken da du bei Klicks die Textfelder anklickst. „Erreichen“ kannst du J1, J2 mit der Tastatur, also J3 o.ä. anklicken dann mit den Pfeiltasten.

Natürlich kann man auch die zwei Textfelder woanders hin verschieben. Wie das geht hängt auch von deiner Version ab.

Gruß
Reinhard

#12

Bitte erkläre mir, was ich falsch gemacht habe - verstehe es
nicht - sorry.

Hallo meitraudl,

am 20.6 habe ich dir geantwortet, u.a. damit:

"dort kannste mit wenigen Klicks so eine Mappe erstellen:
http://www.file-upload.net/download-9088493/Testdate…

In so einer Mappe mußte nur noch in der Nachnamensliste die Namen bearbeiten damit wie du schriebst „ähnliche“ Namen drinstehen."

Bis jetzt wurde diese meine Beispielmappe noch Null mal heruntergeladen…
Deshalb habe ich dich angemotzt :smile:

Gruß
Reinhard

#13

Hallo Reinhard,

sorry, da meine Daten nicht soo kompliziert waren, habe ich Dir die Daten mit Spalte B und Spalte G geschickt, die Du dann ja dankenswerterweise auch so eingebaut hast !

Kannst Du mir noch sagen, wie ich die Formatierung von J1 und J2 Deiner „kwWaltraut“ von schwarz in z.B. hellblau ändern kann, damit ich die Eingabgelder sehen kann ?

Wie hast Du die Felder geschützt ?

Danke und Gruß
meitraudl

#14

Hallo Reinhard,

sorry, da habe ich wohl glatt eine Antwort von Dir übersehen (Überschneidung ?)

Hier meine Hardcoopy:

http://www.pic-upload.de/view-23639020/meitraudl.jpg…

Habe office 2007 home and student auf meinem PC und Laptop - auf beiden werden die Felder schwarz angezeigt.

Kannst Du mir noch sagen, wie Du den Schreibschutz der Felder J1 und J2 gemacht hast ?

Danke und Gruß
meitraudl

#15

Hallo Meitraudl,

sorry, da habe ich wohl glatt eine Antwort von Dir übersehen
(Überschneidung ?)

möglich, ich wollte an sich deine Datentabelle in einer Mappe und kein Bild von Andreas Daten aber lassen wir das.

http://www.pic-upload.de/view-23639020/meitraudl.jpg…
Habe office 2007 home and student auf meinem PC und Laptop -
auf beiden werden die Felder schwarz angezeigt.

*hmmh* Diese Mappe habe ich in der gleichen Version erstellt (naja, die Textfelder) und als .xlsm abgespeichert.
Die Textfelder haben jetzt eine Standard weiße Hintergrundfrabe, bei dir auch?

Kannst Du mir noch sagen, wie Du den Schreibschutz der Felder
J1 und J2 gemacht hast ?

Die haben keinen Schreibschutz, die Textfelder „hängen“ davor wie ein Bild an der Wand :smile:

Um Textfelder zu verschieben u.v.m. , oben Entwicklertools—Entwurfsmodus, dann Textfeld mit Maus verschieben. Oder/und Rechtsklick und bei Eigenschaften Einstellungen vornehmen.

Gruß
Reinhard

#16

Hallo Meitraudl,

sorry, da habe ich wohl glatt eine Antwort von Dir übersehen
(Überschneidung ?)

möglich, ich wollte an sich deine Datentabelle in einer Mappe
und kein Bild von Andreas Daten aber lassen wir das.

http://www.pic-upload.de/view-23639020/meitraudl.jpg…
Habe office 2007 home and student auf meinem PC und Laptop -
auf beiden werden die Felder schwarz angezeigt.

*hmmh* Diese Mappe habe ich in der gleichen Version erstellt
(naja, die Textfelder) und als .xlsm abgespeichert.
Die Textfelder haben jetzt eine Standard weiße
Hintergrundfrabe, bei dir auch?

Kannst Du mir noch sagen, wie Du den Schreibschutz der Felder
J1 und J2 gemacht hast ?

Die haben keinen Schreibschutz, die Textfelder „hängen“ davor
wie ein Bild an der Wand :smile:

Um Textfelder zu verschieben u.v.m. , oben
Entwicklertools—Entwurfsmodus, dann Textfeld mit Maus
verschieben. Oder/und Rechtsklick und bei Eigenschaften
Einstellungen vornehmen.

Habe ich soweit hinbekommen (auch mit der schwarzen Hintergrundformatierung) - vielen Dank !
Jetzt kommt mir aber eine Fehlermeldung, wenn ich z.B. nach eee suche:
http://www.pic-upload.de/view-23644146/meitraudl2.jp…

Gruß
Reinhard

Gruß
meitraudl

#17

Hallo Meitraudl,

Habe ich soweit hinbekommen (auch mit der schwarzen
Hintergrundformatierung) - vielen Dank !

schön, k.A. woher die kam. Wichtig für dich dabei ist daß du weißt wie man so ActiveX-Textfelder optisch „frisieren“ kann, also farbe, Größe und vieles mehr sowie neu positionieren. Da ist der Weg in deiner Version:

Entwicklertools—Entwurfsmodus. Je nachdem was du machen willst dann Rechtsklick—Eigenschaften. Dort erscheint ja eine zweispaltige Tabelle, links der Eigenschaftsname, rechts der Wert bzw. Name.
Probier ma rum in einer ansonsten leeren Mappe und du lernst.

Egal ob du gut Englisch kannst oder nicht, gelegentlich ist einem der Begriff links unklar, stell den Cursor darauf und drücke F1.
Bei den meisten Begriffen wird das dann erläutert um was es dabei geht.

Jetzt kommt mir aber eine Fehlermeldung, wenn ich z.B. nach
eee suche:
http://www.pic-upload.de/view-23644146/meitraudl2.jp…

Hast recht. Liegt am Makro-Code, der hat nicht mit „eee“ gerechnet *lächel* Ich verbessere den Code.

Gruß
Reinhard

#18

Jetzt kommt mir aber eine Fehlermeldung, wenn ich z.B. nach
eee suche:
http://www.pic-upload.de/view-23644146/meitraudl2.jp…

Hallo meitraudl,

teste mal hier, eee-Fehler müßte weg sein:
http://www.file-upload.net/download-9109830/kwWaltra…

Gruß
Reinhard

#19

Hallo Reinhard,

sorry für meine späte Reaktion - habe heute erst wieder im Forum nachgeschaut.

Du bist echt krass - Super !!!
Funktioniert echt gut - wenn ich den Code lese verstehe ich nur Bahnhof…

Noch eine letzte Bitte - habe gedacht, ich könnte das File noch ein bisschen auf meine Bedürfnisse anpassen. Aber da steigtst bei mir aus…

Kannst Du mir vl. das Ganze mit genau den gleichen Einstellungen in 3 Tabellenblättern anpassen. Habe die Daten in mehreren Blättern und will in jedem einzelnen die Funktion haben, nach Inhalten suchen zu können.

Apropos, bin echt begeistert von Deinen Künsten - gibt es was, wie ich Dir meinen Dank ausdrücken könnte ?

Gruß meitraudl

#20

Hallo Meitraudl,

sorry für meine späte Reaktion - habe heute erst wieder im
Forum nachgeschaut.

mit entschuldigen bin ich jetzt dran. Ich dachte ich warte auf deine Reaktion, scheinbar wartest du auf meine :frowning:

Noch eine letzte Bitte - habe gedacht, ich könnte das File
noch ein bisschen auf meine Bedürfnisse anpassen. Aber da
steigtst bei mir aus…
Kannst Du mir vl. das Ganze mit genau den gleichen
Einstellungen in 3 Tabellenblättern anpassen. Habe die Daten
in mehreren Blättern und will in jedem einzelnen die Funktion
haben, nach Inhalten suchen zu können.

Ja, kein Problem. Lade bitte eine Mappe mit den drei Blättern hoch. Um es dir einfach zu machen sollen alle Spaltentitel wie im Original sein. Datenzeilen ausreichend viele und auch so daß man daran testen kann. Ich codiere das dann.

Apropos, bin echt begeistert von Deinen Künsten - gibt es was,
wie ich Dir meinen Dank ausdrücken könnte ?

Jaaaaa, Sehr viel *gg*

Gruß
Reinhard