Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1052to1056
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1052to1056
1052to1056
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

| HERBERS Excel Forum

Makro Suchfunktion in 2 Spalten
23.02.2009 11:53:34
miss18
Hallo ich hätte eine Frage und ich hoffe Ihr könnt mir bitte weiterhelfen: (Archiv + Beispiele schon gesucht)
Ich habe ein Excel-Dokument mit mehreren Spalten und bei der Spalte 5 bzw. 6 stehen die Produktnummern bzw. Produktnamen. Hier sind auch die üblichen Autofilter eingebaut.
Es gibt auch ein Wortsuche-Feld, dass wunderbar funktioniert. Dies sucht allerdings nur in der Spalte 6 den Namen.
Meine Frage ist jetzt kann ich das Makro irgendwie umschreiben, damit er sowohl in der Spalte 5 als auch in der Spalte 6 sucht.
Bei meinen Versuchen aktiviert es die beiden Makros und natürlich kommt dann kein Ergebnis zustande.
Und hier sucht er beide Spalten ab. Hab im Web auch schon nach Oder-Verknüpfungen gesucht für diesen Fall leider ohne Erfolg.
Ich hoffe ich konnte mein Problem gut schildern und würde mir wünschen wenn mir jemand helfen könnte.
Vielen Dank im Voraus.
Lg miss18
Hier ist das ursrpüngliche Makro, wo nur in der Spalte 6 sucht - funktioniert problemlos.

Sub Makro1()
' Makro1 Makro
' Wortsuche
Sheets("Produktübersicht").Select
Selection.AutoFilter Field:=6, Criteria1:=Range("Eingabedaten!S113").Text
Sub
Da ich keine Erfahrungen habe, habe ich das versucht :)
Sheets("Produktübersicht").Select
Selection.AutoFilter Field:=6, Criteria1:=Range("Eingabedaten!S113").Text
Selection.AutoFilter Field:=5, Criteria1:=Range("Eingabedaten!S113").Text

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Suchfunktion in 2 Spalten
23.02.2009 12:54:19
Daniel
HI
das kommt darauf an, ob man an irgendwas erkennen kann, ob der Anwender den Produktnamen oder die Produktnummer eingegeben hat.
wenn die Produktnummer tatsächlich eine Zahl ist, könnte man es so lösen:

Sheets("Produktübersicht").Select
if Isnumeric(Range("Eingabedaten!S113").value) then
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=5, Criteria1:=Range("Eingabedaten!S113").Text
Else
Selection.AutoFilter Field:=6, Criteria1:=Range("Eingabedaten!S113").Text
Selection.AutoFilter Field:=5
end if


Gruß, Daniel
ps: nicht getestet, da keine Beispieldatei vorhanden ist

Anzeige
AW: Makro Suchfunktion in 2 Spalten
23.02.2009 14:22:17
miss18
Hallo Daniel
danke zunächst ich hab deinen Tipp versucht geht aber leider nicht. Leider ist die Produktnummer (Typ + Nummer)folgendermaßen aufgebaut: BuchstabeBuchstabe NummerBuchstabe (ein bisschen kompliziert)
Ich hab versucht eine kleine Version unser Datei herzustellen, hab alles so gemacht wie bei der Originalen allerdings funktioniert es hier nicht (bei der Originalen schon).
Aber vielleicht kannst Du dir es dann besser vorstellen.
https://www.herber.de/bbs/user/59690.xls
AW: Makro Suchfunktion in 2 Spalten
23.02.2009 14:30:55
Daniel
Hi
ja wie gesagt, du musst an irgendwas sicher unterscheiden können, ob nach Feld 5 oder Feld 6 gefiltert werden soll.
in deinem Beispiel könnte das z.B. über (Code schematisch)

IF Left(DeineEingabeZelle, 2) = "CH" Then
Filtern nach Nummer
Else
Filtern nach benennung
End if


funktionieren.
sollte sich keine Methodik finden lassen, um es herauszufinden, muss es Anwender halt in irgendeiner Form angeben (z.B. 2 verschiedene Eingabezellen oder 2 verschiedene Buttons.)
Gruß, Daniel

Anzeige
AW: Makro Suchfunktion in 2 Spalten
23.02.2009 14:39:32
miss18
Danke Daniel,
dann muss ich doch zwei verschiedene Suchfelder einbauen. Es wäre eleganter gewesen wenn es sich über 1 Feld steuern hätte lassen.
LG miss18
AW: Makro Suchfunktion in 2 Spalten
23.02.2009 15:19:46
miss18
Jetzt doch noch eine Frage
Hoffe Du bist mir noch nicht böse :)
Mein neues Problem:
Wenn ich zwei Felder einbaue (eines als Wortsuche und das andere als Nummernsuche) und dann im ersten Feld etwas Suche funktioniert es ohne Probleme. Doch wenn ich jetzt gleich daraf auf im zweiten Feld etwas suchen will, muss ich zunächst wieder Alles anzeigen lassen (über ein drittes Makro "Alles"). Erst dann kann ich im zweiten Feld etwas suchen.
Kann man diesen Zwischenschritt (drittes Makro "Alles") nicht irgendwie übergehen. D.h wenn ich etwas gesucht habe und gleich danach im anderen Feld etwas suche es zunächst automatisch wieder alles anzeigt und dann sucht ohne dass ich, als Anwender, eingreifen muss.
Verstanden? :D Sehr schwierig das gut zu erklären, sorry.
Lg miss18
Hier das dritte Makro und danach die Such-Makros:

Sub Alles()
Rows("12:12").Select
Selection.AutoFilter
Selection.AutoFilter
End Sub




Sub Makro1()
Sheets("Übersicht").Select
Selection.AutoFilter Field:=6, Criteria1:=Range("Eingabedaten!S113").Text
End Sub




Sub MakroOO()
Sheets("Übersicht").Select
Selection.AutoFilter Field:=5, Criteria1:=Range("Eingabedaten!V113").Text
End Sub


Anzeige
AW: Makro Suchfunktion in 2 Spalten
23.02.2009 15:47:03
Daniel
Hi
wenn du dir meinen ersten Makrovorschlag mal angeschaut hättest, dann müsste dir diese Zeile aufgefallen sein:
Selection.AutoFilter Field:=6
bzw
Selection.AutoFilter Field:=5
in diesen Zeilen wird der Autofilter für die entprechende Spalte ausgeschaltet (nicht der gesamte Autofilter, sondern nur für die genannte Spalte)
somit kann dann die andere Spalte unbeeinflusst gefiltert werden.
das kannst du doch auch in deine Makros einbauen und dir damit das Makro "Alles" ersparen.
Grußm, Daniel
AW: Makro Suchfunktion in 2 Spalten
23.02.2009 17:07:45
miss18
Hallo Daniel,
hat wunderbar geklappt.
Sorry ich seh das nicht, also die Befehle. Bis jetzt gehts nur wenn ich rumprobiere und ich dachte die Befehle weil sie schon enthalten sind, haben sich die Befehle erübrigt.
Aber jetzt ist alles wunderbar. Tausend dank.
Lg miss18
Anzeige

304 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
4
6
3
4
5
5
3
3
9
10
4
2
3
3
7
2
14
5
2
5
1
7
2