AW: Datei in Forum gefunden, erbitte um Benützung
03.01.2009 22:27:22
Hajo_Zi
Hallo Lisa,
das geht nur Links in der Textbox. Dazu muss der Code noch ein wenig geändert werden.
Private Sub CommandButton1_Click()
' speichern
Dim i As Integer
Dim letztezeile As Integer
letztezeile = (Worksheets("Userform2").Cells(Rows.Count, 1).End(xlUp).Row) + 1
'Worksheets("Userform2").Activate
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
ListBox1.Tag = 1
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
ListBox1.Tag = ""
Unload UserForm1
UserForm1.Show
End Sub
Private Sub ListBox1_Click()
If ListBox1.Tag "" Then Exit Sub
' bei Klick in die Listbox werden die daten aus der Tabelle eingelesen
Dim Datensatz As Integer
Datensatz = UserForm1.ListBox1.ListIndex + 2
With UserForm1
.TextBox1.Text = Worksheets("Userform2").Cells(Datensatz, 1)
.TextBox2.Text = Worksheets("Userform2").Cells(Datensatz, 2)
.TextBox3.Text = Worksheets("Userform2").Cells(Datensatz, 3)
.TextBox4.Text = Worksheets("Userform2").Cells(Datensatz, 4)
.TextBox5.Text = Worksheets("Userform2").Cells(Datensatz, 5)
End With
End Sub
Gruß Hajo