Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel Makro für suche
#1
Hallo,

ich habe einen Code geschrieben mit dem man eine bestimmte Spalte nach einem bestimmten Wort oder einer Zahl durchsuchen kann. Die Begriffe nach denen ich suchen möchte stehen in einer anderen Spalte. So wie es jetzt ist soll es funktionieren und ich kann auch damit arbeiten. Was mich aber noch stört ist dass die Liste mit den Zahlen immer länger wird. Wörter wie z B Artikelnamen kann ich in Spalte A auflisten, die Artikelnummern sollen in einer anderen Spalte stehen. Um das zu erreichen hab ich ich den code ein bisschen geändert. Es klappt, so wie in meinem Beispiel soll es aussehen. Die Artikelnummern der Computermäuse und der Tastaturen haben alle ein ähnliches Format; sie sind 8 stellig und die ersten vier Ziffern sind immer gleich. Es soll nur eine Bezeichnung ergänzt werden (Logi für Logitech Maus), kann ich mit dem Code den ich hab leicht machen. Ich beginne in dem Tabellenblatt in dem meine Suchbegriffe stehen bei Nr 10000000 und erweitere die Spalte durch ziehen bis 10009999, wenn 10000001 gefunden wird dann soll logi10000001 geschrieben werden. Funktionert, doch das muss auch anders gehen. Kann ich Begriffe bzw die Zahlen nach denen gesucht werden soll auch anders, etwas kürzer schreiben?

Für einen tipp oder einen Lösungsansatz wäre ich dankbar, ich hab schon etwas probiert doch es hat bisher nicht geklappt. Hier ist eine Beispieldatei.

Gruß


Angehängte Dateien
.xlsm   Suchen und Ersetzen.xlsm (Größe: 27,48 KB / Downloads: 13)
Antworten Top
#2
Hallo Matthias,

nun hast du ja relativ viel geschrieben, allerdings wenig gesagt. Die Ergebnisse, die deine Makros erzeugen sind richtig? Beide Makros, (die übrigens in ein Standardmodul gehören), liefern das gleiche Ergebnis, nur in unterschiedlichen Spalten. Soll das so sein?
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antworten Top
#3
Ich habe geschrieben dass der code funktioniert und dass mich an der Liste mit den Suchbegriffen stört dass sie immer länger wird (die Zahlen, bei den Wörtern kann man ja nix machen is egal). Das was der Code erzeugt soll mal egal sein. Danke für die Hilfe, bitte beachte nur das zweite Tabellenblatt und was ich damit machen möchte ...

Danke!

Edit: Ich denke ich habe es gut erklärt, sag mir doch was genau unklar ist.
Antworten Top
#4
Geschrieben habe ich: Es klappt, so wie in meinem Beispiel soll es aussehen.

Deine Frage war: Soll das so sein?

Ja der Code ist zweimal dabei und er macht das gleiche: Ich kann die Zahlen auch in eine andere Spalte schreiben, dann durchsuche ich mit Button 1 (Code 1) Spalte A von Blatt A nach Artikelnamen und mit Code 2 (Button 2) Spalte A von Blatt A nach Zahlen. (muss natürlich noch angepasst werden aber darum geht es mir nicht)

Ich könnte das ganze noch anpassen, aber das würde dir nur dabei helfen zu verstehen was ich mit der Liste machen möchte. Um meine Frage zu beantworten ist es nicht notwendig da es nur um die Auflistung einiger Suchbegriffe geht. Das was der Code macht bzw machen soll ist zu sehen.

Ich fange bei Zeile 1 an: schreibe 10000001 und in die Zelle daneben logi10000001. Dann markiere ich die Zellen und ziehe das ganze nach unten bis ich irgendwann bei 10009999 ankomme. Das ist sehr viel, deswegen meine Frage ob man es kürzer schreiben könnte.
Antworten Top
#5
so vll? 

Arbeitsblatt mit dem Namen 'Suchbegriffe'
ABCDEFGH
1Suchen nach:Ersetzen durch:Ersetzen durch:
2MünchenM_FlughafenairportM_
3München FlughafenM-airport330330M-airport
4StuttgartStutt-CompStuttgartStutt-CompStutt-Comp
5KarlsplatzKarl-MoKarlsplatzKarl-MoKarl-Mo
6WürzburgWürzb-ScWürzburgWürzb-ScWürzb-Sc
7KarlsruheKarlsr-TabKarlsruheKarlsr-TabKarlsr-Tab
8MagdeburgMagd-phonMagdeburgMagd-phonMagd-phon
9BremenBrem-CabelBrem-Cabel
10TV-GerätTelevision_HHTelevision_HH
1110000001logi10000001

ZelleFormel
B2=WENN(ISTZAHL(A2);"logi"&A2;G2)
B3=WENN(ISTZAHL(A3);"logi"&A3;G3)
B4=WENN(ISTZAHL(A4);"logi"&A4;G4)
B5=WENN(ISTZAHL(A5);"logi"&A5;G5)
B6=WENN(ISTZAHL(A6);"logi"&A6;G6)
B7=WENN(ISTZAHL(A7);"logi"&A7;G7)
B8=WENN(ISTZAHL(A8);"logi"&A8;G8)
B9=WENN(ISTZAHL(A9);"logi"&A9;G9)
B10=WENN(ISTZAHL(A10);"logi"&A10;G10)
B11=WENN(ISTZAHL(A11);"logi"&A11;G11)
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg
Antworten Top
#6
Ok stimmt schon, mein Beispiel ist ein bisschen unübersichtlich: Die Formel ist nicht ganz das richtige, ich muss ja noch sagen welche Zahl gefunden werden soll. Das mache ich indem ich in die Liste mit den Suchbegriffen schreibe suche nach 10000001 und ersetze durch .... Es kann auch eine andere Artikelnummer dabei sein, dann soll ja nicht logi10021111 (z B) geschrieben werden. Ich möchte es begrenzen. Schreibe mir logi vor die Zahlen im Bereich 10000001 und 10009999. Es gibt auch noch andere Hersteller, es werden auch Mäuse von Microsoft bestellt .... Also ich könnte eine Hilfsspalte hinzufügen in welche ich die Formel schreibe ... eine Möglichkeit   ....
Antworten Top
#7
Arbeitsblatt mit dem Namen 'Suchbegriffe'
ABCDEFG
1Suchen nach:Ersetzen durch:Ersetzen durch:
2MünchenM_FlughafenairportM_
3München FlughafenM-airport330330M-airport
4StuttgartStutt-CompStuttgartStutt-CompStutt-Comp
5KarlsplatzKarl-MoKarlsplatzKarl-MoKarl-Mo
6WürzburgWürzb-ScWürzburgWürzb-ScWürzb-Sc
7KarlsruheKarlsr-TabKarlsruheKarlsr-TabKarlsr-Tab
8MagdeburgMagd-phonMagdeburgMagd-phonMagd-phon
9BremenBrem-CabelBrem-Cabel
10TV-GerätTelevision_HHTelevision_HH
1110000001logi10000001
12200000000

ZelleFormel
B2=WENN(UND(ISTZAHL(A2);A2>=10000001;A2<=10009999);"logi"&A2;G2)
B3=WENN(UND(ISTZAHL(A3);A3>=10000001;A3<=10009999);"logi"&A3;G3)
B4=WENN(UND(ISTZAHL(A4);A4>=10000001;A4<=10009999);"logi"&A4;G4)
B5=WENN(UND(ISTZAHL(A5);A5>=10000001;A5<=10009999);"logi"&A5;G5)
B6=WENN(UND(ISTZAHL(A6);A6>=10000001;A6<=10009999);"logi"&A6;G6)
B7=WENN(UND(ISTZAHL(A7);A7>=10000001;A7<=10009999);"logi"&A7;G7)
B8=WENN(UND(ISTZAHL(A8);A8>=10000001;A8<=10009999);"logi"&A8;G8)
B9=WENN(UND(ISTZAHL(A9);A9>=10000001;A9<=10009999);"logi"&A9;G9)
B10=WENN(UND(ISTZAHL(A10);A10>=10000001;A10<=10009999);"logi"&A10;G10)
B11=WENN(UND(ISTZAHL(A11);A11>=10000001;A11<=10009999);"logi"&A11;G11)
B12=WENN(UND(ISTZAHL(A12);A12>=10000001;A12<=10009999);"logi"&A12;G12)
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg
Antworten Top
#8
Ja so hab ich mir das gedacht, ok danke. Ich werde es mal testen.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste