Möchte in einer Zelle, jeden zweiten Bindestrich vor dem $ Zeichen löschen (-$)
begingend ab dem ersten $ Zeichen
ZB: für die besser übersicht habe ich die zu löschenden - nicht gelöscht sondern mit ** ersetzt
Text vorher:
aaaaaaaaa $bbbbbbbb-bb-$ccccccccc-cc-$dddddddd$eeeeeeee$fffffffff$gggggggg-gg-$ hhhh$ etc
Text vorher:
aaaaaaaaa $bbbbbbbb-bb-$ccccccccc-cc**$dddddddd$eeeeeeee$fffffffff$gggggggg-gg**$ hhhh$ etc
Folgender Code fängt beim ersten Gefunden -$ an
Was muss ich anpassen, damit ab dem ersten $ gestartet wird und dann jedes zweite $ Zeichen geprüft wird und gegebenfalss den Bindestrich enfertnt?
Sub test()
Dim i As Long
Range("B1").Select
For x = 0 To Cells(Rows.Count, 2).End(xlUp).Row
If Right(ActiveCell.Offset(x, 0 - 1), 1) = "0" Then
Anzahl = Len(ActiveCell.Offset(x, 0)) - Len(Replace(ActiveCell.Offset(x, 0), "-$", ""))
For i = 1 To Anzahl
ActiveCell.Offset(x, 0).Formula = _
WorksheetFunction.Substitute(ActiveCell.Offset(x, 0).Formula, "-$", "**$", i)
Next
End If
Next
End Sub
Besten Dank und GrussHugo