Jetzt bin ich nochmal da.
Zwar funktioniert die Eingabe der | Mo | Di | Mi | Do | Fr | Sa | gut, aber einige der Tagesabkürzungen werden in einer anderen Schriftart angezeigt.
Arial 9,5 wäre normal, aber einige dazwischen haben die Courier New 10,5.
Hier mal der Code:
Option Explicit
Function fMonatstage(m As Integer, y As Integer) As Integer
fMonatstage = DateSerial(y, m + 1, 1) - DateSerial(y, m, 1)
End Function
Sub Tabelle_mit_Tagen_ohne_Erstellen()
Dim Tage As Integer
Dim i As Integer
Dim MDate As Date
'-----------------------------------------------------------------------
'schreibe ab der 3. Spalte die Tage
Tage = fMonatstage(2015, 4) 'April 2015
For i = 1 To Tage
MDate = DateSerial(2015, 4, i)
If (Weekday(MDate, vbMonday) = 7) Then GoTo line1
With ThisDocument.Tables(1)
.Cell(1, 2 + i).Range.Text = Choose(Weekday(MDate, vbMonday), "Mo", "Di", "Mi", "Do", "Fr", "Sa", "So")
End With
line1:
Next i
End Sub
Kann ich hier die Schriftart festlegen?
With ThisDocument.Tables(1)
'hier irgendwie die Schriftart und Größe???
.Cell(1, 2 + i).Range.Text = Choose(Weekday(MDate, vbMonday), "Mo", "Di", "Mi", "Do", "Fr", "Sa", "So")
End With
line1:
Next i
End Sub
|