in einer Exeltabelle habe ich Tabellenblätter für 3Jahre angelegt, Januar 2000 bis Dezember 2002. Mit diesem Makro soll immer der Vormonat gedruckt werden. Wenn ich jetzt ein neues Tabellenblatt für Januar 2003 anlege und das Makro ausführe, wird der Monat Dezember 2000 ausgedruckt.
Ich möchte aber nicht Dezember 2000 sonder Dezember 2002 ausdrucken!
Was muss muss im Makro verändert werden??
Vielen Dank im Voraus
Gruss Didi
Public Sub Vormonat_drucken()
Dim Monat As Integer, Tabelle As Worksheet
Monat = Month("01. " & Left(ActiveSheet.Name, 3) & " 2000")
If Monat = 1 Then
Monat = 12
ElseIf Monat = 12 Then
Monat = 11
Else
Monat = Monat - 1
End If
For Each Tabelle In ActiveWorkbook.Sheets
On Error GoTo weiter
If Month("01. " & Left(Tabelle.Name, 3) & " 2000") = Monat Then
Tabelle.PrintOut
Exit For
End If
weiter:
Next Tabelle
End Sub