Prüfroutine - Fehlercode 91
12.02.2004 14:46:27
RalfH
mit folgendem Code frage ich ab ob eine AuftragsNr bereits vorhanden ist, falls vorhanden erscheint eine Meldung und das Makro wird beendet. Soweit so gut.
Falls jedoch die AuftragsNr nicht vorhanden ist, erhalte ich den Fehlercode 91.
Dim Suchwert As String
Windows("Auftrag.xls").Activate
Sheets("LS").Select
Suchwert = Cells(7, 12).Value
Windows("AUFKOPF.XLS").Activate
Range("a1").Select
Cells.Find(What:=Suchwert, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
If ActiveCell = Suchwert Then
MsgBox ("Auftrag wurde bereits verarbeitet")
Exit Sub
Else
Windows("Auftrag.xls").Activate
Sheets("LS").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$64"
ActiveWindow.SelectedSheets.PrintOut copies:=2, collate:=True
End If
End Sub
Was mache ich falsch, hat jemand einen Tip.
Schon mal besten Dank
Gruss
RalfH