Office: Wenn Wert x in Spalte F dann setze E=y und F=z

Hallo,

Ich habe den unten stehenden code erfolgreich in 2 Excel 2007 Dateien integriert und er funktioniert dort auch einwandfrei.
Wenn in der used range in Spalte F der Wert "x" gefunden wird, wird in Spalte E der Wert "y" gesetzt und dann in Spalte F der Wert "x" durch "z" ersetzt.

Nun benutze ich ihn auch in einer dritten Excel 2007 Datei, erhalte dort jedoch auf einmal den Fehler "400". Woran könnte das liegen?
Der used range in dieser Dateiist ziemlich gross (28974 Zeilen) - kann das die Ursache für die Fehlermelung sein?
Oder gibt es eie bessere code Lösung für den beschriebenen Zweck?

VG terryjak

Code:

[/
Sub C_ITP()

Dim lngLetzteZeile As Long
Dim lngZaehler As Long

lngLetzteZeile = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
For lngZaehler = lngLetzteZeile To 1 Step -1

If Worksheets("Sheet1").Cells(lngZaehler, 6) = "x" Then
Worksheets("Sheet1").Rows(lngZaehler, 5).Value = "y"
Worksheets("Sheet1").Rows(lngZaehler, 6).Value = "z"
End If

Next lngZaehler

End Sub
CODE]

[trace]321865[/trace]

 

Hallo,

welche Zeile wird markiert?


Auszug aus der VBA-Hilfe:

 

Hallo,

versuche es mal so:
Code:

VG
Santa

 

Hallo,

@ Santa: das hat so funktioniert vielen Dank!
Ich denke ich werd das sicherheitshalber auch in den beiden anderen Dateien entsprechend ändern, obwohl es mir ein Rätsel ist warum es dort fehlerfrei funktioniert hat...

@ xlph: da wid keine Zeile speziell markiert.Je nachdem welche Zelle bei Start des codes den Fokus hat bleibt die Zeilenmarkerung entsprechend bestehen.

Danke für eure Hilfe!
terryjak