SetFocus setzt sich in falsche TB?
13.10.2004 22:14:44
Peter
mit nachfolgendem Code überschreibe ich von einer UF aus einen Datensatz in der Tabelle 2003...klappt auch bestens, jedoch möchte ich wie in der drittletzten Zeile geschrieben, danach den Focus wieder in TextBox1 haben, er setzt sich jedoch in Textbox2....wieso?
Sub Überschreiben()
If ComboBox2.Value = 2003 Then
Sheets("2003").Activate
z = Range("A4:H1000").Find(What:=TextBox1).Row
For iCounter = 1 To 8
Cells(z, iCounter) = Controls("TextBox" & iCounter).Value
Next iCounter
myArr = Sheets("2003").Range("A4:H1000")
ComboBox1 = ""
ComboBox1.List = myArr
For iCounter = 1 To 8
Controls("TextBox" & iCounter) = ""
Next iCounter
TextBox1.SetFocus
End If
End Sub
Hoffe mir kann jemand helfen
Vielen Dank
Peter S.
Anzeige