Richtiges Datum in Tabelle eintragen
09.11.2004 19:27:33
Erich
habe noch ne Frage,
ich schreibe mit nachfolgenden Code alle daten (Text, Uhrzeit, Datum, Zahlen) aus einer UF in meine Tabelle.
Private Sub CommandButton1_Click()
TextBox1 = Label147
TextBox2 = Label128
TextBox3 = Label130
TextBox4 = Label132
TextBox5 = Label134
TextBox6 = ComboBox1
TextBox7 = ComboBox2
TextBox9 = ComboBox3
Dim intIndex As Integer
With Sheets("Störmeldung")
lz = .Cells(65536, 1).End(xlUp).Row + 1
For intIndex = 1 To 16
.Cells(lz, intIndex) = Controls("TextBox" & CStr(intIndex)).Value
Next intIndex
End With
Worksheets("System").Range("D3") = TextBox1.Value
End Sub
nun zu meinen Problem:
in der Textbox2 steht ein Datum, es wird auch in die Tabelle eingetragen aber als Text und nicht als Datum so wie ich es zu auswertungen brauche.
könnt ihr mir nochmals weiterhelfen?
gruß
erich