Daten aus Tabelle auslesen, verändern + abspeicher
10.03.2004 11:25:44
Stefane
ich habe folgendes Problem: Ich habe ein Userform, mit dem ich Daten aus ner Tabelle auslese und auswählen, anklicken kann. Der ausgewählte Datensatz steht dann in den Textboxes. Die Auswahl erfolgt über eine Listbox. Wie kann ich die Daten verändert über den alten Datensatz speichern, wenn ich die Daten in den Textboxes manuell ändere ?
MfG
Stefan
Achja, hier die Formel:
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error GoTo 1
ListBox1.SetFocus
'tpk = 1
ListBox1.BoundColumn = 1
txtlaufendeNummer.Value = ListBox1.Value
ListBox1.BoundColumn = 2
txtAnlagennummer.Value = ListBox1.Value
ListBox1.BoundColumn = 5
txtStandort.Value = ListBox1.Value
ListBox1.BoundColumn = 3
txtBeschreibung1.Value = ListBox1.Value
ListBox1.BoundColumn = 4
txtBeschreibung2.Value = ListBox1.Value
ListBox1.BoundColumn = 6
txtAnlagenklasse.Value = ListBox1.Value
ListBox1.BoundColumn = 7
txtAnlagensachgruppe.Value = ListBox1.Value
ListBox1.BoundColumn = 9
txtKostenstelle.Value = ListBox1.Value
ListBox1.BoundColumn = 10
txtProdukt.Value = ListBox1.Value
ListBox1.BoundColumn = 13
txtSeriennummer.Value = ListBox1.Value
ListBox1.BoundColumn = 12
txtLieferantennummer.Value = ListBox1.Value
ListBox1.BoundColumn = 19
txtAnschaffungsjahr.Value = ListBox1.Value
txtAnschaffungsjahr2.Value = ListBox1.Value
ListBox1.BoundColumn = 8
txtAnlagenbuchungsgruppe.Value = ListBox1.Value
ListBox1.BoundColumn = 24
txtAnschaffungskosten.Value = ListBox1.Value
txtAnschaffungskosten2.Value = ListBox1.Value
ListBox1.BoundColumn = 16
txtStartdatumAfa.Value = ListBox1.Value
ListBox1.BoundColumn = 15
txtAfaMethode.Value = ListBox1.Value
ListBox1.BoundColumn = 17
txtAbschreibung.Value = ListBox1.Value
ListBox1.BoundColumn = 14
txtGesperrt.Value = ListBox1.Value
ListBox1.BoundColumn = 20
txtBelegdatum.Value = ListBox1.Value
ListBox1.BoundColumn = 21
txtBelegnummer.Value = ListBox1.Value
ListBox1.BoundColumn = 22
txtexterneBelegnummer.Value = ListBox1.Value
ListBox1.BoundColumn = 23
txtBeschreibung3.Value = ListBox1.Value
ListBox1.BoundColumn = 26
txtAnlagedatum.Value = ListBox1.Value
ListBox1.BoundColumn = 27
txtBelegdatum2.Value = ListBox1.Value
ListBox1.BoundColumn = 28
txtBelegnummer2.Value = ListBox1.Value
ListBox1.BoundColumn = 29
txtexterneBelegnummer2.Value = ListBox1.Value
ListBox1.BoundColumn = 30
txtBeschreibung4.Value = ListBox1.Value
ListBox1.BoundColumn = 31
txtjährlicherAbschreibungsbetrag.Value = ListBox1.Value
1:
End Sub
Private Sub UserForm_Initialize()
Dim r As Variant
ListBox1.ColumnCount = 31
r = Cells(65536, 2).End(xlUp).Row
ListBox1.RowSource = "A2:AE" & r
End Sub