ich muss eine ellenlange Liste mit Datensätzen erstellen in die viele Gültigkeitslisten eingebaut sind.
Dazu habe ich einen Code gefunden bei dem die Gültikeitsliste einer Zelle beim Aktivieren sofort aufklappt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo ErrorHandler
Application.EnableEvents = False
If Not Intersect(Target, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
SendKeys ("%{DOWN}")
End If
ErrorHandler:
Application.EnableEvents = True
End Sub
Nun möchte ich noch ergänzen, dass,
-wenn ein Eintrag mit Enter gemacht wurde, die Zelle rechts daneben ausgewählt wird.
- mit den Pfeiltasten links und recht die Zellen zur nächste Zelle gehen kann (ohne Eintrag) ohne vorher mit Escape zu beenden.
- am Ende des Datensatzes (Spalte K) in die nächste Zeile, erste Spalte A gewechselt wird.
Der Makrorecorder zeichet ja nichts auf dazu, oder? Es wäre super, wenn mir jemand helfen könnte, ich klick mir sonst einen Wolf.
Viele Grüße