Thema Datum  Von Nutzer Rating
Antwort
19.07.2016 19:08:40 VBA-User
NotSolved
19.07.2016 19:40:29 Gast77511
NotSolved
Rot VBA Kompatibilität mit MS Office 2014 und höher
20.07.2016 12:36:08 VBA-User
NotSolved
20.07.2016 12:48:19 VBA-User
NotSolved
20.07.2016 15:13:11 Gast63712
Solved
21.07.2016 13:29:04 VBA-User
NotSolved

Ansicht des Beitrags:
Von:
VBA-User
Datum:
20.07.2016 12:36:08
Views:
919
Rating: Antwort:
  Ja
Thema:
VBA Kompatibilität mit MS Office 2014 und höher
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.07.2016 19:08:40 VBA-User
NotSolved
19.07.2016 19:40:29 Gast77511
NotSolved
Rot VBA Kompatibilität mit MS Office 2014 und höher
20.07.2016 12:36:08 VBA-User
NotSolved
20.07.2016 12:48:19 VBA-User
NotSolved
20.07.2016 15:13:11 Gast63712
Solved
21.07.2016 13:29:04 VBA-User
NotSolved