ich möchte gerne aus einer Tabelle in Spalte "R" bei den Begriff "Labor" die letzten 4 Zahlen löschen.
With Worksheets("Katalog")
loletzte = .Cells(.Rows.Count, "A").End(xlUp).Row
Set raBereich = .Range("R2:R" & loletzte).SpecialCells(xlCellTypeVisible)
For Each raZelle In raBereich
If raZelle = "LABOR*" Then
raZelle = Left(("razelle"), Len("razelle") - 4)
Else
End If
Next raZelle
End With
der Code läuft zwar durch nur leider ändert sich nichts.
Vielen Dank im voraus und einen lieben Gruß
Daniel