Undersøg hvilken dag, en given dato er, og udfyld efterfølgende f

Private Sub Form_Load()
    Dim dato As Date
    dato = "19-04-2006"
    If Weekday(dato) = 1 Then
        MsgBox "Det er søndag"
    End If
    If Weekday(dato) = 2 Then
        MsgBox "Det er mandag"
    End If
    If Weekday(dato) = 3 Then
        MsgBox "Det er tirsdag"
    End If
    If Weekday(dato) = 4 Then
        MsgBox "Det er onsdag"
    End If
    If Weekday(dato) = 5 Then
        MsgBox "Det er torsdag"
    End If
    If Weekday(dato) = 6 Then
        MsgBox "Det er fredag"
    End If
    If Weekday(dato) = 7 Then
        MsgBox "Det er lørdag"
    End If
End Sub

Da jeg er ret ny i VBA, er jeg desværre ikke helt med på den her.

Glemte også at sige at feltet der indeholder "Datoen" er formatteret som tekst, og ser således ud "2006-04-19", så hvordan får jeg lavet macroen der starter i celle F2, finder ud af hvilken ugedag, værdien i F2 svarer til, og skriver f.eks "W" i felt I2. Macroen skal løbe gennem alle værdier i hele kolonne F og indsætte værdi i kolonne I

Marker alle cellerne i kolonne F der indeholder datoer og kør denne makro, der smider resultatet 4 kolonner til højre for.

Sub test()
Dim rCell As Range
Dim temp
For Each rCell In Selection
  temp = DateValue(rCell)
  Select Case Weekday(temp, vbMonday)
      Case 1 To 5: rCell(1, 4) = "W"
      Case 6: rCell(1, 4) = "SA"
      Case 7: rCell(1, 4) = "SU"
      Case Else:
  End Select
Next
End Sub

BAK.

Det var kanon, virker dog bedst med en lille IF rCell <> "", elelrs får jeg en debug fejl, når hele kolonnen er kørt igennem.

Hvordan får du tildelt point, det kan jeg ikke lige greje.

jeg skal lige give et svar :-)

Baks løsning var nummer 1 så derfor alle point til ham.