Gruppe
Allgemein
Bereich
Arbeitsblatt
Thema
Tabellen hinzufügen und mit Namen aus einer Liste belegen
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