Tabellen nach Vorlagentabelle hinzufügen
01.06.2007 20:43:00
Michael
vor längerer zeit wurde mir in diesem forum schon 1x geholfen.
nun habe ich wieder ein anliegen, bei dem ihr mir sicherlich helfen könnt.
ich würde gerne tabellenblätter nach einer liste in tabelle1 (in spalte a stehen die bezeichnungen) nach einem "vorlagen"-tabellenblatt erstellen.
das habe ich bei meiner suche gefunden (finde ich toll) - nur habe ich absolut keinen schimmer, wie ich da mein vorlagenblatt unterbringen könnte :-(
ich freue mich auf eure infos. danke.
https://www.herber.de/mailing/068299h.htm
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
