Makro steigt aus
14.02.2008 18:58:06
Klaus
ich habe folgendes Problem: über ein mit dem Recorder aufgezeichnetes Makro lasse ich den Wert einer Zelle in der gesammten Arbeitsmappe suchen und dann mit einigen anderen Werten aus der Zeile weiterarbeiten. Das funktioniert auch, solange es diesen Wert in der Arbeitsmappe nochmal gibt. Gibt es ihn nicht, steigt mir das Makro mit einer Fehlermeldung aus. Es soll aber in der Form weiterlaufen, dass es in die Zelle zurückgeht, in der es gestartet ist. Muß wohl irgendwie mit if-then-else funktionieren, kriege es aber einfach nicht hin. Habe unten einen Teil des Makros aufgeführt, irgendwo da müsste wohl die Lösung eingebaut werden.
Schon mal vielen Dank für eure Bemühungen
Sheets(1).Select
Cells.Find(What:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Sheets(2).Select
Cells.FindNext(After:=ActiveCell).Activate
Sheets(1).Select
ActiveCell.Offset(0, -18).Range("A1:E1").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Copy
Sheets(2).Select
ActiveCell.Offset(0, -18).Range("A1").Select