Mit Userform Daten in Zeile ändern
23.11.2007 00:42:35
Larissa
ich zeige mit einer Listbox Daten aus einer Tabelle an und möchte die einzelnen Felder pro Zeile ändern können. Die Daten werden jeweils in Textboxen angezeigt.
Mit dem folgenden Makro wird immer eine neue Zeile angefügt und der ausgewählte Datensatz bleibt stehen:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim letztezeile As Integer
letztezeile = (Worksheets("Userform2").Cells(Rows.Count, 1).End(xlUp).Row) + 1
If UserForm1.TextBox1.Text = "" Then MsgBox "kein Name ausgesucht": Exit Sub
For i = 2 To letztezeile
If Worksheets("Userform2").Cells(i, 1) = UserForm1.TextBox1.Text Then: letztezeile = i: Exit _
For
Next i
Worksheets("Userform2").Cells(letztezeile, 1) = TextBox1
Worksheets("Userform2").Cells(letztezeile, 2) = TextBox2
Worksheets("Userform2").Cells(letztezeile, 3) = TextBox3
Worksheets("Userform2").Cells(letztezeile, 4) = TextBox4
Worksheets("Userform2").Cells(letztezeile, 5) = TextBox5
Unload UserForm1
UserForm1.Show
End Sub
Wie schaffe ich es, dass die Daten der ausgewählten Zeile geändert werden?
Lieben Gruß,
Larissa
Anzeige