Dropdown automatisch aufklappen

Forumthread: Dropdown automatisch aufklappen

29.01.2009 11:32:38

Andre´

Hallo alle zusammen,
unter Excel 2003 funktionierte folgender Code:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
Application.SendKeys ("%{UNTEN}")
End If
End Sub

Dieser bewirkte, dass wenn in der Spalte B eine Zelle mit Daten,Gültigkeit einer Liste versehen war dieser aufklappte ohne auf den DropDown Pfeil zu klicken.
In Excel 2007 funktioniert es leider nicht.
Gibt es auch hierfür einen Code.
Vielen Dank im Voraus!
MFG Andre

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dropdown automatisch aufklappen

29.01.2009 12:57:00

Luschi
Funzt Vielen Dank :-)) o.T

29.01.2009 13:47:00

Andre´

AW: Dropdown automatisch aufklappen

29.01.2009 12:57:00

Luschi

Hallo Andre,
so sollte es klappen:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
Application.EnableEvents = False
'Gültigkeitsliste befindet sich in Zelle 'B3'
ActiveSheet.Range("B3").Select
Application.SendKeys ("%{Down}")
Application.EnableEvents = True
End If
End Sub

Gruß von Luschi
aus klein-Paris

Funzt Vielen Dank :-)) o.T

29.01.2009 13:47:00

Andre´

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um ein Dropdown in Excel automatisch aufklappen zu lassen, kannst Du den folgenden VBA-Code verwenden. Dieser funktioniert in Excel 2007 und höher:

Öffne Deine Excel-Datei.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Wähle das Arbeitsblatt aus, in dem Du das Dropdown automatisch aufklappen möchtest.
Füge den folgenden Code in das Codefenster ein:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 2 Then
        Application.EnableEvents = False
        ' Gültigkeitsliste befindet sich in Zelle 'B3'
        ActiveSheet.Range("B3").Select
        Application.SendKeys ("%{Down}")
        Application.EnableEvents = True
    End If
End Sub

Schließe den VBA-Editor.
Teste die Funktion, indem Du eine Zelle in Spalte B auswählst.

Häufige Fehler und Lösungen

Fehler: Der Dropdown öffnet sich nicht.
- Lösung: Stelle sicher, dass die Gültigkeitsliste korrekt eingerichtet ist und sich in der angegebenen Zelle befindet.
Fehler: Der Code funktioniert nicht in Excel 2003.
- Lösung: Verwende den Code, der für Excel 2003 vorgesehen ist, möglicherweise muss der Code leicht angepasst werden.

Alternative Methoden

Ein Excel-Shortcut kann ebenfalls verwendet werden, um das Dropdown zu öffnen. Drücke einfach ALT + Pfeil nach unten, wenn die Zelle mit der Gültigkeitsliste ausgewählt ist. Dies ist eine schnelle und einfache Methode, um das Dropdown in Excel zu öffnen, ohne VBA zu verwenden.

Praktische Beispiele

Wenn Du eine Dropdown-Liste in Excel erstellt hast und sie automatisch aufklappen möchtest, könnte das so aussehen:

Erstelle eine Dropdown-Liste in Zelle B3, indem Du Datenüberprüfung verwendest.
Wende den obigen VBA-Code an, um das Dropdown bei Auswahl anderer Zellen in der Spalte B automatisch zu öffnen.

Tipps für Profis

Verwende den Shortcut ALT + zur Auswahl, um schnell durch Dropdown-Listen zu navigieren.
Um die Benutzererfahrung zu verbessern, kannst Du mehrere Dropdowns in einer Tabelle erstellen und den VBA-Code so anpassen, dass er für unterschiedliche Spalten funktioniert.

FAQ: Häufige Fragen

1. Wie kann ich das Dropdown in Excel für mehrere Spalten aktivieren?
Du kannst den Code anpassen, indem Du die If Target.Column = 2-Bedingung änderst oder mehrere Bedingungen für verschiedene Spalten hinzufügst.

2. Funktioniert dieser Code auch in Excel 2010 oder höher?
Ja, der Code sollte in Excel 2010 und allen späteren Versionen funktionieren, solange die Gültigkeitsliste korrekt eingerichtet ist.

Beliebteste Forumthreads (12 Monate)