Abfrage mit Makro nur bis Zeile 28

Public Sub Suchen() Dim WkSh As Worksheet Dim lZeile As Long Application.ScreenUpdating = False Set WkSh = ThisWorkbook.Worksheets("Daten") WkSh.Range("F2").Value = "M" For lZeile = 2 To WkSh.Cells(Rows.Count, 1).End(xlUp).Row If Trim(WkSh.Range("E2").Value) "" And _ IsNumeric(WkSh.Range("E2").Value) Then If Trim(WkSh.Range("E2").Value) >= Trim(WkSh.Range("A" & lZeile).Value) And _ Trim(WkSh.Range("E2").Value)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Moin Holger
Die Einschränkung - nur bis Zeile 28 - liegt in dieser VBA-Zeile:

For lZeile = 2 To WkSh.Cells(Rows.Count, 1).End(xlUp).Row

Diese Zeile startet den Schleifendurchlauf in Zeile 2

For lZeile = 2

und endet in der letzten, benutzen Zeile in Spalte A

To WkSh.Cells(Rows.Count, 1).End(xlUp).Row

Du musst also nur die hier fett dargestellte 1 (Spalte A) gegen die Spaltenzahl ersetzen, in der die meisten Einträge (in deinem Fall 607) vorhanden sind.
Bsp
Sind deine meisten Einträge in Spalte D, dann ändere die obige VBA-Zeile so:

For lZeile = 2 To WkSh.Cells(Rows.Count, 4).End(xlUp).Row

4 deswegen, weil Spalte D die 4. Spalte ist.
Sind deine meisten Einträge in Spalte AA, dann ändere die obige VBA-Zeile so:

For lZeile = 2 To WkSh.Cells(Rows.Count, 27).End(xlUp).Row

27 deswegen, weil Spalte AA die 27. Spalte ist.
usw
Hilfts?
Ciao
Thorsten

Hi Holger
Die Zeile

For lZeile = 2 To WkSh.Cells(Rows.Count, 1).End(xlUp).Row

bzw der Teil

WkSh.Cells(Rows.Count, 1).End(xlUp).Row

bestimmt die Spalte, in der alle Zeilen bis zur zuletzt genutzten Zeile gesucht werden soll.
In diesem Fall werden so viele Zeilen überprüft, die in Spalte A benutzt sind.
Wenn du also z Bsp in Spalte A nur 10 Einträge hast, in Spalte B aber 100, werden trotzdem nur 10 Einträge überprüft, da es in Spalte A nur 10 Einträge gibt.
Möchtest du so viele Zeilen überprüfen, wie in Spalte B genutzt werden, muss die VBA-Zeile so aussehen:

For lZeile = 2 To WkSh.Cells(Rows.Count, 2).End(xlUp).Row

Mit der geänderten 2 würden jetzt so viele Zeilen überprüft werden, wie in Spalte B - also 100 - genutzt wurden; auch wenn in Spalte A nur 10 Zeilen genutzt wurden.
Verstanden?
In deiner Bsp-Datei sieht die Zeile so aus:

For lZeile = 2 To WkSh.Cells(Rows.Count, 5).End(xlUp).Row

In diesem Fall werden also so viele Zeilen überprüft, wie in Spalte 5 = Spalte F benutzt werden.
Aber die in Spalte F zuletzt benutzte Zeile ist Zeile 2, in der ja das Ergebnis stehen soll.
Da aber die For-Schleife erst mit 2 beginnt, bedeutet das, das die Schleife nur 1x durchlaufen wird, nämlich
For lZeile = 2 To 2
Da in deiner Bsp-Datei sowohl Spalte A als auch Spalte B gleich viele Zeilen nutzt, musst du die 5 gegen 1 oder 2 tauschen. Dann läuft auch der Code - habs getestet mit den PLZ 1001 (steht in Zeile 30) und 21745 (steht in Zeile 89).
Für deine Original-Datei gilt:
Trage in der VBA-Zeile

For lZeile = 2 To WkSh.Cells(Rows.Count, 5).End(xlUp).Row

anstelle der 5 die Zahl (Spalte) ein, in der die meisten Zeilen benutzt werden.
Hier noch die von mir geänderte Bsp-Datei zurück:
https://www.herber.de/bbs/user/69048.xls
Hilfts?
Ciao
Thorsten

Option Explicit ' Code ursprüngl. von Peter Feustel, ' www.herber.de/forum/archiv/1148to1152/t1150915.htm#1150939 Public Sub Suchen() ' Suchbegriff steht in Zelle E2, das Ergebnis in Zelle F2 Dim lZeile As Long Application.ScreenUpdating = False With ThisWorkbook.Worksheets("Daten") .Cells(2, 6).Value = "M" ' F2 For lZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row If Trim(.Cells(2, 5).Value) "" And _ IsNumeric(.Cells(2, 5).Value) Then If .Cells(2, 5).Value >= .Cells(lZeile, 1).Value And _ .Cells(2, 5).Value

Beliebteste Forumthreads (12 Monate)

Abfrage mit Makro nur bis Zeile 28

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Abfrage mit Makro nur bis Zeile 28

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread