Supportnet / Forum / Tabellenkalkulation
Zeile ausblenden abhängig von Drop-down Auswahl
Frage
Hallo zusammen,
Ich hab da ein kleines Problem, oder besser gesagt, ich sehe den Wald vor lauter Bäumen nicht mehr.
Ich habe über die Gültigkeitsfunktion ein Drop-Down Menü in Excel erstellt. Es stehen 3 Werte zur Auswahl
1. Aktuell
2. In Erstellung
3. In Überarbeitung
In meiner Tabelle steht in einer Spalte jeweils einer dieser drei Attribute.
Jetzt möchte ich es über ein Makro schaffen, dass nur die Zeilen eingeblendet bleiben, die das entsprechend gewählte Attribut aus der Drop-Down-Liste aufweisen. Der Rest soll ausgeblendet werden.
Hat jemand eine Idee?
Vielen Dank im Voraus,
Tobi
Antwort 1 von tobi123
Hey Leute,
Falls sich jemand mit meinem Problem beschäftigt hat danke ich für die Mühe, aber ich bin schon selbst auf eine Lösung gekommen. Falls jemand in Zukunft ein ähnliches Problem hat soll dies nun hier dokumentiert werden:
Ich habe einen Wenn-Verweis in drei außen liegenden Spalten gemacht.
Konkret: In Spalte I stand einer der drei Attribute.
In Spalte X =WENN(I6="aktuell";1;0),
In Spalte Y =WENN(I6="in Erstellung";1;0),
In Spalte Z =WENN(I6="in Überarbeitung";1;0) gesetzt.
Dann habe ich folgendes Makro geschrieben und mit dem Button des Drop-Down Menüs verknüpft:
Keine Ahnung, ob das der beste Weg war, aber er funktioniert. Und da sich niemand gemeldet hat gehe ich mal davon aus, dass es nicht der schlechteste Weg war, da es überhaupt ein Weg ist.
Gruß,
Tobi
Falls sich jemand mit meinem Problem beschäftigt hat danke ich für die Mühe, aber ich bin schon selbst auf eine Lösung gekommen. Falls jemand in Zukunft ein ähnliches Problem hat soll dies nun hier dokumentiert werden:
Ich habe einen Wenn-Verweis in drei außen liegenden Spalten gemacht.
Konkret: In Spalte I stand einer der drei Attribute.
In Spalte X =WENN(I6="aktuell";1;0),
In Spalte Y =WENN(I6="in Erstellung";1;0),
In Spalte Z =WENN(I6="in Überarbeitung";1;0) gesetzt.
Dann habe ich folgendes Makro geschrieben und mit dem Button des Drop-Down Menüs verknüpft:
Private Sub CommandButton3_Click()
Rows("6:400").Select
Selection.EntireRow.Hidden = False
Dim a As Long
Dim b As Long
Dim c As Long
If Range("G3").Value = "aktuell" Then a = 25
If Range("G3").Value = "in Erstellung" Then a = 26
If Range("G3").Value = "in Überarbeitung" Then a = 27
ActiveSheet.UsedRange.Select
c = 400
For b = 6 To c
If Cells(b, a).Value = "0" Then Rows(b).EntireRow.Hidden = True
Next b
ActiveWindow.SmallScroll Down:=-426
Cells(3, 7).Select
End Sub
Keine Ahnung, ob das der beste Weg war, aber er funktioniert. Und da sich niemand gemeldet hat gehe ich mal davon aus, dass es nicht der schlechteste Weg war, da es überhaupt ein Weg ist.
Gruß,
Tobi

