| Home | Zur Übersicht |
|
| Thema: Dropdown aus Gültigkeitsliste mit Pfeil verlassen |
Betrifft: Dropdown aus Gültigkeitsliste mit Pfeil verlassen
Hallo,
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
Betrifft: AW: Dropdown aus Gültigkeitsliste mit Pfeil verlassen
Private Sub Worksheet_Change(ByVal Target As Range)
'Bei eingaben in einzelne Zellen rechte Nachbarzelle selektieren
If Target.Cells.Count = 1 Then
Target.Offset(0, 1).Select
End If
End Sub
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}")
ElseIf Target.Column > 11 Then
Cells(Target.Row + 1, 1).Select
End If
ErrorHandler:
Application.EnableEvents = True
End Sub
Betrifft: AW: Dropdown aus Gültigkeitsliste mit Pfeil verlassen
Betrifft: AW: Dropdown aus Gültigkeitsliste mit Pfeil verlassen Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) End Sub einsetzen. Wobei "Sh" die Objektvariable für das Blatt ist, in dem das Ereignis stattgefunden hat und "Target" der Zellbereich/die Zelle in dem/der die Änderung/Selektion stattgefunden. Definiert man Ereignis-Prozeduren sowohl unter dem Tabellenblatt als auch unter "DieseArbeitsmappe" dann muss man beachten, dass die Prozeduren unter dem Tabellenblatt zuerst ausgeführt werden. Gruß Franz
Betrifft: AW: Dropdown aus Gültigkeitsliste mit Pfeil verlassen
Betrifft: AW: Dropdown aus Gültigkeitsliste mit Pfeil verlassen
|
