UserForm mit TextBox
30.12.2005 23:20:39
Marc
ich habe eine Userform mit verschiedenen Textboxen erstellt.
Wie kann ich die Werte (Zahlenwerte werden aus einer Exceltabelle über VBA vorgegeben) der TextBoxen, in die ich mit der Enter-Taste springe, markieren, so daß man gleich eine Änderung vornehmen kann, ohne mit der Maus zu arbeiten?
Hat jemand einen Vorschlag?!? Ich habe schon mit MouseDown und so probiert, aber es funktioniert einfach nicht :(
So sieht mein Versuch aus:
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.SelStart = 0
TextBox1.SelLength = len(TextBox1.Value)
End Sub
Und dann würde ich gerne:
Wenn der Wert schon vorhanden ist, soll eine MsgBox aufgerufen werden und dann soll bei "Wiederholen" zurück in die Box gesprungen werden. Hier mein Versuch...
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim doppel
doppel = Application.WorksheetFunction.CountIf(Range("A1:A65536"), TextBox1.Value)
If doppel > 0 Then
MsgBox "Die Zahl existiert schon!", vbRetryCancel, "Doppelte Angabe"
If vbRetry Then
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Value)
End If
End If
End Sub
Dank euch
Marc