suchen finden eintragen
11.01.2004 22:14:58
Daniel B.
habe da folgendes Problem
ich will Spalte 1 (mit den Werten 1 - 100) mit der Spalten 2 (z.b 1 - 100) ohne die Werte 50 60 70 75 vergleichen. Die Werte die mir in Spalte 2 fehlen sollen in Spalte 3 aufgelistet werden. Mit folgendem VBA Code gibt es mir beim zweiten nicht gefunden Wert einen Laufzeitfehler 91.
Sub suchen()
Sheets("Touren").Select
Range("b16").Select
zweite_Tour:
i = ActiveCell
Start:
Sheets("Arbeitsplan").Select
Range("c34:c100").Select
On Error GoTo ende:
Selection.Find(What:=i, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False).Select
GoTo weitersuchen
Eintrag:
Range("c1").Select
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Value = i
weitersuchen:
Sheets("Touren").Select
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then Exit Sub
GoTo zweite_Tour:
ende:
GoTo Start:
End Sub
Kann mir jemand weiter Helfen
DANKE DANKE