Microsoft Excel

Herbers Excel/VBA-Archiv

Die ersten beiden Stellen löschen

Betrifft: Die ersten beiden Stellen löschen von: Daniel
Geschrieben am: 07.09.2020 13:33:09

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

Betrifft: AW: Die ersten beiden Stellen löschen
von: Daniel
Geschrieben am: 07.09.2020 13:37:34

Gelöst!

Betrifft: AW: Die ersten beiden Stellen löschen
von: UweD
Geschrieben am: 07.09.2020 13:55:05

Hallo


raZelle = mid(raZelle, 3)



LG UweD

Beiträge aus dem Excel-Forum zum Thema "Die ersten beiden Stellen löschen"