Hilfe - Laufzeitfehler 91 und keinen Plan...
12.05.2004 08:55:37
Russi
Hallo Zusammen,
anbei eine Datei, in der ich eine Kundendatenbank nach Suchbegriffen durchsuche. In einer "On Error"-Anweisung (= nicht gefundener Suchbegriff) springe ich per Goto wieder an den Beginn der Suche. Bis zur "On Error"-Anweisung funktioniert die suche wunderbar, danach nicht mehr. Die Excel-Hilfe hilft mir nicht weiter und auch so kann ich mir das Problem nicht erklären, vielleicht hat von euch jemand einen Ansatz.
In der Datei befindet sich ein ActiveX-Steuerelement (Spreadsheet).
Vielen Dank und Gruß aus Coburg
Andreas
---
Option Explicit
Dim Eingabe As Variant
Dim introw, row, anzahlgefundene As Long
Dim X, Y, z As Long
Dim intcounter As Integer
Sub Suchen()
On Error GoTo Errorhandler
Sheets("Kunden").Range("k2:k65000").Clear
Sheets("Suchbegriffe").Range("A1").Select
introw = 1
'Z = Sheets("Kunden").Range("A65536").End(xlUp).Offset(1, 0).row
Start:
While Sheets("Suchbegriffe").Cells(introw, 1).Value <> ""
Eingabe = Sheets("Suchbegriffe").Cells(introw, 1).Value
Sheets("Kunden").Activate
Cells.Find(What:=Eingabe, _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).entirerow.Select
Markieren:
Selection.Cells(row + 1, 11).Value = Eingabe
X = Selection.Cells.Rows.row
Cells.FindNext(After:=Selection).entirerow.Select
Y = Selection.Cells.Rows.row
If Y > X Then
GoTo Markieren
Else
Sheets("Suchbegriffe").Activate
introw = introw + 1
GoTo Start
End If
Wend
MsgBox "Aufbereitung abgeschlossen"
anzahlgefundene = Sheets("Kunden").Range("L1").Value
MsgBox ("Es wurden " & anzahlgefundene & " Übereinstimmungen gefunden!")
GoTo Ende
Errorhandler:
MsgBox "Der Suchbegriff wurde nicht gefunden"
Sheets("Suchbegriffe").Activate
introw = introw + 1
GoTo Start
Ende:
Sheets("Start").Select
Sheets("Start").Range("A1").Select
End Sub
---