Gruppe
Druck
Problem
Wie kann ich auf Schaltflächendruck das Tabellenblatt mit dem aktuellen Monatsnamen drucken lassen?
StandardModule: basMain
Sub AnlegenMonate()
Dim iMonth As Integer
For iMonth = 1 To 12
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(DateSerial(1, iMonth, 1), "mmmm")
Next iMonth
Worksheets(1).Select
End Sub
Sub MonatDrucken()
Worksheets(Format(DateSerial( _
1, Month(Date), 1), "mmmm")).PrintPreview
End Sub