Warum wird der Zelleninhalt nur teilweise gefunden?
25.09.2024 12:15:37
Ranko
in einer Tabelle mit ca. 1700 Datensätze (Zeilen) wird in Spalte A über die Suche einer Schlüsselnummer die dazugehörige Zeile ermittelt.
Nun kommt es vor, dass einige Nummern nicht gefunden werden, obwohl sie vorhanden sind.
Die Tabelle wird in größeren Abständen durch Kopieren via Makro auf einen neuen Stand gebracht.
Erstellt wird die Tabelle immer durch Kopieren mit [...].PasteSpecial xlPasteValues.
Zum Suchen der Schlüsselnummer nutze ich folgenden Code:
Dim lNummer as Long
Dim rZeile as Range
lNummer = 10328 ' Im Original-Makro wird die Nummer aus einer anderen Tabelle ausgelesen
Set rZeile = Sheets("Tabelle1").Range("A2:A1700").Find(lNummer, LookIn:=xlValues)
If Not rZeile Is Nothing Then
' Die benötigten Daten aus der Zeile (rZeile.row) ausgelesen
End ifBei der Fehlersuche habe ich auch folgenden Code versucht:
For Each rZelle In Sheets("Tabelle1").Range("A2:A1700")
If rZelle.Value = lNummer Then
Debug.Print "Gesuchte Zahl in Zeile: " & rZelle.Row & " gefunden"
Exit Sub
End If
NextAuch mit dem zweiten Code werden dieselben Zahlen gefunden bzw. nicht gefunden.
Der Befehl IsNumeric() erkennt sowohl für den Inhalt der Zellen sowie für die zu suchende Nummer einen numerischen Wert.
Eine Beispieldatei habe ich hochgeladen: https://www.herber.de/bbs/user/172387.xlsm
Falls jemand eine Idee hat, wo ich den Fehler noch suchen könnte oder Lust hat, sich die Beispieldatei anzuschauen, so wäre ich dafür sehr dankbar!
Grüße, Ranko
Anzeige