Setfocus auf Textbox1
fph
ich habe im Moment mal wieder Unterdruck im Hirn.
Ich bekomme es einfach nicht hin das in einer Userform die Textbox1 bei Start aktiviert wird.
Der Cursor soll in Text box ein stehen.
Zur verdeutlichung habe ich den Code mal hier gepostet.
Wäre nett wenn einer von Euch sich das mal ansehen könnte und mein Hinr mal auf die Sprüge hilft.
Vorab Vielen dank für Eire hlfe.
Gruß Franzel
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox1.SetFocus
If KeyCode = 13 Then
Call DatensatzEintragen
End If
End Sub
Sub DatensatzEintragen()Dim LetzteZeile As Integer
Dim wert As Integer
Dim x As Integer
With ThisWorkbook.Sheets("tabelle2")
TextBox1.SetFocus
LetzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
'in LetzteZeile wird die Zeilennummer ermittelt, indem der letzte Datensatz steht
Cells(LetzteZeile, 1) = TextBox1.Value
'TextBox1 = Name des Textfeldes auf der UserForm
'wenn die Textbox1 umbenannt wird, so muß dieser Code von Hand auch angepasst werden
'Cells(LetzteZeile + 1,1):Ergibt die Zelle, in der ein Wert reingeschrieben wird
'Wenn z.B. der letzte Datensatz in Zeile 2 steht, so ermittelt der Code oben für die
'Variable LetzteZeile den Wert 2.
'Damit die gleiche Zeile nicht überschrieben wird, müssen wir + 1 hinzufügen,
'damit der nächste Datensatz in Zeile 3 geschrieben wird.
'der Aufbau von Cells ist folgendermaßen: Cells(Zeilennummer,Spaltennummer)
'Cells(1,2) ist nichts anderes wie Range("B1"):1 = Zeile, 2 = Spalte
'Für unser Beispiel bedeutet das folgendes:
'Cells(LetzteZeile + 1, 2) = TextBox2
'wert = Sheets("tabelle1").Range("C65536").End(xlUp)
'TextBox2.Value = wert
End With
x = Cells(65536, 1).End(xlUp).Row
TextBox2 = Sheets("Tabelle2").Cells(x, 2)
TextBox3 = Sheets("Tabelle2").Cells(x, 3)
TextBox4 = Sheets("Tabelle2").Cells(x, 4)
TextBox5 = Sheets("Tabelle2").Cells(x, 6)
TextBox6 = Sheets("Tabelle2").Cells(x, 7)
TextBox7 = Sheets("Tabelle2").Cells(x, 13)
TextBox1a = Sheets("Tabelle2").Cells(x, 1)
TextBox2b = Sheets("Tabelle2").Cells(x, 2)
TextBox3c = Sheets("Tabelle2").Cells(x, 3)
TextBox4e = Sheets("Tabelle2").Cells(x, 4)
'Call ausgabe
If TextBox5 = "OK" Then TextBox5.BackColor = &HFF00&
If TextBox5 = "Fehler" Then TextBox5.BackColor = &HFF&
If TextBox6 = "J" Then TextBox6.BackColor = &HFF00&
If TextBox6 = "L" Then TextBox6.BackColor = &HFF&
TextBox1 = ""
TextBox1.SetFocus
End Sub