Office: Ersten und letzten Eintrag in einer Spalte finden

EarlFred · 9. Juni 2017

\@Jack

Ich nehme die default-werte, und "nenne" sie deswegen nicht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Welches sind denn die Default-Werte für LookIn, LookAt, SearchOrder (und MatchByte)?
Welche Zelle wird denn zurückgegeben, wenn die erste Fundstelle in A2 (der ersten Zelle des Suchbereichs) vorliegt bei Suchrichtung xlNext? (Da geht Ralfs Code auch nur deswegen durch, weil der erste Treffer nicht vor A2 liegen kann, wenn ich die Aufgabe richtig verstehe - sonst wäre das bei der Vorwärtssuche auch hier falsch)

Ob das einen Unterschied produziert, Wage ich nicht abzuschätzen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das solltest Du aber können!

Leute, lest mehr in der OH. Neben grobem Unfug steht da manchmal sogar was wissenswertes drin.

Grüße
EarlFred

RPP63 · 9. Juni 2017

Moin!
So, wieder am Rechner …
Zu den nicht existenten Default-Werten hat EarlFred ja bereits etwas geschrieben.
Ich suche in der gesamten Spalte A.
Davon ausgehend, dass in der ersten Zeile eine Überschrift steht, ist Range("A:A").Cells(1) die Zelle A1, also der Header.
Beim ersten Mal suche ich von A1 an abwärts, ergibt den ersten Fund.
Beim zweiten von A1 an "aufwärts", wenn vorher etwas gefunden wurde, ergibt den letzten Fund.

von EarlFred

Bei Ralf fehlt allerdings der Bezug zu Tabelle4 vor Cells(1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Fiel mir beim Schreiben auch auf, *schäm*!
Dann mal mit korrekter Referenzierung:

Sub RPP2()
Dim Fund As Range
With Tabelle4.Range("A:A")
Set Fund = .Find(3, .Cells(1), xlValues, xlWhole, xlByColumns, xlNext)
If Not Fund Is Nothing Then
MsgBox "Erste Zeile: " & Fund.Row
Set Fund = .Find(3, .Cells(1), xlValues, xlWhole, xlByColumns, xlPrevious)
MsgBox "Letzte Zeile: " & Fund.Row
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ralf

Office: Ersten und letzten Eintrag in einer Spalte finden

Ersten und letzten Eintrag in einer Spalte finden

Ersten und letzten Eintrag in einer Spalte finden

Ersten und letzten Eintrag in einer Spalte finden - Similar Threads - Eintrag Spalte

VBA - Wenn Eintrag in Spalte vorhanden dann aktualisieren, sonst neue Zeile

Anzahl einer bestimmten Spalte wenn innerhalb eines Monats liegen

Einträge, die in allen Spalten vorkommen, zeigen

Werte aus einer Spalte in eine Matrix eintragen

VBA gefüllte Spalten/Zellen bis zur nächsten leeren Zählen

Farbliche Markierung wenn Eintragung in Spalte A gleich der Eintragung in Spalte B ist

Werte addieren und in Spalte eintragen, wenn Duplikate gefunden