Wunderbar, danke für den Download-Link. Das vereinfach die Sache ungemein.
Schau mal in die clsControls.objCmd_Click, dort gibt es folgende Stelle:
For Each objCntrl In objUFrm.Controls
If TypeOf objCntrl Is MSForms.TextBox Then
If objCntrl.Locked Then
wksData.Cells(2, CDbl(objCntrl.Tag)).Copy wksData.Cells(rng.Row, CDbl(objCntrl.Tag))
objCntrl.Text = wksData.Cells(rng.Row, CDbl(objCntrl.Tag)).Text
Else
If IsNumeric(objCntrl.Text) Then
wksData.Cells(rng.Row, CDbl(objCntrl.Tag)) = IIf(IsDate(objCntrl.Text), _
CDate(objCntrl.Text), CDbl(objCntrl.Text))
Else
' wksData.Cells(rng.Row, CDbl(objCntrl.Tag)) = objCntrl.Text
End If
End If
End If
Next
Der Teil der hier auskommentiert steht (nur damit du es schneller siehst), habe ich hinzugefügt (dieser fehlt bei dir derzeit noch).
Dieser sorgt dafür, dass auch Text übernommen wird. Also einfach diese Zeile bei dir hinzufügen.
Gruß
|