Monatsblätter mit Gültigkeitsliste anlegen

Thema: Allgemein - Gruppe Arbeitsblatt

Arbeitsmappe

124200    092100

Problem: Wie kann ich über VBA 12 Monatsblätter anlegen und die Gültigkeit der Werte in Spalte A jeden Blattes auf einen bestimmten Bereich des ersten Tabellenblattes begrenzen?

StandardModule: basMain

Sub GueltigkeitFestlegen()
   Dim iCounter As Integer
   Columns("A").Name = "nListe"
   For iCounter = 1 To 12
      Worksheets.Add after:=Worksheets(Worksheets.Count)
      With ActiveSheet
         .Name = Format(DateSerial(1, iCounter, 1), "mmmm")
         .Columns("A").Validation.Add Type:=xlValidateList, _
            AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=nListe"
      End With
   Next iCounter
   Worksheets(1).Select
End Sub