ich würde gerne anhand des Datums in de Zellen B1:B100 die Tagnamen kürzel (Mo, Di, Mi, usw.) in die Zellen A1:A100 schreiben lassen. Possible?! Wenn ja, wie?
Vielen Dank,
P.Neuhoff
Sub Wochentag()
For i = 1 To 100
t = Application.WorksheetFunction.Weekday(Cells(i, 2))
Select Case t
Case Is = 1
Cells(i, 1).Value = "So"
Case Is = 2
Cells(i, 1).Value = "Mo"
Case Is = 3
Cells(i, 1).Value = "Di"
Case Is = 4
Cells(i, 1).Value = "Mi"
Case Is = 5
Cells(i, 1).Value = "Do"
Case Is = 6
Cells(i, 1).Value = "Fr"
Case Is = 7
Cells(i, 1).Value = "Sa"
End Select
Next i
End Sub