Userformdaten lesen & ändern
31.01.2006 13:43:45
Thomas
bin bei der Suche zwar auf genau mein Problem gestoßen, leider haben mir die Erklärungen dazu nicht weitergeholfen!
Also folgendes:
Ich habe eine Userform1, in der Daten eingegeben werden. Dann gibt es eine Userform2, in der man über einen Suchbegriff die Daten suchen und anzeigen lassen kann. Soweit so gut, jetzt kommt mein Problem, ich möchte, dass wenn die Daten angezeigt werden ich Sie verändern kann und er die Sachen in die gleichen Zeilen schreibt! Also ich rufe Daten aus Spalte x auf, ändere diese über die UF und er soll diese Daten zurück in Spalte X schreiben!
Mein Code für die Suche lautet:
Private Sub CommandButton3_Click()
Set frm4 = UserForm4
With frm4
Sheets("Datenbank").Select
Range("A:A").Select
On Error GoTo fehler
Selection.Find(What:=.TextBox21.Value, _
after:=ActiveCell, _
LookIn:=xlByRows, searchdirection:=xlNext, _
MatchCase:=False).Activate
.TextBox2.Value = ActiveCell.Value
.TextBox3.Value = ActiveCell.Offset(0, 1).Value
.TextBox4.Value = ActiveCell.Offset(0, 2).Value
.TextBox5.Value = ActiveCell.Offset(0, 3).Value
.TextBox6.Value = ActiveCell.Offset(0, 4).Value
.TextBox7.Value = ActiveCell.Offset(0, 5).Value
.TextBox8.Value = ActiveCell.Offset(0, 6).Value
.TextBox9.Value = ActiveCell.Offset(0, 7).Value
.TextBox10.Value = ActiveCell.Offset(0, 8).Value
.TextBox11.Value = ActiveCell.Offset(0, 9).Value
.TextBox12.Value = ActiveCell.Offset(0, 10).Value
.TextBox13.Value = ActiveCell.Offset(0, 11).Value
.TextBox14.Value = ActiveCell.Offset(0, 12).Value
.TextBox15.Value = ActiveCell.Offset(0, 13).Value
.TextBox16.Value = ActiveCell.Offset(0, 14).Value
.TextBox17.Value = ActiveCell.Offset(0, 15).Value
.TextBox18.Value = ActiveCell.Offset(0, 16).Value
.TextBox19.Value = ActiveCell.Offset(0, 17).Value
.TextBox20.Value = ActiveCell.Offset(0, 18).Value
Exit Sub
fehler:
MsgBox "Die Firma " & _
.TextBox21.Value & " konnte nicht gefunden werden!"
End With
End Sub
Nun möchte ich noch einen Button "Ändern" erzeugen. Also ich suche die Daten mit dem obigen Code, die stehen dann in der Userform und sollen da verändert werden. Nach abändern der Daten klicke ich den "Ändern"-Button und der schreibt mir die geänderten Sachen in die gleichen Zeilen und Spalte wie oben!
Ich hoffe es ist ein wenig verständlich!
Gruß
Tommy