DropDown
07.11.2005 11:54:49
Susanne
Matthias hat mir letzte Woche bei folgendem Problem super geholfen:
In Tabelle 1 befinden sich die Monate Januar bis Dezember.
In Tabelle 2 möchte ich jetzt ein Dropdownmenue mit den Monaten aus Tabelle 1 haben. Wenn man nun in diesem Menue z.b. den September auswählt, dann soll er
in Tabelle 2 auf den in A1 enthaltenen Namen September springen und diese Zeile als oberste anzeigen.Das funktioniert auch hiermit super:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z As Range
If Not Intersect(Range("E1"), Target) Is Nothing Then
Set z = Range("A:A").Find(what:=Target, lookat:=xlWhole)
If Not z Is Nothing Then
ActiveWindow.ScrollRow = z.Row
End If
End If
End Sub
Nun möchte ich das er weiterhin diese Zeile als oberste anzeigt, aber alles was nicht der Auswahl entspricht, in diesem Beispiel September ,darunter ausblendet.
Beispiel:
Auswahl September
in A steht
Januar
Januar
Februar
März
.
.
.
September
September
September
Oktober
November
November
Dezember
Wenn über DropDown nun September ausgewählt wird möchte ich die 3 Zeilen mit September sehen, bei November die beiden Zeilen mit November.
Wie kann ich das am besten realisieren?
LG
Susanne