Excel Dokument nach Werten durchsuchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Unit() Dim lngZeile As Long Dim X As Long Dim Y As Long For lngZeile = 2 To Range("A:I").SpecialCells(xlCellTypeLastCell).Row If Application.Min(Range(Cells(lngZeile, 1), Cells(lngZeile, 9))) > 250 Then X = lngZeile If X > 0 Then If Application.Max(Range(Cells(lngZeile, 1), Cells(lngZeile, 9))) 0 Then Range(Cells(X, 1), Cells(Y, 9)).Select End Sub

Sub Unit() Dim lngZeile As Long Dim X As Long Dim Y As Long For lngZeile = 2 To Range("A:I").SpecialCells(xlCellTypeLastCell).Row If X = 0 Then If Application.Min(Range(Cells(lngZeile, 1), Cells(lngZeile, 9))) > 250 Then X = lngZeile End If If X > 0 Then If Application.Max(Range(Cells(lngZeile, 1), Cells(lngZeile, 9))) 0 Then Range(Cells(X, 1), Cells(Y, 9)).Select End Sub

Hallo Thorsten und Gerd, vielen Dank für eure Zeit. Ich hatte gerade eine Testdatei erstellt und dann erst Gerds Beitrag gelesen.
@Gerd Super, dein Code hat mir sehr geholfen und nochmal gezeigt, dass ich´s wohl vorher falsch beschrieben hab. Mein Kopf funktioniert heute wohl nur langsam.. die oberste Zeile die ich markieren möchte soll zwar auch die Bedingung erfüllen, dass das Minimum "größer 250" ist, aber darüber sind noch viele weitere Zeilen, die diese Bedingung erfüllen und somit mit markiert werden. Ich habe das was ich mir vorgestellt habe aber mit deinem Code und minimaler Anpassung sehr gut hinbekommen können, also vielen Dank !
PS: Da ich ja auch was dazulernen möchte: du hast die Zeilen "If X gleich 0" und "If X größer0" verwendet. Sind die quasi dazu da, dass die erste If Bedingung überprüft wird, solange X noch nichts zugewiesen wurde und sobald dem X das lngZeile zugewiesen wurde die erste If Bedingung abgeschlossen und die 2. wegen "X größer 0" startet wird?
@Thorsten Danke fürs Grübeln über mein Problem und den Hinweis, dass ich meine Problemstellung genauer beschreiben muss, damit auch korrekt geholfen werden kann Ich lade die Testdatei trotzdem mal hoch, falls du interessiert bist da trotz funktionierender Lösung mal reinzuschauen. Ich habe dort meine Idee wie man das lösen könnte auch mal in Worte gepackt, ich hab es nur nicht hinbekommen das in einen Code zu wandeln. Es wäre definitiv eine andere Lösung als die von Gerd.
Testdatei: https://www.herber.de/bbs/user/149324.xlsx
Also nochmal: Vielen dank euch beiden und einen schönen Resttag !

Beliebteste Forumthreads (12 Monate)

Excel Dokument nach Werten durchsuchen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel Dokument nach Werten durchsuchen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread