Re: Weekday-Funktion
06.08.2002 16:36:08
Alex
Hier jetzt mal der wesentliche Code. Dazwischen wird noch Text in diverse andere Zellen geschrieben. Vielleicht liegt auch irgendwo in meiner Berechnung der Fehler.Dim arrMonat, arrWTag As Variant
Dim NameNeu As String
Dim Datum As Date
arrMonat = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember")
arrWTag = Array("So", "Mo", "Di", "Mi", "Do", "Fr", "Sa")
BlattZahl = Sheets.Count
If BlattZahl < 12 Then
Sheets.Add
NameNeu = arrMonat(BlattZahl) & " " & Right(Year(Now), 2)
ActiveSheet.Name = NameNeu
Sheets(NameNeu).Move after:=Sheets(BlattZahl + 1)
End If
Range("B2").FormulaR1C1 = BlattZahl + 1 & "/1/" & Year(Now)
Range("B2").NumberFormat = "dd/mm/"
Datum = Range("B2").Value
Range("B1").FormulaR1C1 = arrWTag(WeekDay(Datum) - 1)