macro om cellen met een - verwijderen

[autoweek]

Best helper,

ik heb al een macor gevonden die lege cellen verwijderd:

Sub DeleteBlankRows()

Dim r As Long
Dim C As Range
Dim N As Long
Dim Rng As Range

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

If Selection.Rows.Count > 1 Then
Set Rng = Selection
Else
Set Rng = ActiveSheet.UsedRange.Rows
End If
N = 0
For r = Rng.Rows.Count To 1 Step -1
If Application.WorksheetFunction.CountA(Rng.Rows(r).EntireRow) = 0 Then
Rng.Rows(r).EntireRow.Delete
N = N + 1
End If
Next r

EndMacro:

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Maar nu wil ik een macro die cellen met een - verwijderd. Hoe implenteer ik dit in die macro of moet er dan een hele nieuwe macro gemaakt worden?

 

[Warme bakkertje]

In welke kolom of bereik moet dan naar dit - gezocht worden?

 

[autoweek]

Bekijk bijlage test.xlsxbijgevoegd een voorbeeld bestand waarvan ik graag zou willen dat alle cellen waar een streepje in staan verwijderd worden.

 

[autoweek]

Bekijk bijlage test 2.xlsDit bestand heb ik ook nog gevonden op het web. Maar krijg de formule niet werkend in bovenstaand bestand.

 

[Roncancio]

Dim rB As Range
    Application.ScreenUpdating = False
    For Each rB In Range("A1").CurrentRegion
        If InStr(1, "-", rB.Value) > 0 Then rB.Value = ""
    Next
    Application.ScreenUpdating = True

Met vriendelijke groet,


Roncancio

 

[autoweek]

Is dat heel de macro om cellen met een streepje te verwijderen? Want als ik de code invoer en vervolgens op alt f8 druk dan staat de macro er niet tussen

 

[Roncancio]

Je moet nog wel een naam aan de macro geven.
Bijv.:

Sub Streep_Verwijderen()
Dim rB As Range
    Application.ScreenUpdating = False
    For Each rB In Range("A1").CurrentRegion
        If InStr(1, "-", rB.Value) > 0 Then rB.Value = ""
    Next
    Application.ScreenUpdating = True
End Sub

Met vriendelijke groet,


Roncancio

 

[autoweek]

Oke dat heb ik gedaan en dan verschijnt de macro ook als ik op alt f8 druk. Alleen als ik het wil uitvoeren dan krijg ik een compileerfout bij het deel van de macro = False

 

[Roncancio]

In je bestand heb ik de macro geplaatst en uitgevoerd.

Met vriendelijke groet,


Roncancio