ich hab vielleicht ne blöde Frage... :)
Und zwar will ich mit Hilfe von VBA eine Spalte durchsuchen. Interessant sind für mich die Zellen mit einem Wert ungleich 3 (es gibt die Werte 0 bis 4). Ist der Wert ungleich 3 muss noch der Wert eine Zeile drüber gleich 3 sein, um weiterzuarbeiten. Ich hab das jetzt mit einer Schleife gelöst, aber da das an die 70000 Zeilen sind, arbeitet mein Programm relativ lange :(
Kann ich das Problem vielleicht anders lösen, z.B. mit dem Befehl Find (oder arbeitet die Funktion auch so wie eine Schleife)?
a = Sheets(1).Cells(Rows.Count, 16).End(xlUp).Row
For Zeile = 2 To a
Wert = Sheets(1).Cells(Zeile, 16)
If Wert 3 Then
If Sheets(1).Cells(Zeile - 1, 16) = 3 Then
If Wert = 0 Then
...
ElseIf Wert = 4 Or 2 Then
...
End If
End If
End If
Next Zeile
Vielen Dank für eure Hilfe!!!
Ann