Sub Leerkopie()
'
' Leerkopie Makro
' Makro am 07.03.2014 von Uwe aufgezeichnet
'

'
If MsgBox(" ???Kopie erstellt???" & _
            vbLf & "          Daten löschen?", _
            vbCritical + vbYesNo) = vbNo Then
            Target.ClearContents
            End If
            
    ActiveSheet.Unprotect
    Range("Q2:Q49").Select
    Selection.Copy
     Range("P2:AC2").End(xlToRight).Offset(0, 1).Select
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("C400:D404").Select
    Selection.Copy
    Range("B400").Select
    ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
    Range("C406:D406").Select
    Selection.Copy
    Range("B406").Select
    ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
     Range("C2:D2").Select
    Selection.Copy
    Range("B2").Select
    ActiveSheet.Paste
    Range("E14").Select
    Range("C3:D7").Select
    Selection.Copy
    Range("B3").Select
    ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
    Range("C9:D9").Select
    Selection.Copy
    Range("B9").Select
    ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
    Range("E14:G19").Select
    Selection.ClearContents
    Range("J14:J19").Select
    Selection.ClearContents
    Range("B1").Select
    Selection.ClearContents
    Sheets("Monat").Select
    Range("B6:G994").Select
    Selection.ClearContents
    
    Range("I6:J960").Select
    Selection.ClearContents
    
    Range("B6").Select
    Sheets("Prämienberechnung").Select
    Range("B1").Value = InputBox("Arbeitstage für diesen Monat eingeben:", "In Zelle A1", "")
    Range("D2").Value = InputBox("Aktuellen Monat eingeben:", "In Zelle D2", "")   HIER SOLL AUCH ARBEITSMAPPE UMBENANNT WERDEN
    Range("C17").Value = InputBox("Aktuelle GK EINSPARUNG eingeben, wenn Neu:", "In Zelle C17", "")
    Range("B12").Value = InputBox("Vorgabe Sollproduktivität eingeben, wenn leer:", "In Zelle B12", "")
    Range("C13").Value = InputBox("Aktuelle GK Vorgabe eingeben, wenn leer:", "In Zelle C13", "")
     Range("B2").Select
      Range("B1").Select
      ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    
End Sub