Hallo mensen,
Kan iemand mij helpen om het volgende stukje vba korter te schrijven? Moet kunnen maar krijg het zo gauw niet gevonden?
Iets met For each Sheet in array oid?
Groet,
Bas
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