Ich hab folgendes Problem.
Ich habe ein Makro "Drucken" erzeugt, welches danach fragt, für welchen Monat bestimmte Zellen ausgedruckt werden sollen. So siehts aus:
Monat = InputBox("Bitte geben sie an, welchen Monat sie drucken möchten: (Bsp.: Januar)")
If Monat = "Januar" Then Sheets("BWA mit Plangrößen").Select Range("C1:H65").Select
Range("BW1").Select
ActiveCell.FormulaR1C1 = "Jahresübersicht bis Januar"
ActiveSheet.PageSetup.PrintArea = "$C$1:$H$65"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$BW$1:$CB$65"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("BW1").Select
ActiveCell.FormulaR1C1 = ""
End
If Monat = "Februar" Then Sheets("BWA mit Plangrößen").Select Range("I1:N65").Select
Range("BW1").Select
ActiveCell.FormulaR1C1 = "Jahresübersicht bis einschl. Februar"
ActiveSheet.PageSetup.PrintArea = "$I$1:$N$65"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$BW$1:$CB$65"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("BW1").Select
ActiveCell.FormulaR1C1 = ""
End
...
Nur, egal welchen Monat ich eingebe, das Makro druckt immer den für Januar angegebenen Bereich aus. Kann jemand auf Anhieb erkennen woran es liegt!
Vielen Dank schonmal!
Gruß octadick