Find Fuktion
17.06.2003 08:32:01
Joachim Dallinger
ich durchsuche mit untenstehendem Programm eine Excel Tabelle nach einer Nummer ( TeilNr )
wie kann ich das Programm erweitern damit wenn die Nummer nicht gefunden wird keine Felhlermeldung erscheint sondern ein kleines Programm abläuft. ( ich denke z.B. an eine If Then Schleife)
Gruß Joachim
Range("A12:A627").Select
Selection.Find(What:=TeilNr, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(0, 4).FormulaR1C1 = Menge