Sortere array indeholde dags-navne.

Hvis de skal sorteres alfabetisk:

Sub dagArray()

Dim ugen As Variant, x, t
ugen = Array("søndag", "tirsdag", "fredag", "søndag", "mandag", "onsdag", "lørdag", "torsdag")

For t = 1 To UBound(ugen)
  For tt = t To UBound(ugen)
    If ugen(t) > ugen(tt) Then x = ugen(t): ugen(t) = ugen(tt): ugen(tt) = x
  Next
Next

For t = 1 To UBound(ugen)
  MsgBox ("") & ugen(t)
'  Cells(t, 1) = ugen(t)
Next

End Sub

takker

velbekom