Sub Sheet_kopieren() ' ' Sheet_kopieren Makro ' ' Sheets("Vorlage").Select Sheets("Vorlage").Copy Before:=Sheets(1) Sheets("KT_Lft").Select ActiveWindow.SmallScroll Down:=-57 Range("C3").Select EndSub
Sub Sheets_kopieren() Dim Bereich As String Dim Zelle As Range Dim Tabelle As Worksheet Bereich = "C2:C73" With ActiveWorkbook For Each Zelle In ActiveSheet.Range(Bereich).Cells Set Tabelle = .Sheets.Add(After:=.Sheets(Sheets.Count)) Tabelle.Name = Zelle.Text Next Zelle End With End Sub