Text aus Textbox sofort in Zelle schreiben

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

Ich habe ein Problem mit dem unten dargestellten Code. Ich muss das ganze noch mit Spezialfilter versehen - was kein Problem sein sollte - der nach jedem Buchstaben aktualisiert/ ausgeführt wird. Aber es hängt immer ein Buchstabe nach. Aber es sollte eigentlich klar sein, wenn man es ausprobiert

Beispieltabelle ohne Codes:

http://www.hostarea.de/server-03/Maerz-02362bbd8f.xls

Code:

Private Sub TextBox1\_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim tb1
tb1 = TextBox1.Text
Range("B1").Select
Range("B1").FormulaR1C1 = tb1
TextBox1.Activate
End Sub

Grüße
dnbma

2

Ich habe ein Problem mit dem unten dargestellten Code. Ich
muss das ganze noch mit Spezialfilter versehen - was kein
Problem sein sollte - der nach jedem Buchstaben aktualisiert/
ausgeführt wird. Aber es hängt immer ein Buchstabe nach. Aber
es sollte eigentlich klar sein, wenn man es ausprobiert

Hallo dnbma,

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Range(„B1“) = TextBox1.Text
End Sub

Gruß
Reinhard

3

Grüezi dnbma

Ich habe ein Problem mit dem unten dargestellten Code. Ich
muss das ganze noch mit Spezialfilter versehen - was kein
Problem sein sollte - der nach jedem Buchstaben aktualisiert/
ausgeführt wird. Aber es hängt immer ein Buchstabe nach.

Warum willst Du das per VBA tun?

Verknüpfe die Texboxen doch über deren Eigenschaft ‚LinkedCell‘ mit den Zellen, dann wird der getippt Inhalt gleich in die Zelle geschrieben.

Ich vermute, dass Du in etwa folgendes realisieren möchtest:

http://users.quick-line.ch/ramel/Demo-Daten/Filter_s…

–
Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
4

Klasse Danke euch beiden!!!

Aber ich frage mich warum es mit KeyUp funktioniert und mit KeyDown nicht.

Danke

Gruß
dnbma

5

Aber ich frage mich warum es mit KeyUp funktioniert und mit
KeyDown nicht.

Hallo dnbma,

in dem Moment in dem du die Taste drückst ist sie noch nicht im Textfeld.

Gruß
Reinhard

6

Ok Danke!