txt mit enter
steff
Kann mir jemand sagen, was an dem Code falsch ist:
Private Sub txt_spielername_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If txt_spielername.Text = "" Then
Else
Worksheets("tabelle2").Cells(11, 1) = txt_spielername.Text
Worksheets("tabelle2").Cells(11, 2) = lbl_punktezahl.Caption
Range("A11:B11").Copy
Range("A12:B12").Select
ActiveSheet.Paste
Call ausgangsstellung
Call Modul1.sortieren
txt_spielername.Text = ""
txt_spielername.Visible = False
UF_bestenliste.Show
End If
End Sub
Bei drücken der Entertaste passiert nichts!
steff
Anzeige