Macro voor deleten constanten sheet

[Senso]

Ik wil de constanten (alleen getallen) selecteren op de actieve sheet en deleten via een macro.
Wie wil deze macro schrijven.
Ik kom niet verder dan:

Sub DeleteConstantsOnSheet()
    ' Define the worksheet you want to work with (e.g., ActiveSheet or Sheets("SheetName"))
    Dim ws As Worksheet
    Set ws = ActiveSheet ' or Set ws = Sheets("Your Sheet Name")

    ' Check if there are any constants to clear
    If Application.CountA(ws.Cells) > 0 Then
        ' Select only cells that contain constants (not formulas)
        On Error Resume Next ' In case no constants are found, prevent an error
        ws.Cells.SpecialCells(xlCellTypeConstants, 23).ClearContents
        On Error GoTo 0 ' Resume normal error handling
        MsgBox "All constants have been deleted from " & ws.Name & ".", vbInformation, "Done"
    Else
        MsgBox "The sheet " & ws.Name & " is already empty.", vbInformation, "Info"
    End If
End Sub

 

[jverkerk]

Deze had ik nog in een bestandje

Sub WisGetallen()
    On Error Resume Next
    ActiveSheet.UsedRange.SpecialCells(xlConstants, xlNumbers).ClearContents
End Sub

 

[Senso]

Oké, die werkt.
Een paar problemen.
1. Ik krijg de lange naam = inclusief bestandsnaam voor de macro. Dit is storend en onhandig. Komt dit omdat je de modulenaam aanpast?

2. Kun je een groepering maken?
Dus geef aan dat de macro van toepassing op een selectie/groepering sheets?
ik heb Jan Feb Mrt Apr Mei Jun etc.


3. Kun je een macrolink in een cel plaatsen?
punt 3 laat maar zitten, is veel te ingewikkeld

Ik vergeet dingen.

 

[HSV]

1. Nee, dat komt omdat er een werkboek geminimaliseerd open staat en bij "macro's in:" voor 'alle geopende werkmappen' gekozen is.