Hallo Leute,
ich weiß, ich sollte eigentlich in das Archiv gucken. Hab ich auch schon ! - bekomm das aber was dort steht nicht auf meine Tabelle umgemünzt.
Ich habe eine Tabelle in der in der Spalte A viele Kontonummern stehen.
nun möchte ich eine Schleife schreiben, bei der jede Kontonummer einzeln geprüft wird und wenn diese mit "800611*" beginnt, soll die komplette Zeile gelöscht werden. Ich hab es schon mit folgendem versucht, aber es funktioniert nicht !
Kann jemand bitte helfen ?
Dim i As Long
Dim Depotnummer As Range
Depotnummer = "800611*"
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1) = Depotnummer Then Rows(i).Delete
Debug.Print Cells(i, 1)
Next i
End Sub