Range Find Methode VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
.Find gibt dir immer die erste Fundstelle eines Wertes zurück, bezogen auf die Suchreihenfolge.
mit Searchdirection:=xlnext werden die Zellen von links nach rechts und von oben nach unten durchsucht.
mit Searchdirection.=xlprevious werden die Zellen von rechts nach links und von unten nach oben durchsucht (umgekehrte Suchreihenfolge).
mit .Cells.Find werden alle Zellen auf dem Tabellenblatt durchsucht.
mit .Range("A1:A5").Find wird nur der Zellbereich A1:A5 durchsucht.
mit diesem Wissen sollest du dir deine Frage eigentlich selbst beantworten können
in deinem ersten Beispiel ist die Zelle D2 die erste Fundstelle, weil der gesamte Zellbereich von links nach rechts und von oben nach unten.
in deinem zweiten Beispiel ist die Zelle B4 die erste Funstelle, aufgrund der umgekehrten Suchreihenfolge.
in deinem Dritten Beispiel bekommst du den Fehlerabbruch, weil der gesuchte Wert (5) nicht im durchsuchten Bereich vorhanden ist.
im übrigen möchte mich mich der Anmerkung von Matthias anschließen.
Es ist schon seltsam, wenn die Datei in der Beschreibung nicht mit der Beispieldatei übereinstimmt.
Da fragt man sich dann schon, was im Kopf des Fragestellers so vorgeht und was er sich dabei denkt, wenn er sowas macht.
Gruß Daniel

Hi
.FIND findet immer nur exakte Übereinstimmung, allerdings können bei TEXT-Suche auch Joker verwendet werden.
was du brauchst kannst du nur mit der Funktion VERGLEICH erreichen (in VBA dann bei Bedarf mit APPLICATION.MATCH), in der Variante mit 3. Paramter = 1
allerdings gelten hier ein paar Bedingungen, die du einhalten musst:
1. durchsucht werden kann immer nur ein Zellbereich, der aus einer Zeile oder eine Spalte besteht, aber kein rechteckiger Zellbereich mit mehreren Zeilen und mehreren Spalten.
2. die Werte müssen innherhalb des Zellbereichs aufsteigend sortiert sein.
3. Besteht keine exakte Übereinstimmung, wird als Ergebnis der nächstkleinere Wert als Ergebnis verwendet.
4. das Ergebnis von VERGLEICH/MATCH ist nicht die absolute Zeilennummer der Fundzelle, sondern die Position innerhalb des durchsuchten Bereichs (nur wenn der durchsuchte Bereich in Zeile/Spalte 1 beginnt, sind Positionsnummer und Zeilennummer gleich)
5. suchst du den nächstgrößeren Wert, musst du zum Ergbnis noch 1 hinzuaddieren um den Wert aus der folgenden Zeile/Spalte zu bekommen.
Gruß Daniel

Public Sub Test() Dim Wert As Double Wert = Tabelle1.Range("Wert").Value Dim Var1 As Integer Dim Var2 As Integer Dim Liste1 As Range Set Liste1 = Tabelle1.Range("A1:A5") Var1 = Application.WorksheetFunction.Match(Wert, Liste1, 1) Var2 = Var1 + 1 Dim X1 As Double Dim X2 As Double Dim Y1 As Double Dim Y2 As Double Dim IntWert As Double X1 = Cells(Var1, 1) X2 = Cells(Var2, 1) Y1 = Cells(Var1, 2) Y2 = Cells(Var2, 2) IntWert = Y1 + ((Y2 - Y1) / (X2 - X1)) * (Wert - X1) End Sub

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

76 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Range Find Methode VBA

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

76 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread