Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabellen hinzufügen und mit Namen aus einer Liste belegen

Gruppe

Arbeitsblatt

Problem

Wie kann ich Tabellenblätter hinzufügen und sie mit den in Spalte A stehenden Namen belegen?

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

StandardModule: basMain

Sub TabNamenFestlegen()
   Dim wks As Worksheet
   Dim iRow As Integer
   Set wks = ActiveSheet
   iRow = 1
   Do Until IsEmpty(wks.Cells(iRow, 1))
      Worksheets.Add after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = wks.Cells(iRow, 1).Value
      iRow = iRow + 1
   Loop
   Worksheets(1).Select
End Sub