Textbox suchen und ersetzen-nocheinmal
01.12.2003 08:29:28
michael
Ich habe schon mal über das Problem geschrieben. Ich habe mir mit Hilfe einer Userform eine Kundenliste angelegt. Die Einträge suche ich über eine ComboBox. Es werden in den Textboxen die zugehörigen Einträge angezeigt (die Einträge sind alle in einer Zeile in einem Tabellenblatt). Wie schaffe ich es, mit Hilfe eines Buttons, die geänderten Einträge wieder in die gleiche Zeile zurückzuschreiben, und nicht als Neueintrag. Carsten v.H. hat mir schon mal geantwortet, daß ich ermitteln muß bzw soll in welcher Zeile ich mich befinde. cells(x,y).value = textbox3 Mit dem Code kann ich aber nur eine fixe Zelle auswählen. Ich habe aber ca 800 verschieden Zeilen
Ich habe aber wirklich keine Ahnung wie das geht. Ich weiß nur, daß das die benachbarten Zeilen sind die ich mit der ComboBox auslese.
Private Sub Kundennummercbo_Change() '
FamiliennameTxt = Cells(Kundennummercbo.ListIndex + 1, 2)
StrasseTxt = Cells(Kundennummercbo.ListIndex + 1, 3)
TelefonnummerTxt = Cells(Kundennummercbo.Listindex +1,4)
End Sub
Vielleicht hat irgenwer einen Code oder irgendeine andere Hilfe. Ich bin für alles dankbar
gruß
Michael