Office: Eingabe prüfen

Hallo,
Ich möchte per VBA die Eingabe in Feldern einer Spalte prüfen.

Welche Events kann ich dafür nutzen? 'worksheet_selectionChange' feuert zu spät, weil der Fokus dann schon auf dem nächsten Feld ist.

Wie kann ich verhindern, dass das Feld verlassen wird, ohne die Eingabe korrigiert oder gelöscht zu haben?

Ein Dropdown-Feld kann ich leider nicht benutzen, da die möglichen Eingaben von anderen Daten abhängig sind, die ich erst auswerten kann, wenn eine Eingabe im betreffenden Feld erfolgt.

:)

 

Die Eingabe ist erst mit Enter beendet, da ist Change das richtige Ereignis.

 

\@Hajo
Danke für die Antwort.
Das funktioniert aber nur, wenn ich den Wert neu eingebe oder ändere.
Ich habe folgende Sub gebastelt:
Code:

 

das geht nicht, da keine Eingabe.

 

Hallo!
Du musst den alten Wert durch ein Selection_Change zunächst in einer modulweiten Variable zwischenspeichern und ihn im _Change bei Nichterfüllen der Bedingung wieder zurückschreiben.

Allerdings:
Sowas kannst Du doch ganz einfach ohne VBA mit der Datenüberprüfung lösen.

Gruß Ralf

 

Hallo Dinkel,

Das habe ich mir auch gedacht !

Wenn es aber eine VBA-Lösung sein sollte, dann wäre das ein mögliches Vorgehen.
Code:

 

Danke für eure Antworten!

@Aloys
Leider funktoniert deine Lösung nicht, da ich nach einem Fehler das Feld einfach mit Enter verlassen kann.

Inzwischen hatte ich folgende Idee (die Ralf dann auch angedeutet hat):

Code:

 

Hallo Dinkel,

Das kann ich im Moment nicht nachvollziehen. Kannst Du mal die einzelnen Schritte beschreiben, mit denen Du dies erreichst.

Gruß
Aloys

 

\@aloys
Ich habe deinen Code in meine Tabelle kopiert (und meinen Code natürlich auskommentiert).
Dann habe ich 'kompiliert'.
Gebe ich in Feld (3,4) 3 ein, erscheint die MBox und der Wert wird gelöscht. OK
Drücke ich jetzt nur Enter, bin ich im nächsten Feld.

Gut - das ist ja auch OK und entspricht meiner ursprünglichen Frage.
Ich habe nur zufällig in meiner Tabelle schon eine Anzahl gültiger Einträge in Spalte 4 gehabt und dann irgend einen auf falsch geändert. Deine Routine löscht diesen Wert dann (was ja nicht mehr als Fehler interpretiert wird) und so ensteht eine Lücke in meiner Spalte.

Ich müsste meine Logik vielleicht noch so erweitern, dass Lücken in der Spalte nicht erlaubt sind.

Deine Lösung funktioniert also im Rahmen meiner Frage und ich entschuldige mich für

denn diese Aussage war nicht ausreichend durchdacht. Sorry.

Gruß
Dinkel

 

Hallo Dinkel,

danke für die Rückmeldung.

Ich habe meinen Code entsprechend überarbeitet und die Änderungen rot markiert; er ersetzt den bisherigen.
Dort habe ich auch eine Definition angeführt, die in einem allgemeinen Modul abgelegt werden muss.
Code:

 

Danke Aloys,

damit kann ich meine Zwecke gut erfüllen. Vielen Dank für deine Mühe!
Ich habe noch eine Kleinigkeit geändert, nämlich noch ein

target.select

vor

application.enable_events = false

damit der Cursor im Fehlerfeld bleibt.

Statt p_select in einem modul public zu definieren, geht auch ein
dim p_select..
im Formularkopf (gleich nach explicit none). Der scope (Gültigkeitsbereich) solcher Definitionen gilt dann zumindest für die gesamte Tabelle. Erst wenn ich die Funktion in verschiedenen Tabellen nutzen möchte, muss ich sie in ein Modul auslagern.

Schade, dass Excel keine Events wie before_update (Access) feuert, denn auch im Fehlerfall werden leider zuerst Formeln abhängiger Felder ausgewertet, so dass dort dann ungewollte Ergebnisse errechnet und dargestellt werden. Oder kann man das irgendwie verhindern? (Vielleicht indem man in ein weiteres Feld z.B. eine 1 für OK schreibt und die abhängigen Formeln dann mit
Wenn("testfeld"=1;...formel...;"") klammert.)

Übrigens habe ich mein Beispiel stark vereinfacht; jetzt werde ich mich daran setzen, die gesamte Prüf-Logik in das Gerüst einzubauen.

Danke und Gruß,

Dinkel