Thema: Tabellenblatt mit dem aktuellen Monatsnamen drucken

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

Beiträge aus dem Excel-Forum zu den Themen Druck und Arbeitsblatt