DateValue(ttxtEdit7) is ok, aber........
17.08.2004 15:22:28
Peter
habe mal wieder ne kleine Frage....mit nachstehendem Code fülle ich in einer UF diverse Textfelder.....und sende den Inhalt über CB8 in eine andere Tabelle.
Klappt auch bestens.....damit von txtEdit7 der Wert als Datum in die Tabelle geschrieben wird habe ich die DateValue Methode gewählt.....passt alles, jedoch....
Private Sub CommandButton8_Click()
Dim z As Integer, myArr As Variant
Application.ScreenUpdating = False
Sheets("Tabelle1").Activate
z = Range("A1000").End(xlUp).Row
Cells(z + 1, 6) = txtEdit6.Value
On Error Resume Next
Cells(z + 1, 7) = DateValue(txtEdit7)
Cells(z + 1, 12) = txtEdit12.Value
Cells(z + 1, 13) = txtEdit13.Value
Cells(z + 1, 14) = txtEdit14.Value
myArr = Sheets("Tabelle2").Range("A1:N1000")
cboNamen = ""
cboNamen.List = myArr
For iCounter = 1 To 14
Controls("txtEdit" & iCounter) = ""
Next iCounter
...bringt er natürlich ne Fehlermeldung wenn aus Versehen ein Text in das Feld eingegeben wird oder die Textbox leer gelassen wird....daher on error on resume next....aber das hat einen Nachteil....
bei falscher Eingabe in txtEdit7 wird jetzt in der Tabelle eine leere Zelle erzeugt.....und das darf nicht sein, weil sonst nachfolgende Bearbeitungen einen Fehler erzeugen können...
Wer weiß da Rat?
Danke
Peter S.