Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
focus in textbox
24.10.2005 21:15:28
walcarre
Hallo,
Mit folgendem code gebe ich über ein userform werte in eine excel-tabelle ein und lese sie gleichzeitig aus.
die Userform besitzt eine textbox zum eingeben, 5 labels zum auslesen und ein commandbutton zum löschen der werte.
Ich schaffe es nicht nach Bestätigen eines eingabewerts durch Enter den Focus in der Textbox zu lassen.
Der Focus springt automatisch auf den commandbutton.
Wer weiss Rat ? Mit SetFocus klappt es nicht !!!
Gruss, walcarre

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn And TextBox1 <> "" Then
If Sheets("Feuil1").Range("J65536").End(xlUp).Offset(1, 0).Row < 6 Then
Cells(6, 10) = Me.TextBox1
Me.TextBox1 = ""
Else
Sheets("Feuil1").Cells(Range("J65536").End(xlUp).Offset(1, 0).Row, 10) = Me.TextBox1
Me.TextBox1 = ""
End If
End If
Me.Label1.Caption = Sheets("Feuil1").Range("J6")
Me.Label2.Caption = Sheets("Feuil1").Range("J7")
Me.Label3.Caption = Sheets("Feuil1").Range("J8")
Me.Label4.Caption = Sheets("Feuil1").Range("J9")
Me.Label5.Caption = Sheets("Feuil1").Range("J10")
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: focus in textbox
24.10.2005 21:19:57
Hajo_Zi
Hallo Hans Bärbel,
mal so ins blaue benutze das Ereignis Exit. BBei Fehler Cancel =True
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP2.


AW: focus in textbox
25.10.2005 08:54:56
Hajo_Zi
Hallo Hans Bärbel,

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If KeyCode = vbKeyReturn Then
Cancel = True
If Sheets("Feuil1").Range("J65536").End(xlUp).Offset(1, 0).Row < 6 Then
Cells(6, 10) = Me.TextBox1
Me.TextBox1 = ""
Else
Sheets("Feuil1").Cells(Range("J65536").End(xlUp).Offset(1, 0).Row, 10) = Me.TextBox1
Me.TextBox1 = Sheets("Feuil1").Cells(Range("J65536").End(xlUp).Offset(1, 0).Row, 10).Value
End If
End If
Me.Label1.Caption = Sheets("Feuil1").Range("J6")
Me.Label2.Caption = Sheets("Feuil1").Range("J7")
Me.Label3.Caption = Sheets("Feuil1").Range("J8")
Me.Label4.Caption = Sheets("Feuil1").Range("J9")
Me.Label5.Caption = Sheets("Feuil1").Range("J10")
End Sub

DEinen entsprechenden Code löschen.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Anzeige
AW: focus in textbox
26.10.2005 07:43:47
walcarre
hallo hajo,
damit funktioniert das eingeben mit enter nicht mehr.
Habe aber inzwischen andere Lösung gefunden.
Trotzdem vielen Dank,
Gruss
walcarre

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige