AW: suchen und in zelle schreiben
19.01.2006 12:24:56
Jeanette
Hallo,
mein code sieht folgendermaßen aus:
Sub suchen()
Mldg = "Artikelnummer eingeben"
Titel = "InputBox-Demo"
Wert1 = InputBox(Mldg, Titel, Voreinstellung, 100, 100)
'Antwort = MsgBox(Wert1)
Mldg = "Artikelmenge eingeben"
Titel = "InputBox-Demo"
Wert2 = InputBox(Mldg, Titel, Voreinstellung, 100, 100)
Cells.Find(What:=Wert1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
Range("N1400").Select
ActiveCell.FormulaR1C1 = Wert2
End Sub
mein problem ist jetzt, das er den gesuchten wert findet und den eingegebenen wert nur in die eine bestimmte zelle schreibt. wie kann ich es formulieren, das er den gesuchten wert findet und den eingegebenen wert dann in die spalte n der gleichen zeile einträgt.
danke für die hilfe.
lg jeanette