Wenn Textbox leer nicht Überschreiben
21.11.2007 08:20:27
Heinz
Ich habe verschiedene Textboxen deren Wert in Zellen eingetragen werden.
Ich hätte aber gerne wenn eine TextBox leer ist, das dann der Wert der schon in der Zelle eingetragen wurde nicht Überschrieben wird.
Also wenn Textbox leer, dann nicht "" eintragen sondern bestehenden Wert belassen,nur wenn Wert in Textbox dann eintragen.
Könnte mir bitte jemand weiterhelfen.
Gruß Heinz
Option Explicit
Private Sub CmdAbrechen_Click()
Unload Me
End Sub
Private Sub cmdUebertragen_Click()
'
Private Sub UserForm_Activate()
[B3].Value = txtA.Value 'Name
[A3].Value = txtB.Value 'PersNummer
[F1].Value = TextBox17.Value 'Beginn Stundenliste
[B101].Value = txtD.Value 'Montag Arb.Beginn
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim Ctl As Control
For Each Ctl In Me.Controls
If Left(Ctl.Name, 7) = "TextBox" Or Left(Ctl.Name, 3) = "txt" Then Ctl.Value = ""
Next
End Sub
Anzeige