nochmal- kürzere Formulierung gesucht 2. Versuch
05.02.2004 08:02:21
Peter
meiner Frage angezeigt. Warum ???
Ich möchte die Formatfestlegung bereit in der Festlegung des
Wochentages einbauen. Geht das?
Sub Wochentag()
Dim x As Integer
For x = 1 To 5
Cells(6, 250 + x) = Weekday(1 + x) 'Mo-Fr
Cells(6, 250 + x).NumberFormat = "Ddd"
Next x
End Sub
Danke Peter
Anzeige