Hallo,
ich suchte schon überall im Netz, finde aber keine Lösung dafür. Ich will in OpenOffice alle Adressen mit Namen und Anschrift eintragen und dann ganz oben so ein Suchfeld einrichten, dass dann in dieser Liste betreffende Namen sucht.
Bsp:
-Heinz Maler 53632 Hennstadt Bahnhofstraße 65
-Lens Dresden 87324 Siegelgut Biberstraße 11
-Maria Maier 91341 Markt Siegelstraße 5
-Martin Bauer 97133 Bauerdorf Steinstraße 2
-Maria Schutz 97134 Bauernhof Gut 15
Ich will dann in ein Feld einfach „Maria“ eingeben, so dass er mir diesen namen heraus sucht. So dass es dann etwa so aussieht
-Maria Maier 91341 Markt Siegelstraße 5
-Maria Schutz 97134 Bauernhof Gut 15
Und wenn ich „Maria Sch“ soll es so aussehen
-Maria Schutz 97134 Bauernhof Gut 15
Gebe ich nur „Ma“ ein soll alles kommen was ein „Ma“ im Namen trägt:
-Heinz Maler 53632 Hennstadt Bahnhofstraße 65
-Maria Maier 91341 Markt Siegelstraße 5
-Martin Bauer 97133 Bauerdorf Steinstraße 2
-Maria Schutz 97134 Bauernhof Gut 15
Ich hoffe das es klar ist, wie ich das meine. Ich habs ja schon mit Filter versucht, aber die benötigen alle feste Werte, oder sind sehr umständlich jedes mal neu aufzurufen und wieder zu beenden…
Weiß jemand eine Lösung?
Danke!
L.G.
Mikey
Tja, wie das so ist im Leben.
Ein Filter, oder Autofilter ist genau das Instrument. Einfacher bekommst Du Deine Aufgabe nicht geregelt…
Naja, dann hilft es nichts. Aber danke für die Antwort. Ich werde es jetzt mit den Filtern probieren. Vielleicht fällt mir ja noch was ein, so dass das Suchen etwas leichter ist. ^^
Ich hoffe das es klar ist, wie ich das meine. Ich habs ja
schon mit Filter versucht, aber die benötigen alle feste
Werte, oder sind sehr umständlich jedes mal neu aufzurufen und
wieder zu beenden…
Hi Mikey,
wer sagt denn das?
Bastel mal die im Bild sichtbaren Blätter nach.
Diese Formeln stehen in tabelle2:
A2: =WENN(G2="";"";GROSS2(G2)&"*")
B2: =WENN(H2="";"";GROSS2(H2)&"*")
In Tabelle2 G2 und h2 gibst du deine Suchbegriffe ein, dann entweder daten—Spezialfilter und dann die Felder ausfüllen wie im Bild sichtbar, oder du weist diese Makro einer Schaltfläche wie im Bild zu, dann kostet dich das Filtern nur einen Klick.
(Makro erstellen: Alt+F11, Einfügen–Modul, Code reinkopiere, ggfs. Tabellenblattnamen anpassen, Editor schließen)
Sub Filtern()
Dim Zei As Long, wks As Worksheet
Set wks = Worksheets("Tabelle1")
With Worksheets("Tabelle2")
.Range("A3:F10000").ClearContents
Zei = wks.Cells(Rows.Count, 1).End(xlUp).Row
wks.Range("A1:F" & Zei).AdvancedFilter Action:=xlFilterCopy, \_
CriteriaRange:=.Range("A1:F2"), CopyToRange:=.Range("A3"), Unique:=False
End With
End Sub
Das Bild:
http://www.hostarea.de/server-02/Februar-c85ccf1201.jpg
Gruß
Reinhard
OT Spezialfilter in Excel mit Vba nutzen
Hallo Interessierte,
hab ich doch glatt das Open Office im Betreff überlesen 
Macht nix, hat vielleicht was das Archiv bzw. jemand anderes davon, deshalb Betreffänderung.
Gruß
Reinhard
Ähm wie jetzt? Ich kann Ihnen nicht ganz folgen. Ist das jetzt eine Lösung für OpenOffice oder nicht?
Ähm wie jetzt? Ich kann Ihnen nicht ganz folgen. Ist das jetzt
eine Lösung für OpenOffice oder nicht?
Hallo Mikey,
kann ich nicht klar beantworten.
Meine Lösung ist für MS-Excel. Getestet auf XL2000
In OO-Calc müßte man sie testen.
Gruß
Reinhard
