Office: Eine Do-Schleife mit mehreren Variablen durchlaufen lassen

Hallo zusammen,

ich habe eine Liste mit Versuchsdaten, wo in jeder Zeile je ein Messpunkt mit Datum, Temperatur, Luftfeuchte, ... steht. Nun möchte ich diese Liste durchsuchen nach einem Anfangs-und einem Endpunkt. Dies mache ich mit einer Do-Until Schleife:

Code:

In obiger Schleife wird im Auswertesheet immer dann eine neue Zeile geschrieben, wenn die Temperatur über 85°C ist. Das macht die Schleife so lange, bis sie oben angekommen ist, also können auch mehrere Ergebnisse denkbar sein.

Genau die gleiche Schleife möchte ich aber auch machen mit Feuchte >80% bzw. mit Temperatur 85)
Call Schleife (Sub mit der Schleife)

Versuchsbeginn = (Cells(aktZeile, Feuchte) > 80)
Call Schleife (Sub mit der Schleife)

Versuchsbeginn = (Cells(aktZeile, Temperatur) < 25)
Call Schleife (Sub mit der Schleife)


Sub Schleife

Do Until Versuchsbeginn
If aktZeile = 1 Then
Exit Do
End If

aktZeile = aktZeile - 1
Loop
Worksheets("Auswertung").Cells(n, 2).Value = Cells(aktZeile, 4)
Worksheets("Auswertung").Cells(n, 3).Value = Cells(aktZeile, 5)
Worksheets("Auswertung").Cells(n, 4).Value = Cells(aktZeile, 6)

End Sub[/quote] Nun habe ich die Schleife nur einmal programmiert, möchte aber, dass er immer den Text aus der aktuelle Variable "Versuchsbeginn" als Bedingung nimmt.


Allerdings funktioniert das bei mir nicht. Hat mir von euch einer einen Tipp, wie man das gangbar machen kann?

Vielen Dank für Eure Hilfe!

Gruß
Albert

:)

 

Hi Albert,

die Do Schleife ist zum Suchen suboptimal. Wenn schon, dann wäre FindNext angebracht. Aber selbst FindNext ist für Deine Anforderung nur das Mittel 2. Wahl. Weshalb verwendest Du nicht den Spezialfilter? Da benötigst Du nicht einmal VBA. Es sei denn, Du willst den Filter automatisieren....

 

Danke für Deinen Beitrag!

Die Suboptimalität ist zu erklären mit meinem Halbwissen im VBA. *Smilie

Ich habe später mehrere Tabs unten mit mehreren Versuchen, diese möchte ich alle durchsuchen. Somit war mein Gedanken:


Code:

Wie könnte man dies machen?

 

...wie ich bereits sagte... Benutze die Filterfunktion von Excel.