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
End
Sub
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