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
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
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:
und in einem Modul folgenden Code einfügen:
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 -
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 SubDie 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 -

