TextBox Wert nicht löschen
27.11.2007 13:59:19
Heinz
Ich habe in TextBox2 der mir den Wert von Zelle C anzeigt,und den ich ändern kann,der dann zurückgeschrieben wird.
Könnte man nur den Wert von Zelle C überschreiben,wenn ich in die Textbox2 einen Wert eingegeben habe.
Sonst sollte der Wert ( Ist eine Formel) belassen.
Gruß Heinz
Private Sub CommandButton1_Click()
With UserForm3
MeinBereich = CDate(Format(.TextBox1, "dd.mm.yyyy"))
MeinBereich.Offset(0, 1) = CDate(MeinBereich)
MeinBereich.Offset(0, 2) = .TextBox2
End With
Unload Me
End Sub
Private Sub UserForm_Activate()
With UserForm3
.TextBox1 = MeinBereich
.TextBox2 = MeinBereich.Offset(0, 2)
End With
End Sub
Anzeige