Einträge in einem anderen Tabellenblatt anzeigen

[zero82]

hallo,

ich habe eine Datei mit etwa 9000 Zeilen und suche eine Möglichkeit alle Positionen, mit einem bestimmten inhalt in einem anderen Tabellenblatt anzuzeigen. Ich habe recherhchiert und bin zum Entschluss gekommen, dass sverweis nicht die geignete Lösung ist, da das Suchkriterium nicht in der 1. Spalte sondern in einer Spalte, die mittig liegt, befindet. Ich komme nicht drauf. Könnte mir vielleicht jemand helfen. Anbei eine Beispieldatei.

Hier möchte ich, dass er alle Einträge, die in Spalte G eine Zahl von 1450 enthalten in einem anderen Tabellenblatt anzeigt. Findet einer die Lösung.. Danke schonmal

Viele Grüße...

[Karolus]

Hallo
→Daten→Filter→Standardfilter....(selbsterklärend)
und mit der Option [x]Ausgabe nach ...

Karolus

[zero82]

ja schon klar. So habe ich es auch gelöst. Ich suche aber eine Möglicheit die Urliste in ein Tabellenblatt zu kopieren und er mir dann automatisch alle Zeilen, die in der Spalte G 1450 enthalten in das nächste Tabellenblatt einfügt. Per Hand habe ich das auch so hingekriegt aber ich möchte dies automatisieren.

[Karolus]

Hallo
Für 'noch mehr Automatik' musst du das entweder per Datenbank und Abfrage lösen.
Oder ein Makro dafür schreiben.

Karolus

[lorbass]

Wenn Karolus' Vorschläge dir nicht gefallen und du meinst, dein Ziel zumindest grundsätzlich mit =SVERWEIS(…) erreichen zu können, wenn denn „das Suchkriterium nicht in der 1. Spalte“ läge, dann sieh dir =VERWEIS(…) an.

Gruß
lorbass

[zero82]

hallo ja es geht wirklich. Ich habe aber das Problem, dass ich nicht nur 30, sondern über mehrere tausend Zeilen habe die angezeigt werden sollen. Wo könnte ich denn die Einstellung ändern?

Hier der Code:

Code: Alles auswählen

REM  *****  BASIC  *****

Sub FilterSetzen

Dim FilterArray(0)
Dok = ThisComponent

'Datenbereich definieren
Blatt = Dok.getsheets().getbyName("Daten")
Cursor = Blatt.createCursor()
Cursor.gotoEndOfUSEDArea(True)

Bereich = Cursor

'Ausgabebereich auswählen und alte Ausgabedaten löschen
ZielBlatt = Dok.getsheets().getbyName("Suche")
Ziel = Zielblatt.getCellRangeByName("A10")

Cursor = ZielBlatt.createCursor()
Cursor.goToEndOfUsedArea(True)

EndSpalte = Cursor.getRangeAddress().EndColumn
EndZeile = Cursor.getRangeAddress().Endrow

If Endzeile > 9 then
Loeschbereich = ZielBlatt.getCellRangeByPosition(0,9,Endspalte,Endzeile)
Loeschbereich.clearcontents(4+1+2+16+8+32)
end if

'Filterkriterium definieren
oFilterBeschreib = Bereich.createFilterDescriptor(True)
Filterfeld = createUnoStruct("com.sun.star.sheet.TableFilterField")

'Filterkriterium suchen
Index = 0
For I = 0 To 14
Wert = ZielBlatt.getCellByPosition(I,1).string

If Wert <> "" Then
Redim Preserve FilterArray(Index)
Filterfeld.field = I
Filterfeld.operator = com.sun.star.sheet.FilterOperator.EQUAL
Filterfeld.StringValue = Wert
FilterArray(Index) = Filterfeld
Index = Index + 1
end if
next
'Filterkriterium zuweisen
oFilterBeschreib.setFilterFields(FilterArray)

'Ausgabebereich definieren

oFilterBeschreib.CopyOutputData = True

oFilterBeschreib.outputPosition = Ziel.CellAddress

'sonstige Einstellung
oFilterBeschreib.ContainsHeader = True
oFilterBeschreib.UseRegularExpressions = True
oFilterBeschreib.isCaseSensitive = false


'Filtern und Ausgabe der Daten
Bereich.filter(oFilterBeschreib)

End Sub 

Viele Grüße
zero

[zero82]

hallo,

ja danke für die hilfe. Ich habe es jetzt geschafft. Beim Suchkriterium hatte ich einen Zahlendreher. Jetzt gehts prima... danke....