On Error Problem
18.03.2005 14:58:42
Stefan
Mit folgendem VBA Code wird eine Spalte nach einem Wert aus einer anderen Spalte durchsucht. Wenn
ein Wert aus der einen Spalte in der anderen Spalte nicht gefunden werden kann (Fehler 91), soll in
das Feld D in der Zeile n das Wort "fehlt" eingetragen werden. Anschliessend soll die SChleife
fortfahren bis sie bei ArrA angekommen ist.
Mit dem "on error" Befehl habe ich, wie man wohl sehen kann, bisher noch gar keine Erfahrungen. Ich
freue mich schon auf Eure Antworten.
Gruß
Stefan
-----------------------------------------------
Private Sub CommandButton1_Click()
'bei Fehler
On Error GoTo Errorhandler
'HEXID Suchen und vergleichen
Range("A2").Select
Selection.End(xlDown).Select
ArrA = ActiveCell.Row
For n = 2 To ArrA
Range("A" & n).Select
lba_hexid = Selection
Columns("G:G").Select
Selection.Find(What:=lba_hexid, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:= _
xlNext, MatchCase:=False).Activate
ActiveCell.Offset(0, 1).Select
Range("D" & n) = Selection
Next n
Exit Sub
Errorhandler:
If Err.Number <> 91 Then Range("D" & n) = "fehlt"
End Sub
-------------------------------------------------------