Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

erste zeile und letze Zeile eines Wertes finden

erste zeile und letze Zeile eines Wertes finden
08.04.2015 16:41:05
FBaron
Hallo,
in der Spalte 1 stehen zwei Einträge eines Schlüsselfeldes
Ich benötige jetzt beide Zeilenangaben.
Dim ez as Integer
Dim lz as Integer
ez = Columns(1).Find(Fanr).Row ( wie bringe ich dem Makro bei, dass es nach dem ersten Eintrag suchen soll bzw wie nach dem letzten)
Danke
F.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: erste und letzte Zeile eines Wertes finden
08.04.2015 16:54:12
Rudi
Hallo,
ez=application.match(fanr,columns(1),0)
lz=columns(1).find(what:=fanr, after:=cells(ez,1)).row
Gruß
Rudi

AW: erste zeile und letze Zeile eines Wertes finden
08.04.2015 17:08:55
Daniel
Hi
du kannst hierzu den Parameter SearchDirection verwenden:
erstes Vorkommen: =.Find(What:=..., Searchdirection:=xlnext)
letztes Vorkommen: =.Find(what:=..., Searchdirection:=xlprevious)
xlNext durchsucht den Zellbereich von oben nach unten, xlPrevious von unten nach oben.
Gruß Daniel

AW: erste zeile und letze Zeile eines Wertes finden
08.04.2015 18:33:11
FBaron
hallo Daniel,
aber man weiss ja gar nict in welchem Bereich man sucht.
Er soll in spalte A (1) suchen un die Zeilenposition ausspucken.

Anzeige
AW: erste zeile und letze Zeile eines Wertes finden
08.04.2015 18:46:45
Daniel
Hi
den Bereich den du durchsuchen willst, schreibst du natürlich vor das .FIND.
ich bin davon ausgegangen, dass dir die grundsätzliche Andwendung der .FIND-Funktion bekannt ist.
Aber dem scheint nicht so zu sein, daher für dich:

Dim Suchwert as String
Dim ErsteZeile as Long
Dim LetzteZeile as Long
Suchwert = "DeinText"
ErsteZeile = Columns(1).Find(What:=Suchwert, SearchDirection:=xlNext).Row
LetzteZeile = Columns(1).Find(What:="Suchwert, SearchDirection:=xlprevious).Row
Msgbox ErsteZeile & ", " & LetzteZeile

Gruß Daniel
Anzeige

328 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige