ich habe eine kleine datenbank mit einer tabelle spalten A-G namens "Daten"
eine "userform2" mit
einer listbox (LIEST DATEN VON TABELLE "DATEN" VON A-G)
textboxen 1-7 (HIER KOMMEN DIE DATEN VON SPALE A-G ÜBER DIE LISTBOX1)
2 CommandButton (DER EINE ERSTELLT EINEN NEUEN DATENSATZ UND DER ZWEITE SOLLTE DIE DATEN ÄNDERN; TUT ER ABER NICHT RICHTIG NUR IN ERSTER ZELLE)
außerdem ändert er immer nur in der 5 zeile
es soll aber immer dort geändert werden wo der datensatz gerade ist BSP: zeile 5 oder zeile 100.
es soll halt eine eingabe maske sein wo mann daten eingeben und ändern kann.
diesesr erste code mit button1 dürfte der übeltäter sein er ist falsch alles andere andere funkt .
Private Sub CommandButton1_Click()
'Daten ändern
Sheets("Daten").Range("A5").Value = TextBox1.Text 'ukv
Sheets("Daten").Range("B5").Value = TextBox2.Text 'username
Sheets("Daten").Range("C5").Value = TextBox3.Text 'email
Sheets("Daten").Range("D5").Value = TextBox4.Text 'guthaben 1
Sheets("Daten").Range("E5").Value = TextBox5.Text 'datum
Sheets("Daten").Range("F5").Value = TextBox6.Text 'guthaben 1
Sheets("Daten").Range("G5").Value = TextBox7.Text 'notiz
End Sub
Private Sub CommandButton2_Click()
'Neuer Datensatz wird angelegt
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
End Sub
'DATEN PER LISTBOX KLICK IN TEXTBOXEN EINLESEN
Private Sub ListBox1_Change()
If ListBox1.Tag "" Then Exit Sub
TextBox1 = ListBox1.List(ListBox1.ListIndex, 0)
TextBox2 = ListBox1.List(ListBox1.ListIndex, 1)
TextBox3 = ListBox1.List(ListBox1.ListIndex, 2)
TextBox4 = ListBox1.List(ListBox1.ListIndex, 3)
TextBox5 = ListBox1.List(ListBox1.ListIndex, 4)
TextBox6 = ListBox1.List(ListBox1.ListIndex, 5)
TextBox7 = ListBox1.List(ListBox1.ListIndex, 6)
End Sub
Private Sub UserForm_Initialize()
'Daten bis zum Ende der Listbox zeigen
ListBox1.RowSource = "Daten!A4:G" & Sheets("Daten").Range("G65536").End(xlUp).Row
'LISTBOX1 BREITE.
With UserForm1.ListBox1
.ColumnCount = 7
.ColumnHeads = False
.ColumnWidths = "1,2cm; 5cm; 5cm; 2cm; 3cm; 3cm; 8cm;"
End With
End Sub
bitte um hilfe
euer
Christian neu (neu weil es mehrere gibt)