Dim info1 As String
Dim info2 As String
Dim info3 As String
Dim TP_Beschreibung As String
Dim i As Integer
Dim z As Integer
Dim k As Integer
Dim rng As Range
Dim jahr As Integer
Application.ScreenUpdating = False
ActiveSheet.Unprotect ("mvi")
Range("D60:D73").Select
Application.CutCopyMode = False
Selection.ClearContents
i = 1
z = 60
k = 6
jahr = InputBox("Geben Sie das gewünschte Jahr ein")
Worksheets("Feiertage").Select
Cells(5, 1).Select
Do While ActiveCell <> jahr
ActiveCell.Offset(0, 1).Select
Loop
If z < 74 Then
For i = 1 To 29
If Cells(k, 2) = "" Then
k = k + 1
Else
Worksheets("Feiertage").Cells(k, 2).Copy
Worksheets("Einsatzplanung " & jahr).Cells(z, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
k = k + 1
z = z + 1
End If
Next i
Else
Exit Sub
End If
Worksheets("Einsatzplanung " & jahr).Select