AW: datum in textbox
04.12.2007 13:50:00
christian
hi hajo
gute idee mit rüber legen, aber wenn ich dann nach dem ersteintrag in der listbox den datensatz markiere steht das datum automatisch drinnen.
hier der code der fürs änder verantwortlich ist.
Private Sub CommandButton35_Click()
'Daten aendern
ListBox28.Tag = "X"
With Sheets("Daten").Rows(ListBox28.ListIndex + 4)
.Cells(1).Value = TextBox1.Text 'Daten!A5 ukv
.Cells(2).Value = TextBox2.Text 'Daten!B5 username
.Cells(3).Value = TextBox3.Text 'Daten!C5 email
.Cells(4).Value = TextBox4.Text 'Daten!D5 guthaben
.Cells(5).Value = TextBox5.Text 'Daten!E5 datum
.Cells(6).Value = TextBox6.Text 'Daten!F5 guthaben erhalten
.Cells(7).Value = TextBox7.Text 'Daten!G5 notiz
End With
ListBox28.Tag = ""
MsgBox ("Sie haben den Eintrag geändert !!")
Call sortieredatum
End Sub
dieser code liest die daten ein in die textbox 1-7
'DATEN PER LISTBOX KLICK IN TEXTBOXEN EINLESEN
Private Sub ListBox28_Change()
If ListBox28.Tag "" Then Exit Sub
TextBox1 = ListBox28.List(ListBox28.ListIndex, 0)
TextBox2 = ListBox28.List(ListBox28.ListIndex, 1)
TextBox3 = ListBox28.List(ListBox28.ListIndex, 2)
TextBox4 = ListBox28.List(ListBox28.ListIndex, 3)
TextBox5 = ListBox28.List(ListBox28.ListIndex, 4)
TextBox6 = ListBox28.List(ListBox28.ListIndex, 5)
TextBox7 = ListBox28.List(ListBox28.ListIndex, 6)
End Sub
mach ich was falsch oder muss ich den code ändern?
gruss
christian neu