Laufzeitfehler '1004' Nicht in der Lage das Match bekommen propertyof das WorksheetFunction-Klasse

In meinem makro habe ich folgenden code :

i = Application.WorksheetFunction.Match(str_accrual, Range(Selection, Selection.End(xlToRight)), 0)

wo 'str_accrual' ist ein string eingefangen früher auf diese Linie, und der Bereich ausgewählt ist, in einer einzigen Zeile sagen von "A1" bis "BH1" und das Ergebnis wird eine Zahl, die die position der Zeichenfolge in diesem Bereich ausgewählt.

Wenn ich das makro auszuführen, bekomme ich die Fehlermeldung:

Run-time error '1004' Nicht in der Lage das Match bekommen propertyof die WorksheetFunction Klasse

Aber wenn ich das makro Zeile für Zeile mit (F8) - Taste, die ich nicht bekomme diese Fehlermeldung, aber wenn ich das makro ausführen, ständig bekomme ich die Fehlermeldung. Wieder, wenn der Abbruch das makro und führen Sie es erneut die Fehler nicht erscheinen.

Die find range-Methode so gut funktioniert. msdn.microsoft.com/en-us/library/office/ff839746.aspx
Dies kann oder maynot helfen, Ihre Antwort, aber Sie versuchen, Sortieren Sie Ihre Daten bevor Sie Ihr makro. Was ich bemerkt habe, während dies zu tun ist, wenn ich habe 2 Fehler zurück, um diese Fehlermeldung erscheint. Etwas über mehrere Fehler, die nicht zulässt, dass Sie den code, um vorwärts zu bewegen. In meinem Fall bin ich in der Lage zu gelten, eine Art, die zum überwiegenden Teil wird dieses problem beseitigt.

InformationsquelleAutor user1147697 | 2013-09-26

1

Ich versuchte mehrere Male. Es scheint, dass, wenn keine übereinstimmung vorhanden ist, wird der Ausdruck prompt diese Fehlermeldung

wenn Sie wollen, um den Fehler abzufangen, verwenden Sie Application.Match statt

Dann können Sie wickeln Sie es mit isError

InformationsquelleAutor sam092
1

Tonnen Beiträge über diesen Fehler aber keine Lösung soweit ich die Beiträge gelesen. Es scheint, dass für verschiedene worksheet-Funktionen zu arbeiten, das Arbeitsblatt muss aktiv/sichtbar. (Das ist zumindest meine neuste Erkenntnis nach meinem Match() wurde nach dem Zufallsprinzip arbeiten für fadenscheinigen Gründen.)

Hoffte ich, dass das Rätsel gelöst wurde, obwohl die Aktivierung Arbeitsblätter für diese Art der Suchaktion war ein Schmerz und kostet ein paar CPU-Zyklen.

So, ich spielte mit syntax-Variationen, und es stellte sich heraus, dass der code zu arbeiten begonnen, nachdem ich entfernt den Unterstrich Zeilenumbrüche, unabhängig von dem Arbeitsblatt angezeigt wird. <- gut, für einige Grund, den ich noch hatte, um das Arbeitsblatt aktivieren 🙁

'funktioniert nicht
```
'Set oCllHeader = ActiveWorkbook.Worksheets("Auswertung").Cells(oCllSpielID.Row, _
                    Application.Match( _
                        strValue, _
                        ActiveWorkbook.Worksheets("Auswertung").Range( _
                            oCllSpielID, _
                            ActiveWorkbook.Worksheets("Auswertung").Cells(oCllSpielID.Row, lastUsedCellInRow(oCllSpielID).Column)), _
                            0))
```
'funktioniert (die Zeilenumbrüche entfernt mit Unterstrich für readibility) <- diese syntax aufgehört zu arbeiten später kein Weg an der Aktivierung der Tabelle 🙁
```
Set oCllHeader = ActiveWorkbook.Worksheets("Auswertung").Cells(oCllSpielID.Row, Application.Match(strValue, ActiveWorkbook.Worksheets("Auswertung").Range(oCllSpielID, ActiveWorkbook.Worksheets("Auswertung").Cells(oCllSpielID.Row, lastUsedCellInRow(oCllSpielID).Column)), 0))
```
Am Ende bin ich frustriert, läuft in mehr Ausführungen dieses Geheimnis und verbringen viel Zeit wieder.

cheers

InformationsquelleAutor http://www.MSOffice-deluxe.com
1

Wurde ich immer diese Fehlermeldung zeitweise. Stellt sich heraus, es passiert, wenn ich hatte ein anderes worksheet aktiv ist.

Als die Dokumente für Angebot sagen,

Wenn es verwendet wird, ohne eine Objekt-Kennzeichner (ein Objekt Links vom Punkt), die Range-Eigenschaft gibt einen Bereich im aktiven Blatt.

So, um den Fehler zu beheben, fügen Sie einen qualifier:
```
Sheet1.Range
```
InformationsquelleAutor Mihail Kostira
0

Das ist, was Sie erhalten, wenn Sie ÜBEREINSTIMMEN, schlägt fehl, um den Wert zu finden.
- Aber ich bin in der Lage zu finden, die übereinstimmen, wenn ich das makro ausführen Zeile für Zeile ! Und ich nicht den Fehler die ganze Zeit. Wann bekomme ich die Fehlermeldung, dass ich Abbrechen der makro-und versuchen Sie wieder zum laufen, ich sehe nicht den Fehler. Es findet die Spiel-und makro läuft wunderbar danach.
- Haben Sie verändert Ihre Auswahl in den Prozess versehentlich?
InformationsquelleAutor Gary's Student
0

Versuchen Sie dies:
```
If Not IsError(Application.Match(str_accrual, Range(Selection, Selection.End(xlToRight)), 0)) Then
    i = Application.Match(str_accrual, Range(Selection, Selection.End(xlToRight)), 0)
Else
    'do something if no match is found

End If
```
Update

Hier besseren code, die sich nicht auf Selection nur als ein Mittel von user-input für die Definition der Reichweite gesucht werden.
```
Sub Test()

Dim str_accrual As String
Dim rngToSearch As Range

str_accrual = InputBox("Search for?")

Set rngToSearch = Range(Selection, Selection.End(xlToRight))

If Not IsError(Application.Match(str_accrual, rngToSearch, 0)) Then
    i = Application.Match(str_accrual, rngToSearch, 0)
    MsgBox i
Else
    MsgBox "no match is found in range(" & rngToSearch.Address & ")."
End If
End Sub
```
- Dank David. Ich versuchte Ihren code, aber nochmal...wie ich sagte, der Fehler erscheint jedes jetzt und dann aber nicht die ganze Zeit. Nur ein Rätsel zu lösen.
- Dieser code nicht erstellen Sie die Fehler, die Sie erlebt haben-insbesondere, weil es nicht den Aufruf der _WorksheetFunction.Match . Da Application.Match erlaubt zu sein eingewickelt in der IsError Funktion die fallen Fehler, die andernfalls erhoben werden, die von der WorksheetFunction.Match. Wie die anderen gefragt, es ist möglicherweise, Sie verändert die Selection (Sie sollten sich nicht auf dieses Konstrukt, außer zuweilen als eine Möglichkeit, Benutzer-Eingabe, aber nie als variable/Objekt). Oder, vielleicht, wenn Sie diese aufrufen-makro mit mehreren Arbeitsmappen öffnen, wird ein Fehler passieren könnte, basiert auf dem Buch ist "Aktiv".
- Hinweis: überarbeitete code, Antwort fehlte der Then in der ersten Zeile.
InformationsquelleAutor David Zemens
0

Mir "Wenn Nicht ISTFEHLER" und die Fehler gezeigt hätten. Um zu verhindern, dass die Fehler, fügen Sie die folgende Zeile als auch:

On Local Error Resume Next

InformationsquelleAutor Edgar Walkowsky

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.