Format für Textbox vorgeben
Dietmar
gibt es eine Möglichkeit das Format bei Textboxeingaben, deren Eintrag in Zellen übertragen werden soll, zu erzwingen?
Also etwa so wie es bei der Direkteingabe in einer Zelle über die Gültigkeitsregel geschieht.
Habe folgende Code, bei dem alles zugelassen wird:
Private Sub CommandButton1_Click()
Sheets("Tabelle1").Unprotect
UserForm1.Show
End Sub
Private Sub CommandButton1_Click()
Range("A3") = TextBox1.Text
Range("B3") = TextBox2.Text
Range("C3") = TextBox3.Text
Unload Me
Sheets("Tabelle1").Protect
End Sub
Textbox 2 soll nur positive Dezimalzahlen erlauben
Textbox 3 soll ganze Zahlen erlauben.
Wenn die Konventionen nicht eingehalten werden, soll das Befüllen der Textbox nicht möglich sein oder der Vorgang soll mit entsprechendem Hinweis abgebrochen werden und die bereits befüllten Zellen sollen wieder geleert werden.
Hat jemand eine Idee?
Bin für jede Hilfe dankbar.
Viele Grüße
Dietmar aus Aachen
Gültigkeitsvorgaben in den zu befüllenden Zellen werden nicht beachtet.