Gruppe
Allgemein
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