Sub Süd()

'Süd Makro
'

'Ändert das Kommentarfeld in der Zelle Mahlzeit
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
    
    
    'Abwesenheit unter 14h
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
    
 
'Passt die Abwesenheitsformel für unter 8h bzw. unter 14h an
        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)))))"

'Übernahme der Funktion auf die restlichen Zellen, vertikal
        Range("P5").Select
        Selection.AutoFill Destination:=Range("$P5:$P28"), Type:=xlFillValues
        Range("$B16:$B51").Select
        Range("P5").Select
    
    
'ActiveSheet.Protect ("sparte")
'
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect ("sparte")
' Überschrift (Ohne Kopfzeile)
    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
' Überschrift KFZ-Betriebskosten (Ohne Kopfzeile)
    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
' Logo
    ActiveSheet.Shapes.Range(Array("Picture 6")).Select
    Selection.ShapeRange.ZOrder msoSendToBack
    ActiveSheet.Shapes.Range(Array("Picture 4")).Select
    Selection.ShapeRange.ZOrder msoSendToBack
'Logo (KFZ-Betriebskosten)
    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
' Kostenstellen
    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