Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Monatsblätter mit Gültigkeitsliste anlegen

Gruppe

Arbeitsblatt

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?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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