1k Aufrufe
Gefragt in Datenbanken von
habe einer userbox mit einigen TextBoxen zB

name1
Nachname 1
Strasse
Name2
Nachname2
Name 1 = Name 2
Wenn nicht Name 2 wird Manuel geändert

3 Antworten

0 Punkte
Beantwortet von
Private Sub txtVorname1_Change()
Dim As AutoCorrect

With Me
.txtVorname1.SetFocus
a = .txtVorname1.Text
MsgBox a
.txtVorname2.Value = .txtVorname1.List
'End With
End Sub
0 Punkte
Beantwortet von
Was ist Falsch an der Formel

Sorry das ich es so umständlich mache etwas unüberlegt aber sitze
seit stunden im netz und an der exel Datei
0 Punkte
Beantwortet von m-o Profi (22.8k Punkte)
Hallo,

wie du sicher festgestellt hast, funktioniert das mit dem Change-Ereignis nicht, da du nur ein Zeichen eingeben kannst. Nutze statt dessen das Exit-Ereignis:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

MsgBox Me.TextBox1.Text
Me.TextBox2.Value = Me.TextBox1.Value

End Sub

Die Namen der Textboxen musst du noch auf deine Erfordernisse anpassen.

Gruß

M.O.
...