Hallo zusammen,
ich möchte mittels VBA in der Spalte Q nach Begriffen suchen die mit PO beginnen.
Wenn diese gefunden werden, soll das PO und das anschließende Leerzeichen entfernt werden.
(In der Regel steh es so da: PO 123456)
With Worksheets("Gesamtrechnung")
loletzte = .Cells(.Rows.Count, "A").End(xlUp).row
Set raBereich = .Range("Q2:Q" & loletzte).SpecialCells(xlCellTypeVisible)
For Each raZelle In raBereich
If raZelle Like "PO*" Then
raZelle = Left((raZelle), Len(raZelle) - 2)
Else
End If
Next raZelle
End With
bei diesem Code werden nun die letzten beiden Stellen gelöscht. Gibt es eine Möglichkeit auch die ersten beiden Stellen zu löschen ?
Vielen Dank im voraus und einen Lieben Gruß
Daniel