Sub Positionen1()
' Positionen1 Makro
' erstellt die Pos Blätter
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos1"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos2"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos3"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos4"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos5"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos6"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos7"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos8"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos9"
Sheets("Muster").Select
Sheets("Muster").Copy Before:=Sheets(1)
Sheets("Muster (2)").Select
Sheets("Muster (2)").Name = "Pos10"
Sheets("Angebot").Select
End Sub