Korter

Status
Niet open voor verdere reacties.

BasHD

Gebruiker
Lid geworden
2 dec 2008
Berichten
99
Hallo mensen,

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

Code:
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
 
Code:
    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
 
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan