bei der 1.Textbox sollte immer nur :\ einmal angefügt werden.
bei der 2. Textbox nur 1x= "\" angehängt werden,
jedesmal wenn ich die Textbox wieder verlasse ohne Änderung passiert dies.
Wie kann mal dies abfangen ?
Anbei die 2 Makros:
'
Private Sub TextBox1_Change()
'
Private Sub TextBox1_AfterUpdate()
'
Private Sub TextBox1_Enter()
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Unprotect (getStrPasswort)
ActiveSheet.Range("AA2").Value = Me.TextBox1.Value & ":\" 'so setzt direkt ein
Me.TextBox1.Value = ActiveSheet.Range("AA2").Value
Me.Label13 = ActiveSheet.Range("R2").Value
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Unprotect (getStrPasswort)
ActiveSheet.Range("AB2").Value = Me.TextBox2.Value & "\"
Me.TextBox2.Value = ActiveSheet.Range("AB2").Value
Me.Label13 = ActiveSheet.Range("R2").Value
End Sub
mfg
walter ph