Es wäre super, wenn ihr mir bei folgendem Problem helfen könntet: Ich habe eine Tabelle, in der in Spalte 50 entweder leere Zellen oder ein "x" steht. Ich möchte eine simple Routine durchlaufen lassen, die mir ab Zeile 8 alle Zeilen, in denen ein "x" steht, löscht. Folgenden Ansatz habe ich mir ausgedacht:
Sub AuswahlLoeschen()
Dim lngx As Long
For lngx = 8 To Range("AX65536").End(xlUp).Row
If Cells(lngx, 50) = "x" Then Rows(lngx).Delete Shift:=xlUp
Next
End Sub
Irgendwo ist leider hier der Wurm drin. Er löscht zwar einige der Spalten, aber nicht alle. Hoffentlich erkennt einer den Fehler und kann mir weiterhelfen. Das wäre wirklich eine große Hilfe.
Vielen Dank im Voraus und beste Grüße
Sebastian