Korter

[BasHD]

Hallo mensen,

Kan iemand mij helpen om het volgende stukje vba korter te schrijven? Moet kunnen maar krijg het zo gauw niet gevonden?

Sub Nullen_weghalen()

Dim MySheets, XSheets, Nummer, Sheet, Ur
    
   
    Application.ScreenUpdating = False
    MySheets = Array("Datum", "VCOS", "VCOS (2)", "Fos", "Re", "DVE", "Ds", "Ph", "DsMais", "VCOSMais", "Ph1", "Ds1", "Naam", "Fos1", "VCOS ADL", "VCOS1")
    XSheets = 16



    Nummer = -1

    For teller = 1 To XSheets

        Nummer = Nummer + 1
        Sheet = MySheets(Nummer)
        Sheets(Sheet).Select

        Dim Ur As String
        Dim Mycell As Range
        Application.ScreenUpdating = False

        Ur = ActiveSheet.UsedRange.Address
        For Each Mycell In Range(Ur)
        If Mycell.Value = 0 Then
        Mycell.ClearContents
        End If
        Next
        
    Next teller
        
        Application.ScreenUpdating = True

End Sub

Iets met For each Sheet in array oid?

Groet,

Bas

 

[Wigi]

    For Each v In Array("Datum", "VCOS", "VCOS (2)", "Fos", "Re", "DVE", "Ds", "Ph", "DsMais", "VCOSMais", "Ph1", "Ds1", "Naam", "Fos1", "VCOS ADL", "VCOS1")
        Sheets(v).UsedRange.Replace 0, "", xlWhole
    Next

Graag een informatieve topic titel voor toekomstige vragen aub.

Wigi

 

[BasHD]

Het korter maken van een formule

Hallo Wigi,

Dit was qua topic wel erg kort ja, sorry.

Evengoed bedankt voor de uitwerking. Ik ga dit op afgerond zetten.

Groet,

Bas