Sub
Süd()
ActiveSheet.Unprotect (
"sparte"
)
If
Not
Range(
"I5"
).Comment
Is
Nothing
Then
Range(
"I5"
).Comment.Text
"Verpflegung v. PROPLANT bezahlt: "
& vbLf & vbLf &
"<leer>: kein Essen"
& vbLf &
"'F': Frühstück"
& vbLf &
"'M': eine Mahlzeit, kein Frühstück"
& vbLf &
"'FM': Frühstück und eine Mahlzeit"
& vbLf &
"'2M': zwei Mahlzeiten"
& vbLf &
"'AI': Frühstück und zwei Mahlzeiten"
Else
Range(
"I5"
).AddComment
"Verpflegung v. PROPLANT bezahlt: "
& vbLf & vbLf &
"<leer>: kein Essen"
& vbLf &
"'F': Frühstück"
& vbLf &
"'M': eine Mahlzeit, kein Frühstück"
& vbLf &
"'FM': Frühstück und eine Mahlzeit"
& vbLf &
"'2M': zwei Mahlzeiten"
& vbLf &
"'AI': Frühstück und zwei Mahlzeiten"
End
If
If
Not
Range(
"E5"
).Comment
Is
Nothing
Then
Range(
"E5"
).Comment.Text
"Bei Abwesenheit unter 14h:"
& vbLf & vbLf &
"Für die Anerkennung als An- und Abreisetag genügt, wenn unmittelbar nach der Anreise"
& vbLf &
"oder vor der Abreise eine auswärtige"
& vbLf &
"Übernachtung stattgefunden hat"
Else
Range(
"E5"
).AddComment
"Bei Abwesenheit unter 14h:"
& vbLf & vbLf &
"Für die Anerkennung als An- und Abreisetag genügt, wenn unmittelbar nach der Anreise"
& vbLf &
"oder vor der Abreise eine auswärtige"
& vbLf &
"Übernachtung stattgefunden hat"
End
If
Sheets(
"Reisekosten"
).
Select
Range(
"P5"
).FormulaLocal =
"=WENN(D5<Hilfswerte!$I$6;WENN(E5="
"x"
";SVERWEIS(G5;Reisekostentabelle!$A$4:$D$239;3;FALSCH);0);WENN(D5="
""
";"
""
";WENN(D5=1;SVERWEIS(G5;Reisekostentabelle!$A$4:$D$239;2;FALSCH);WENN(D5>Hilfswerte!$I$6;SVERWEIS(G5;Reisekostentabelle!$A$4:$D$239;3;FALSCH)))))"
Range(
"P5"
).
Select
Selection.AutoFill Destination:=Range(
"$P5:$P28"
), Type:=xlFillValues
Range(
"$B16:$B51"
).
Select
Range(
"P5"
).
Select
Application.ScreenUpdating =
False
ActiveSheet.Unprotect (
"sparte"
)
Range(
"A1:B1"
).
Select
ActiveCell.FormulaR1C1 =
"MVI PROPLANT Süd GmbH"
Range(
"A1:B1"
).
Select
With
Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText =
False
.Orientation = 0
.AddIndent =
False
.IndentLevel = 0
.ShrinkToFit =
False
.ReadingOrder = xlContext
.MergeCells =
False
End
With
With
Selection.Font
.Name =
"Arial"
.Size = 10
.Strikethrough =
False
.Superscript =
False
.Subscript =
False
.OutlineFont =
False
.Shadow =
False
.Underline = xlUnderlineStyleNone
.Color = -16776961
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End
With
With
Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End
With
Sheets(
"KFZ-Betriebskosten"
).
Select
ActiveSheet.Unprotect (
"sparte"
)
Range(
"A1:B1"
).
Select
ActiveCell.FormulaR1C1 =
"MVI PROPLANT Süd GmbH"
Range(
"A1:B1"
).
Select
With
Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText =
False
.Orientation = 0
.AddIndent =
False
.IndentLevel = 0
.ShrinkToFit =
False
.ReadingOrder = xlContext
.MergeCells =
True
End
With
With
Selection.Font
.Name =
"Arial"
.Size = 10
.Strikethrough =
False
.Superscript =
False
.Subscript =
False
.OutlineFont =
False
.Shadow =
False
.Underline = xlUnderlineStyleNone
.Color = -16776961
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End
With
With
Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End
With
Range(
"A6"
).
Select
ActiveSheet.Protect (
"sparte"
)
Sheets(
"Reisekosten"
).
Select
ActiveSheet.Shapes.Range(Array(
"Picture 6"
)).
Select
Selection.ShapeRange.ZOrder msoSendToBack
ActiveSheet.Shapes.Range(Array(
"Picture 4"
)).
Select
Selection.ShapeRange.ZOrder msoSendToBack
Sheets(
"KFZ-Betriebskosten"
).
Select
ActiveSheet.Unprotect (
"sparte"
)
ActiveSheet.Shapes.Range(Array(
"Picture 1"
)).
Select
Selection.ShapeRange.ZOrder msoSendToBack
ActiveSheet.Shapes.Range(Array(
"Picture 3"
)).
Select
Selection.ShapeRange.ZOrder msoSendToBack
Range(
"A5"
).
Select
ActiveSheet.Protect (
"sparte"
)
Sheets(
"Reisekosten"
).
Select
Range(
"M2"
).
Select
With
Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=
"=KostenstellenlisteSüd"
.IgnoreBlank =
True
.InCellDropdown =
True
.InputTitle =
""
.ErrorTitle =
""
.InputMessage =
""
.ErrorMessage =
""
.ShowInput =
True
.ShowError =
True
End
With
Range(
"O33"
).
Select
Selection.ClearContents
Range(
"C2:D2"
).
Select
ActiveSheet.Protect (
"sparte"
)
Application.ScreenUpdating =
True
End
Sub