VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Monatsblätter mit Gültigkeitsliste anlegen

Gruppe

Allgemein

Bereich

Arbeitsblatt

Thema

Monatsblätter mit Gültigkeitsliste anlegen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Arbeitsblatt