VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Tabellen hinzufügen und mit Namen aus einer Liste belegen

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

    


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