Office: Delete und Backspace in TextBox deaktivieren

Hallo,

gibt es eine Möglichkeit, in einer Textbox einer Userform die Tasten Delete und Backspace zu deaktivieren? Die Eingabe in der Textbox darf nicht gelöscht werden, sondern soll überschrieben werden.

Folgender Hintergrund:
Code:

Mit diesem Code suche ich über eine Textbox einen bestimmten Datensatz in einer Listbox. Im originalen Code heißt es allerdings Suchbegriff.Row - 1

Ich durchsuche in verschiedenen Userformen Listen nach bestimmten Datensätzen. Immer hat Suchbegriff.Row - 1 problemlos funktioniert. Die Tabellen sind identisch aufgebaut: 1. Zeile Überschrift, ab der 2. Zeile die Daten.

Tabelle "Alle" hat mir mit Suchbegriff.Row -1 keinen richtigen Treffer angezeigt, mit Suchbegriff.Row - 2 dann schon. Der Nachteil ist nur, dass ich jetzt den Suchbegriff nicht mehr löschen kann um neu zu suchen. Überschreiben geht. Ich bekomme
Laufzeitfehler 380
Eigenschaft ListIndex konnte nicht gesetzt werden. Ungültiger Eigenschaftswert.

Deswegen meine Idee, die Entf-Taste und die Rücktaste in besagter Textbox zu deaktivieren.
Habe es mit onkey "{delete}", "" versucht, doch das geht nicht.

Kann mir bitte jemand weiterhelfen? Was ist bei Suchbegriff.Row - 2 falsch, bzw. wie kann ich diese beiden Tasten in der Textbox deaktivieren?

Freue mich über jede Hilfe.

beste Grüße Foulcrow

:)

 

Hallo,

kannst du mal deine Mappe hochladen.

Gruß Werner

 

Bestimmte Tasten kannst du mit dem Ereignis Key_Down sperren. In deinem Fall betrifft das die Keycodes 8 (Backspace) und 46 (Delete). Der Code in der Userform wäre dann dieser:
Code:

Davon unabhängig ist deine Codezeile
Code:

extrem fehlerträchtig. Wenn es den ListBox-Eintrag mit diesem Index nicht gibt, dann kommt der von dir beschriebene Fehler. Ich weiß ja nicht, wie du die ListBox befüllst, aber wohl nur mit den Treffer-Zeilen. Suchbegriff.Row liefert dir aber die absolute Zeile. Wenn du beispielsweise in Zeile 9 den ersten Treffer findest, dann ist Suchbegriff.Row = 9, aber der entsprechende ListBox-Eintrag hat den Index 0 (erster Eintrag). Deine Rechnung sucht nach 8 (...-1) bzw. 7 (...-2), die aber nicht in der Liste sind.

 

Hallo Hans,

vielen Dank, das hilft mir schon mal sehr weiter.
Den Code, so wie ich ihn reingestellt habe, habe ich im Internet gefunden. Allerdings bin ich in VBA Anfänger, und ich verstehe nicht, was er genau bedeutet. Er hat bei 3 Userformen funktioniert und bei der vierten Userform nicht.
Alle meine Listboxen werden folgendermaßen befüllt:

Code:

In meiner Textbox gebe ich nun einen Namen ein, z.B. Meier. Je nachdem, wie viele Buchstaben oder Zahlen ich eingebe, wird mir der erste gefundene Datensatz angezeigt. Nur eben bei besagter Userform nicht.

Ich werde aber erst mal deinen KeyDown-Vorschlag ausprobieren und mich danach noch einmal melden.

beste Grüße Foulcrow

 

Du solltest die Exceldatei hier hochladen, sonst ist das zu mühselig.

 

Hallo Hans,

dein KeyDown-Vorschlag funktioniert super. Recht herzlichen Dank dafür. Das mit dem Hochladen der Tabelle muss ich mal versuchen. Die Datenbank ist sehr komplex, keine Ahnung ob sie noch funktioniert, wenn ich einzelne Teile rausnehme. Ich versuchs mal.

beste Grüße Foulcrow