Eingabe in Bearbeitungsleiste bestätigen

hallo Leute,
links neben der Bearbeitungsleiste werden 3 Symbole eingeblendet:
1. Abbrechen (Symbol X)
2. Eingeben (Symbol Häkchen)
3. Funktion einfügen (Symbol fx)
Nach erfolgter Eingabe in die Bearbeitungsleiste kann dieser Vorgang abgeschlossen werden:
1. durch Anklicken von "Eingeben (Symbol Häkchen)"; der Cursor im Tabellenblatt verbleibt in der bisherigen Zelle
2. durch Betätigen der "Return-Taste"; der Cursor springt in eine durch die Excel-Optionen vorgegebene Richtung.
Für die Neuberechnung ist es unerheblich welche Variante der Anwender bevorzugt; für meine nachfolgende VBA-Bearbeitung hingegen ist es schon ein entscheidendes Kriterium ob der Cursor in der vorherigen Zelle verbleibt oder ob er in die vorgegebene Richtung und somit andere Zelle springt.
Meine Frage lautet daher: wie kann ich mittels VBA-Code abfragen mit welcher der beiden Varianten die Eingabe bestätigt wurde; oder ist es alternativ möglich temporär nur eine der beiden Varianten zuzulassen?
mfg
reiner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Reiner,
es gibt ein spezielles Ereignis-Makro mit dem man die Eingaben in Zellen eines Tabellenblattes überwachen kann.
Die geänderte Zelle(n) werden dabei automatisch einer Variablen mit Name Target zugewiesen. Diese kann man benutzen, um die Eingaben zu prüfen oder auch weitere Aktionen auszuführen. Man muss dabei nicht mit ActiveCell arbeiten, sondern kann Target verwenden.
Man kann auch nach der Eingabe eines Werte in bestimmte Zellen die Eingabezelle wieder selektieren, um einne definierten Startpunkt für eine Folgeaktion zu haben.
Die Methode, wie die Eingabe abgeschlossen wird, spielt dabei keine Rolle.
Nachfolgend ein Beispiel.
Gruß
Franz

'Code unter dem Tabellenblatt, in dem die Eingaben gemacht werden
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 2 'Spalte B
Select Case Target.Row
Case Is >= 2 'Zeile muss größer oder gleich 2 sein
If Target.Cells.Count = 1 Then 'Aktion nur wenn einzelne Zelle geändert wurde
Select Case Target.Value
Case 0 To 100
'Eingabe ist OK
Application.EnableEvents = False
'Folgeaktionen, wenn Eingabewert korrekt
Call prcFolgeaktion(Zelle:=Target)
Application.EnableEvents = True
Case Else
MsgBox "Zulässig sind nur Zahlen von 0 bis 100"
Application.Undo
End Select
End If
Case Else
'do nothing
End Select
Case 4 'Spalte D
Select Case Target.Row
Case 2 To 5 'Zeile muss 2 und 5 sein
If Target.Cells.Count = 1 Then 'Aktion nur wenn einzelne Zelle geändert wurde
'Eingabezelle wieder selektieren
Target.Select
End If
Case Else
'do nothing
End Select
End Select
End Sub
Sub prcFolgeaktion(Zelle As Range)
'In rechte Nachbarzelle der Eingabezelle einen Wert eintragen
Zelle.Offset(0, 1) = "Ok"
End Sub

' Cursorbewegung nach Enter abschalten Application.MoveAfterReturn = False ' Cursorbewegung nach Enter einschalten Application.MoveAfterReturn = True ' Richtung der Cursorbewegung bei Enter nach Eingabe ändern/setzen Application.MoveAfterReturnDirection = xlToRight Application.MoveAfterReturnDirection = xlToLeft Application.MoveAfterReturnDirection = xlDown Application.MoveAfterReturnDirection = xlUp

Beliebteste Forumthreads (12 Monate)

Eingabe in Bearbeitungsleiste bestätigen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread