Suchen, Korrigieren, Einfügen
22.02.2008 10:47:00
Markus
habe eine Matrix, in die mittels Userform (Textbox) Werte erfaßt werden. Im Falle einer Falscheingabe will ich die Option haben, die Werte durch Angabe der laufenden Nummer nochmal aufrufen (stehen in Spalte A) zu können (in Textbox), ändern zu können (in Textbox) und korrigiert wieder in passende Zeile und Zelle zu schreiben.
Das aufrufen in die Textboxen bekomme ich hin, durch Eingabe der Laufenden Nummer als Suchkriterium in Textbox8 (sie Makro), aber wie bekomme ich den korrigierten Wert wieder in die richtige Zelle / Zeile zurück?
Dim r As Range
Set r = Range("A2:O2000").Find(TextBox8.Text, , , xlWhole, xlByRows, xlNext)
If Not r Is Nothing Then TextBox1.Text = r.Offset(0, 2).Value 'Datum
TextBox2.Text = r.Offset(0, 8).Value 'Material-Nr.
TextBox3.Text = r.Offset(0, 7).Value 'Auftrags-Nr.
TextBox4.Text = r.Offset(0, 9).Value 'Kupfer
TextBox5.Text = r.Offset(0, 10).Value 'Nickel
TextBox6.Text = r.Offset(0, 11).Value 'Chrom
Viele Grüße und Danke im voraus.
Markus