Ich hoffe, ihr könnt mir mein Wochenende retten. Nun denn:
In einer Textbox (TextBox1) in einem Formular gebe ich eine Nummer ein, die dann in einer Tabelle gesucht wird, sodass die entsprechenden Daten in weiteren Textboxen im Formular angezeigt werden. Klappt prima.
Nun möchte ich die Daten in den Textboxen überschreiben und in die Tabelle zurückschreiben. Und das klappt nicht:
Selection.Find(what:=TextBox1.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, lookat:=xlWhole, _
Searchorder:=xlByRows, SearchDirection:=xlNext).Activate
'Vertragsdaten aus Formular in "EWB aktuell" übertragen
Me.TextBox1.Value = ActiveCell.Value
[ActiveCell.Offset(0, 17).Value] = Me.TextBox2.Value
In der letzten Zeile kommt dann die Fehlermeldung.
Weiß jemand Rat?
Gruß
Marek