Gruppe
Druck
Bereich
Arbeitsblatt
Thema
Tabellenblatt mit dem aktuellen Monatsnamen drucken
Problem
Wie kann ich auf Schaltflächendruck das Tabellenblatt mit dem aktuellen Monatsnamen drucken lassen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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