Office: Filterinformation aus Zelle übernehmen

Guten Tag,

ich habe eine Mappe in der sich zwei Blätter befinden.
1. SWCat
2. PIV-FILT

In 1 befinden sich Angaben zu Software, Kategorien, et.
In 2 die Pivot, mit der ich mir die eindeutigen "Kategorien" von 1 anzeigen lassen.
Diese erweitere ich um 2 Spalten.
1. Spalte selektiert die Kategorien nochmals per Formel
2. Spalte dienst zu Selektion
Diese beiden Spalten bzw. Liste, wandele ich in eine Tabelle und setze Autofilter.
Dann kann ich aus n-Kategorien mir die relevanten filtern in dem ich in Spalte 2 ein "S" setze.
Das alles mit normalen Excel Eingaben ohne VBA
Dann erst verkette ich das Ergebnis mit einem kleinen VBA Makro.

Nun möchte ich dieses Ergebnis nutzen, um einen Filter in Blatt 1 "SWCat" zu setzen.
Das gelingt mir aber nicht.
Der Filter wird als String unter "ist gleich..." als Textfilter eingegeben.
Wenn ich die Filterkriterien manuell im Array angebe, dann funktioniert es.

Habe das Gefühl, als würde das Format nicht korrekt übergeben
Die Variable habe als String deklariert.

Dank im Voraus, für Denkanstoß

Grüße

Jörg

:)

 

hi,

poste doch mal Deinen Code...

 

Hallo,

... schon mal den Makro-Rekorder mitlaufen lassen ?

 

Hallo zusammen,

danke fürs die prompte Rückmeldung !

hier der Code der funktioniert, den ich mit Aufzeichnung erzeugt habe.

Sub SetFilt()
'
' Setzt den Filter auf Kategorien und/oder Funktionen
'

'
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter field:=1, Criteria1:= _
Array("Geo Information System", "Graphics", "Office", "Web"), _
Operator:=xlFilterValues

End Sub

und hier der Code, der nicht funktioniert, den ich mir "gebastelt" habe.

Sub FiltUebernahme()

Dim strFilter1 As String

Worksheets("PIV-KAT").Select
strFilter1 = Range("C24")
Worksheets("SWCat").Select
Range("A1").AutoFilter field:=1, Criteria1:=Array(strFilter1), Operator:=xlFilterValues

End Sub

Die Variable "strFilter1" hat durch die Verkettung und Formatierung mit Formeln, exakt den Inhalt, wie der funktionierende Code.

Grüße

Jörg

 

Hi,

mag sein; was aber steht genau in dieser Variablen drin bzw was steht in C24?
Code:

strFilter1 ist kein Array , sondern eine Zeichenkette. Selbst wenn all deine Krierien in strFilter1 resp. C24 drinstehen.
Es würde quasi als eine grosse Zeichenkette und nicht als mehrere Zeichenketten interpretiert.

Wenn Dir bisweilen noch nicht geholfen wurde, biete Ich Dir Support an, sofern Du Deine anonymisierte Mappe hochlädst. Würde Dir den Code hinterlegen; anschließend kannste ihn dann genau unter die Lupe nehmen..... wenn er denn auch funktioniert *wink.gif*

edit:
Aber alte Besen kehren gut, so oder irgendwie so heisst es doch, stimmts? Sabina? *winken

 

Hallo zusammen,

habe mein "Meisterstück :-)" mal hochgeladen.
Tabellen samt Code.

Bin gespannt.

Grüße

Jörg

 

Code:

Ohne dern Rest der Mappe zu begutachten/beurteilen.
Eine Lösung für Dein Problem könnte so aussehen *Smilie

 

P.s:
Pardon, du solltest in deiner Formel noch dafür sorgen , dass die Gänsefüsschen entfernt werden.

Anstatt:
"aaa","bbb","ccc"

aaa,bbb,ccc

 

Hallo Marco,

vielen Dank.
Sieht schon prof. und aufgeräumter auf.
Kann es gut nachvollziehen,

Leider aber bringt es mich noch nicht zum Ziel.
Der Filter wird wohl gesetzt
Die Kriterien stehen auch nicht mehr unter "Textfilter...ist gleich..."
Jedoch werden gar keine Kriterien gesetzt.

Hätte zusätzlich noch 2 Fragen:
Was macht...
strFilter1 = Split(wksQuelle.Range("C24"), ",")
genau ?
Warum hat...
wksZiel.Range("A1").AutoFilter field:=1, Criteria1:=strFilter1(), Operator:=xlFilterValues
strFilter1 noch zusätzlich zwei Klammern ?

Grüße

Jörg

 

Hi jamiga67,

Das ist z.B. hier gut beschrieben:
Excel VBA Split Function - A Complete Guide - Excel Macro Mastery

In diesem Fall haben Sie keine Funktion, dienen lediglich zur Kennzeichnung bzw besseren Lesbarkeit, da es sich nicht um eine einzelne Variable sondern ein Array handelt.
Angelehnt an Deine verwendete Namenskonvention würde ein String-Array wie folgt deklariert werden:

Code:

Wird z.B. hier gut erklärt:
Excel VBA Array - The Complete Guide - Excel Macro Mastery

An sich kann Ich Dir diese Seite komplett empfehlen; wird viel abgedeckt für den Anfang.

*biggrin.gif* Das glaube Ich Dir gern. Mir ging es primär darum, Dir Unterstützung im Umgang mit dem Array bzw dem Filter setzen zu bieten. Also Deinem Quellcode treu zu bleiben.

Du wirst sicherlich sehr viele verschiedene Ansätze/Lösungen hier finden können. Ich persönlich würde dem Umweg über die Pivot lassen. Aber es gilt:
"Viele Wege führen nach Rom " *Smilie

In den Anfängen empfiehlt es sich jedoch nicht zu schnell nach Rom zu fahren, sonst verpasst man doch die schöne Landschaft *wink.gif*

 

Hallo Mase/Marco,

vielen Dank !
Es funktioniert nun einwandfrei.
Quelle bringt mich ebenfalls weiter.
Werde weiterbasteln & tüfteln, aber auch noch viel Fragen.
Habe ja nun eine gute Quelle gefunden *wink.gif*

Grüße und noch einen schönen Sonntag

Jörg/jamiga67

 

Ur wellcome *Smilie

Wennst dennoch fragen hast, immer gerne ...