Text aus Textbox: überflüssige Qudrate nach CR
13.09.2003 13:28:51
Frank
So sieht mein Programmcode aus:
Private Sub UserForm_Initialize() / Lesen des Default Textes
txtLieferschein.Value = Cells(53, 3).Value
End Sub
Private Sub cmdÜbernehmen_Click() / Einschreiben des neuen Textes
Cells(53, 27).Value = txtLieferschein.Value
Unload Me
End Sub
Gruss Frank