1.2k Aufrufe
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
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
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
von m-o Profi (22.9k 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.

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...