AW: MsgBox bei Textbox
16.01.2009 08:43:26
Enzo
Hi Thorsten
Sorry habe ich übersehen. Der Code funktioniert sehr gut.
Dies ist meinen Code (auch zur Textbox1).
Habe de Meldung über Controltiptext in den Eigenschaften eingegeben. Das Resultat ist, dass ich die Meldung schon kriege wenn ich mit der Maus darüber fahre aber eben viel zu langsam, in der Zwischenzeit sind die Beträge schon eingegeben worden. Klüger wäre es wenn die Meldung schon kommen würde wenn mit Tab in die Zellen gesprungen wird.
Private Sub CommandButton1_Click()
If Me.ListBox1.ListIndex = -1 Then Exit Sub
Dim Datensatz As Integer
Datensatz = Daten.ListBox1.ListIndex + 2
ListBox1.Tag = 1
Worksheets("DatenUForm").Cells(Datensatz, 1) = TextBox1
Worksheets("DatenUForm").Cells(Datensatz, 3) = TextBox2
Worksheets("DatenUForm").Cells(Datensatz, 4) = TextBox3
Worksheets("DatenUForm").Cells(Datensatz, 5) = TextBox4
Worksheets("DatenUForm").Cells(Datensatz, 6) = TextBox5
ListBox1.Tag = ""
End Sub
Gruß
Enzo