Vergeet vroegere post, is dit goed
Hallo SubTijd ()
Schemerige myWB als Werkboek
Schemerige myWS als Aantekenvel
Schemerige cel als Waaier
Reeks myWB = Werkboeken („Name.xls“)
Reeks myWS = myWB.Worksheets („Sheet1“)
Voor Elke cel in MyWS.Range („B2“, myWS.Cells (Rows.Count, „B“). Eind (xlUp))
cel. Waarde = Val (cel. Waarde)
cel.NumberFormat = „00 \: 00 \: 00 \: 00“
cel. Waarde = cel. Tekst
Volgende cel
Sub van het eind