Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Kobinationskasten und Filter





Frage

Hallo miteinander. Ich habe nachfolgendes Problem: Ich hab eine Einstiegsseite im xls und möchte, dass man dort eine vorgegebene Auswahl wählen kann. Nach der Auswahl sollte man mittels Knopfdruck von einem anderen Tabellenblatt eine Filterung der vielen Daten gemäss Auswahl erhalten. $ Als beispiel: Ich wähle "alle Projekte im 2007" und klick go. Dann komm ich auf das Tabellenblatt x und dort zeigt es nur noch die Auswahl an. Kann mir da jemand helfen? Txs und bx. blauvogt

Antwort 1 von piano

Hallo
Eine Frage:
Handelt es sich beim "Tabellenblatt x" immer um das selbe oder gibt es für jede Auswahl eigene Blätter?
Gruss
piano

Antwort 2 von blauvogt

Hallo piano

Ja, es handelt sich immer um das gleiche Tabellenblatt.

Gruss,
blauvogt

Antwort 3 von piano

Hallo
Hier ein Vorschlag für eine einfache Lösung:
Ich habe in "Tabelle1" in der Zelle A1 eine Gültigkeitsprüfung mit allen möglichen Auswahlkriterien angenommen.
Eine davon ist *Alle*, damit der Filter wieder aufgehoben werden kann.
In "Diese Arbeitsmappe" folgenden Code einfügen:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then
    FilterSetzen
End If
End Sub

und in einem Modul folgenden Code einfügen:
Sub FilterSetzen()
Dim Kriterium
Sheets("Tabelle1").Select
Kriterium = Range("A1").Value
Sheets("Tabelle3").Select
If Kriterium = "*Alle*" Then
    ActiveSheet.AutoFilterMode = False
Else
    x = Selection.AutoFilter(1, "=" & Kriterium, xlAnd)
End If
End Sub

Die Zellposition und Tabellennamen mußt du noch anpassen.

Gruß piano

Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: