Office: Dropdown "verlängern" (mehr Einträge anzeigen)

Hallo,

ich habe in Excel 2007 eine Zelle mit einer Gültigkeitsliste (Daten > Datenüberprüfung) belegt. Die Auswahlliste (Dropdown) zeigt werksmäßig nur acht Einträge an.

Meine Liste ist aber 500 Einträge lang, das Scrollen ist nervig!

Irgendwo im Netz habe ich den unten angehängten Code gefunden, den ich in das Modul "Diese Arbeitsmappe" kopiert habe.

Er verlängert die Liste tatsächlich, hat aber einen riesigen Nachteil:

Ich kann in der angezeigten Liste nicht mehr mit der Maus scrollen (weder über Mausrad, noch über eine Laufleiste an der Seite der Liste - DIE FEHLT!). Scrollen geht also nur noch, indem ich einen Eintrag in der Liste auswähle und dann mit Bild runter/rauf (also mit der Tastatur) scrolle.

Kann man das abstellen? Wie bekomme ich also meine Laufleiste (Scroll-Bar) an der Seite zurück??

Vielen Dank und viele Grüße
Fin

Hier der benutzte Code, der wohl irgendwie angepasst werden muss (nur wo?):


Option Explicit

Dim oDpd As Object
Dim sFml1
Dim prvTarget As Range

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Const dFixedPos As Double = "0.8" 'anpassen
Const dFixWidth As Double = "12.0" 'anpassen
Dim vld As Validation
Dim lDpdLine As Long

If Not prvTarget Is Nothing Then
If Not oDpd Is Nothing Then
If oDpd.Value = 0 Then
prvTarget.Value = vbNullString
Else
prvTarget.Value = Range(Mid(sFml1, 2)).Item(oDpd.Value)
End If
Set prvTarget = Nothing
End If
End If

On Error Resume Next
oDpd.Delete
sFml1 = vbNullString
Set oDpd = Nothing
On Error GoTo 0

If Target.Count > 1 Then
Set oDpd = Nothing
Exit Sub
End If

Set vld = Target.Validation
On Error GoTo Terminate
sFml1 = vld.Formula1
On Error GoTo 0

Set prvTarget = Target

lDpdLine = Range(Mid(sFml1, 2)).Rows.Count

With Target
Set oDpd = ActiveSheet.DropDowns.Add( _
.Left - dFixedPos, _
.Top - dFixedPos, _
.Width + dFixWidth + dFixedPos * 2, _
.Height + dFixedPos * 2)
End With
With oDpd
.ListFillRange = sFml1
.DropDownLines = lDpdLine
.Display3DShading = True
End With
Terminate:
End Sub

 

Hat keiner eine Idee, wie man das verlängerte Dropdown-Menü "benutzerfreundlich" gestalten kann?

Zum einen möchte ich wieder mit der Maus (Mausrad oder per Klick auf die Scroll-Bar) scrollen können, zum anderen wäre es aber auch toll, z. B. mit der Tastatur zu einem bestimmten Buchstaben springen zu können (kennt man ja sonst eigentlich auch bei solchen Auswahllisten).

LG
Fin

 

Grüezi Fin

Sowas kannst Du (einfach und zuverlässig) nur mit einer Combobox aus der Steuerelement-Toolbar lösen.

Das DropDown der Gültigkeitsprüfung kann nur 'verbogen' werden (wie es dein Code tut), was aber einige Einschränkungen mit sich bringt.

 

Hi Fin,

schau dir mal das Beispiel DropDown Zoom von meiner HP an - vielleicht hilft es dir weiter.

Bis später,
Karin

 

Hallo Karin,

danke für den Code. Im Ergebnis erreiche ich über Deine "Simulation" einer Liste genau das, was ich wollte. Super-Idee!

Allerdings möchte ich die Auswahlliste nicht in nur einer Zelle haben (bei Dir "$C$2"), sondern in jeder Zelle eines Bereiches (nämlich "O2:AP1499").

Leider ist es mir nicht gelungen, Deinen Code anzupassen. Kannst Du mir weiterhelfen?

LG
Fin

 

Hi Fin,

schau dir dazu mal dieses Beispiel an DropDown Zoom mehrere.

Bis später,
karin