Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte in Monats/Namen-Ergebnismatrix übernehmen

Gruppe

INDIREKT

Problem

In Zeile 1 stehen die Monate, in Spalte A die Namen. Die Formel soll aus dem Monatsblatt die Werte zum jeweiligen Namen übernehmen.

Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.

StandardModule: Modul1

Sub BlaetterAnlegen()
   Dim iCounter As Integer
   For iCounter = 1 To 12
      Worksheets.Add after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = Format(DateSerial(1, iCounter, 1), "mmmm")
   Next iCounter
End Sub