AW: DATENSATZ WIRD KOPIERT U. NACH OBEN GEREIHT
04.12.2007 10:47:09
christian
danke erst mal für deine antwort.
dann sollte es was anderes sein? ich gebe dir mal alles was in dieser userform ist vieleicht siehst was.
Private Sub CommandButton35_Click()
'Daten aendern
ListBox28.Tag = "X"
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 1).Value = TextBox1.Text 'ukv
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 2).Value = TextBox2.Text 'username
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 3).Value = TextBox3.Text 'email
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 4).Value = TextBox4.Text 'guthaben 1
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 5).Value = TextBox5.Text 'datum
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 6).Value = TextBox6.Text 'guthaben 2
Sheets("Daten").Cells(ListBox28.ListIndex + 4, 7).Value = TextBox7.Text 'notiz
ListBox28.Tag = ""
End Sub
'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
'Datumsformat in der textbox
Private Sub TextBox5_Change()
TextBox5 = Format(TextBox5, "dd.mmm.yyyy")
End Sub
Private Sub UserForm_Initialize()
'LISTBOX 28 spalten breite
With UserForm2.ListBox28
.ColumnCount = 7
.ColumnHeads = False
.ColumnWidths = "1,2cm; 5cm; 5cm; 2cm; 3cm; 3cm; 8cm;"
.RowSource = "Daten!A4:G" & Sheets("Daten").Range("A65536").End(xlUp).Row
End With
End Sub
Private Sub CommandButton34_Click()
'Neuen Datensatz EINGABEN
'Dim Zeile As Long
'With Sheets("Daten")
Zeile = .Cells(65536, 1).End(xlUp).Row + 1
Cells(Zeile, 1) = TextBox1.Text
Cells(Zeile, 2) = TextBox2.Text
Cells(Zeile, 3) = TextBox3.Text
Cells(Zeile, 4) = TextBox4.Text
Cells(Zeile, 6) = TextBox5.Text
Cells(Zeile, 7) = TextBox7.Text
End With
ListBox28.RowSource = "Daten!A5:G" & Sheets("Daten").Range("G65536").End(xlUp).Row
MsgBox ("Sie haben einen neuen Eintrag erstellt !!")
End Sub
'NUR ZAHLEN ZULASSEN IN TEXTBOXEN
Private Sub TextBox1_Change()
Call EintraginTextbox(1)
End Sub
Private Sub TextBox4_Change()
Call EintraginTextbox(4)
End Sub
Private Sub TextBox6_Change()
Call EintraginTextbox(6)
End Sub
Private Sub EintraginTextbox(intNo As Integer)
If Not IsNumeric(Controls("TextBox" & intNo)) Then
Beep
Controls("TextBox" & intNo).Text = ""
End If
End Sub
Private Sub CommandButton36_Click()
Unload Me
End Sub
DAS HABE ICH IN DER TABELLE "DATEN" STEHEN
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
' Prüfen, ob Änderung in Spalte vorgenommen wurde
If Target.Column = 6 Then
' Datum und Uhrzeit schreiben, wenn Zelle noch leer
' (also nur beim ersten Füllen
If IsEmpty(Cells(Target.Row, 5)) Then Cells(Target.Row, 5).Value = Now()
End If
End Sub