Makro "Blätter_erstellen"
20.01.2008 23:38:56
Markus
Danke für eure Hilfe.
Sub Blätter_erstellen()
Sheets("Vorgabeliste").Select
ActiveSheet.Unprotect Password:="y"
Sheets("Muster_M").Select
ActiveSheet.Unprotect Password:="y"
Dim Zelle As Range
With Sheets("Vorgabeliste")
For Each Zelle In Range(.Cells(3, 1), .Cells(100, 1).End(xlUp)).SpecialCells( _
xlCellTypeConstants)
ThisWorkbook.Sheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = Zelle.Value
Sheets("Muster_M").Cells.Copy Destination:=ActiveSheet.Cells
Range("A7").Select
ActiveWindow.FreezePanes = True
Range("D8").Select
ActiveSheet.Protect Password:="y"
Next
Sheets("Muster_M").Select
ActiveSheet.Protect Password:="y"
Sheets("Vorgabeliste").Select
ActiveSheet.Protect Password:="y"
End With
End Sub