ich würde gerne in einer Excel Tabelle in jeder Zelle der Spalte "W" prüfen, ob die letzten 4 Stellen eine Nummer ist.
Wenn die Bedingungen erfüllt wird sollen diese 4 Nummern gelöscht werden.
With Worksheets("Rechnung")
loletzte = .Cells(.Rows.Count, "A").End(xlUp).row
Set raBereich = .Range("E2:E" & loletzte).SpecialCells(xlCellTypeVisible)
For Each raZelle In raBereich
If UCase(Left(raZelle, -4)) IsNumeric Then
raZelle = Left((raZelle), Len(raZelle) - 4)
Else
End If
Next raZelle
End With