Fehlerbehandlung bei Find
07.04.2005 12:18:54
werner
ich stehe gerade auf dem Schlauch, obwohl es sicher ganz einfach ist: Ich lasse in einer Spalte nach insgesamt 5 namen suchen - wenn einer der Namen in dieser Spalte nicht vorhandem ist, kommt natürlich eine Fehlermeldung - wie kann ich die vermeiden bzw. die Suche beim nächsten Namen fortsetzen?
Range("c1:c18").Find("Name1").Select
Range(ActiveCell, ActiveCell.Offset(0, 1)).Cut
Range("c23:d23").Insert Shift:=xlDown
Range("c1:c18").Find("Name2").Select
Range(ActiveCell, ActiveCell.Offset(0, 1)).Cut
Range("c23:d23").Insert Shift:=xlDown
Range("c1:c18").Find("Name3").Select .....
Danke für eure Mühe und grüße
Werner