Code:
Private Sub CommandButton1_Click()
Dim index As Long
Dim Mitarbeiter
Dim Tage As Integer
Dim dat As Date
Dim datmon As String
Dim Zeile, spalte As Integer
Set d2 = UserForm2
If d2.OptionButton1.Value = True Then
akennz = 1
ElseIf d2.OptionButton2.Value = True Then
akennz = 2
ElseIf d2.OptionButton3.Value = True Then
akennz = 3
ElseIf d2.OptionButton4.Value = True Then
akennz = 4
ElseIf d2.OptionButton5.Value = True Then
akennz = 5
ElseIf d2.OptionButton6.Value = True Then
akennz = 6
ElseIf d2.OptionButton7.Value = True Then
akennz = 7
ElseIf d2.OptionButton8.Value = True Then
akennz = 8
ElseIf d2.OptionButton9.Value = True Then
akennz = 9
ElseIf d2.OptionButton10.Value = True Then
akennz = 10
ElseIf d2.OptionButton11.Value = True Then
akennz = 11
ElseIf d2.OptionButton12.Value = True Then
akennz = 12
ElseIf d2.OptionButton13.Value = True Then
akennz = 13
ElseIf d2.OptionButton14.Value = True Then
akennz = 14
ElseIf d2.OptionButton15.Value = True Then
akennz = 15
ElseIf d2.OptionButton16.Value = True Then
akennz = 16
ElseIf d2.OptionButton17.Value = True Then
akennz = 17
ElseIf d2.OptionButton18.Value = True Then
akennz = 18
ElseIf d2.OptionButton20.Value = True Then
akennz = 20
ElseIf d2.OptionButton21.Value = True Then
akennz = 21
ElseIf d2.OptionButton22.Value = True Then
akennz = 22
ElseIf d2.OptionButton23.Value = True Then
akennz = 23
ElseIf d2.OptionButton24.Value = True Then
akennz = 24
ElseIf d2.OptionButton25.Value = True Then
akennz = 25
ElseIf d2.OptionButton26.Value = True Then
akennz = 26
ElseIf d2.OptionButton27.Value = True Then
akennz = 27
ElseIf d2.OptionButton28.Value = True Then
akennz = 28
ElseIf d2.OptionButton29.Value = True Then
akennz = 29
Else
MsgBox ("Bitte Grund für Eintragung auswählen")
Exit Sub
End If
Dim AktZeile As Integer
Dim AktSpalte As Integer
AktZeile = ActiveCell.Row
AktSpalte = ActiveCell.Column
If IsNumeric(ActiveCell.Value) = False Then
MsgBox ("Falsche Zelle - abbrechen")
Exit Sub
End If
If akennz = 29 And TextBox2.Value = "" Then
Dim wert1_29 As Double
Dim wert2_29 As Double
wert1_29 = ActiveCell.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
ElseIf akennz = 29 And Not (TextBox2.Value = "") Then
MsgBox ("ungültiger Wert2")
Exit Sub
ElseIf IsNumeric(TextBox2.Value) = False Or TextBox2.Value < -50 Or TextBox2.Value > 50 Then
MsgBox ("ungültiger Wert")
Exit Sub
End If
If akennz = 1 Then
Dim wert1_1 As Double
Dim wert2_1 As Double
Dim com As Comment
wert1_1 = ActiveCell.Value
wert2_1 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_1 & " Stunde(n) Arbeitsvorbereitung " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_1 & " Stunde(n) Arbeitsvorbereitung " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_1 < 0 Then
ActiveCell.Value = wert1_1 + wert2_1
Else
ActiveCell.Value = wert1_1 - wert2_1
End If
Cells(331, ActiveCell.Column) = Cells(331, ActiveCell.Column) + wert2_1
End If
If akennz = 2 Then
Dim wert1_2 As Double
Dim wert2_2 As Double
wert1_2 = ActiveCell.Value
wert2_2 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_2 & " Stunde(n) Besprechung " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_2 & " Stunde(n) Besprechung " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_2 < 0 Then
ActiveCell.Value = wert1_2 + wert2_2
Else
ActiveCell.Value = wert1_2 - wert2_2
End If
Cells(332, ActiveCell.Column) = Cells(332, ActiveCell.Column) + wert2_2
End If
If akennz = 3 Then
Dim wert1_3 As Double
Dim wert2_3 As Double
wert1_3 = ActiveCell.Value
wert2_3 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_3 & " Stunde(n) Einarbeitung " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_3 & " Stunde(n) Einarbeitung " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_3 < 0 Then
ActiveCell.Value = wert1_3 + wert2_3
Else
ActiveCell.Value = wert1_3 - wert2_3
End If
Cells(333, ActiveCell.Column) = Cells(333, ActiveCell.Column) + wert2_3
End If
If akennz = 4 Then
Dim wert1_4 As Double
Dim wert2_4 As Double
wert1_4 = ActiveCell.Value
wert2_4 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_4 & " Stunde(n) Schulung " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_4 & " Stunde(n) Schulung " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_4 < 0 Then
ActiveCell.Value = wert1_4 + wert2_4
Else
ActiveCell.Value = wert1_4 - wert2_4
End If
Cells(334, ActiveCell.Column) = Cells(334, ActiveCell.Column) + wert2_4
End If
If akennz = 5 Then
Dim wert1_5 As Double
Dim wert2_5 As Double
wert1_5 = ActiveCell.Value
wert2_5 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_5 & " Stunde(n) EO " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_5 & " Stunde(n) EO " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_5 < 0 Then
ActiveCell.Value = wert1_5 + wert2_5
Else
ActiveCell.Value = wert1_5 - wert2_5
End If
Cells(348, ActiveCell.Column) = Cells(348, ActiveCell.Column) + wert2_5
End If
If akennz = 6 Then
Dim wert1_6 As Double
Dim wert2_6 As Double
wert1_6 = ActiveCell.Value
wert2_6 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_6 & " Stunde(n) Erste Hilfe " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_6 & " Stunde(n) Erste Hilfe " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_6 < 0 Then
ActiveCell.Value = wert1_6 + wert2_6
Else
ActiveCell.Value = wert1_6 - wert2_6
End If
Cells(335, ActiveCell.Column) = Cells(335, ActiveCell.Column) + wert2_6
End If
If akennz = 7 Then
Dim wert1_7 As Double
Dim wert2_7 As Double
wert1_7 = ActiveCell.Value
wert2_7 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_7 & " Stunde(n) EBA " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_7 & " Stunde(n) EBA " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_7 < 0 Then
ActiveCell.Value = wert1_7 + wert2_7
Else
ActiveCell.Value = wert1_7 - wert2_7
End If
Cells(336, ActiveCell.Column) = Cells(336, ActiveCell.Column) + wert2_7
End If
If akennz = 8 Then
Dim wert1_8 As Double
Dim wert2_8 As Double
wert1_8 = ActiveCell.Value
wert2_8 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_8 & " Stunde(n) QS " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_8 & " Stunde(n) QS " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_8 < 0 Then
ActiveCell.Value = wert1_8 + wert2_8
Else
ActiveCell.Value = wert1_8 - wert2_8
End If
Cells(337, ActiveCell.Column) = Cells(337, ActiveCell.Column) + wert2_8
End If
If akennz = 9 Then
Dim wert1_9 As Double
Dim wert2_9 As Double
wert1_9 = ActiveCell.Value
wert2_9 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_9 & " Stunde(n) BR " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_9 & " Stunde(n) BR " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_9 < 0 Then
ActiveCell.Value = wert1_9 + wert2_9
Else
ActiveCell.Value = wert1_9 - wert2_9
End If
Cells(338, ActiveCell.Column) = Cells(338, ActiveCell.Column) + wert2_9
End If
If akennz = 10 Then
Dim wert1_10 As Double
Dim wert2_10 As Double
wert1_10 = ActiveCell.Value
wert2_10 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_10 & " Stunde(n) Anlagenausfall " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_10 & " Stunde(n) Anlagenausfall " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_10 < 0 Then
ActiveCell.Value = wert1_10 + wert2_10
Else
ActiveCell.Value = wert1_10 - wert2_10
End If
Cells(339, ActiveCell.Column) = Cells(339, ActiveCell.Column) + wert2_10
End If
If akennz = 11 Then
Dim wert1_11 As Double
Dim wert2_11 As Double
wert1_11 = ActiveCell.Value
wert2_11 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_11 & " Stunde(n) Springer " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_11 & " Stunde(n) Springer " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_11 < 0 Then
ActiveCell.Value = wert1_11 + wert2_11
Else
ActiveCell.Value = wert1_11 - wert2_11
End If
Cells(340, ActiveCell.Column) = Cells(340, ActiveCell.Column) + wert2_11
End If
If akennz = 12 Then
Dim wert1_12 As Double
Dim wert2_12 As Double
wert1_12 = ActiveCell.Value
wert2_12 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_12 & " Stunde(n) Sonstiges " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_12 & " Stunde(n) Sonstiges " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_12 < 0 Then
ActiveCell.Value = wert1_12 + wert2_12
Else
ActiveCell.Value = wert1_12 - wert2_12
End If
Cells(341, ActiveCell.Column) = Cells(341, ActiveCell.Column) + wert2_12
End If
If akennz = 13 Then
Dim wert1_13 As Double
Dim wert2_13 As Double
wert1_13 = ActiveCell.Value
wert2_13 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_13 & " Stunde(n) ZE " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_13 & " Stunde(n) ZE " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_13 < 0 Then
ActiveCell.Value = wert1_13 + wert2_13
Else
ActiveCell.Value = wert1_13 - wert2_13
End If
Cells(342, ActiveCell.Column) = Cells(342, ActiveCell.Column) + wert2_13
End If
If akennz = 14 Then
Dim wert1_14 As Double
Dim wert2_14 As Double
wert1_14 = ActiveCell.Value
wert2_14 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_14 & " Stunde(n) Ebenenwechsel " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_14 & " Stunde(n) Ebenenwechsel " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_14 < 0 Then
ActiveCell.Value = wert1_14 + wert2_14
Else
ActiveCell.Value = wert1_14 - wert2_14
End If
Cells(343, ActiveCell.Column) = Cells(343, ActiveCell.Column) + wert2_14
End If
If akennz = 15 Then
Dim wert1_15 As Double
Dim wert2_15 As Double
wert1_15 = ActiveCell.Value
wert2_15 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveCell.Comment Is Nothing Then
With ActiveCell.AddComment
.Shape.TextFrame.AutoSize = True
.Text " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_15 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = ActiveCell.Comment.Text
ActiveCell.Comment.Delete
With ActiveCell.AddComment
.Text vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_15 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
If wert1_15 < 0 Then
ActiveCell.Value = wert1_15 - wert2_15
Else
ActiveCell.Value = wert1_15 + wert2_15
End If
Cells(344, ActiveCell.Column) = Cells(344, ActiveCell.Column) + wert2_15
End If
If akennz = 16 Then
Dim wert1_16 As Double
Dim wert2_16 As Double
Dim schließen As Boolean
wert1_16 = ActiveCell.Value
wert2_16 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If AktZeile >= 20 And AktZeile <= 140 Then
MsgBox ("Fehler - TZ MA auswählen")
schließen = True
Else
schließen = False
End If
If schließen = True Then
ElseIf ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_16 & " Stunde(n) FreiW-Mehrarbeit " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_16 & " Stunde(n) FreiW-Mehrarbeit " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If schließen = True Then
ElseIf wert1_16 < 0 Then
ActiveCell.Value = wert1_16 - wert2_16
Else
ActiveCell.Value = wert1_16 + wert2_16
End If
End If
If akennz = 17 Then
Dim wert1_17 As Double
Dim wert2_17 As Double
wert1_17 = ActiveCell.Value
wert2_17 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_17 & " Stunde(n) Krank nach Hause " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_17 & " Stunde(n) Krank nach Hause " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_17 < 0 Then
ActiveCell.Value = wert1_17 + wert2_17
With Selection.Interior
.Pattern = xlLightUp
.PatternColor = 26367
.ColorIndex = xlAutomatic
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
ActiveCell.Value = wert1_17 - wert2_17
With Selection.Interior
.Pattern = xlLightUp
.PatternColor = 26367
.ColorIndex = xlAutomatic
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Cells(345, ActiveCell.Column) = Cells(345, ActiveCell.Column) + wert2_17
End If
If akennz = 18 Then
Dim wert1_18 As Double
Dim wert2_18 As Double
wert1_18 = ActiveCell.Value
wert2_18 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_18 & " Stunde(n) Fähigkeitenwerkstatt " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_18 & " Stunde(n) Fähigkeitenwerkstatt " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_18 < 0 Then
ActiveCell.Value = wert1_18 + wert2_18
Else
ActiveCell.Value = wert1_18 - wert2_18
End If
Cells(346, ActiveCell.Column) = Cells(346, ActiveCell.Column) + wert2_18
End If
If akennz = 20 Then
Dim wert1_20 As Double
Dim wert2_20 As Double
wert1_20 = ActiveCell.Value
wert2_20 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_20 & " Stunde(n) Profit " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_20 & " Stunde(n) Profit " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If wert1_20 < 0 Then
ActiveCell.Value = wert1_20 + wert2_20
Else
ActiveCell.Value = wert1_20 - wert2_20
End If
Cells(347, ActiveCell.Column) = Cells(347, ActiveCell.Column) + wert2_20
End If
If akennz = 21 Then
Dim wert1_21 As Double
Dim wert2_21 As Double
wert1_21 = ActiveCell.Value
wert2_21 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_21 & " Stunde(n) FreiW-Mehrarbeit nach Schicht " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_21 & " Stunde(n) FreiW-Mehrarbeit nach Schicht " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
Dim number As Integer
number = ActiveCell
Select Case number
Case 10 To 20
Cells(442, ActiveCell.Column) = Cells(442, ActiveCell.Column) + wert2_21
If Cells(442, ActiveCell.Column).Comment Is Nothing Then
With Cells(442, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(442, ActiveCell.Column).Comment.Text
Cells(442, ActiveCell.Column).Comment.Delete
With Cells(442, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 110 To 120
Cells(441, ActiveCell.Column) = Cells(441, ActiveCell.Column) - wert2_21
If Cells(441, ActiveCell.Column).Comment Is Nothing Then
With Cells(441, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(441, ActiveCell.Column).Comment.Text
Cells(441, ActiveCell.Column).Comment.Delete
With Cells(441, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -20 To -10
Cells(443, ActiveCell.Column + 1) = Cells(443, ActiveCell.Column + 1) + wert2_21
If Cells(443, ActiveCell.Column + 1).Comment Is Nothing Then
With Cells(443, ActiveCell.Column + 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(443, ActiveCell.Column + 1).Comment.Text
Cells(443, ActiveCell.Column + 1).Comment.Delete
With Cells(443, ActiveCell.Column + 1).AddComment
.Text vorhandener_Kommentar & wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 30 To 40
Cells(445, ActiveCell.Column) = Cells(445, ActiveCell.Column) + wert2_21
If Cells(445, ActiveCell.Column).Comment Is Nothing Then
With Cells(445, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(445, ActiveCell.Column).Comment.Text
Cells(445, ActiveCell.Column).Comment.Delete
With Cells(445, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 130 To 140
Cells(444, ActiveCell.Column) = Cells(444, ActiveCell.Column) - wert2_21
If Cells(444, ActiveCell.Column).Comment Is Nothing Then
With Cells(444, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(444, ActiveCell.Column).Comment.Text
Cells(444, ActiveCell.Column).Comment.Delete
With Cells(444, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -40 To -30
Cells(446, ActiveCell.Column + 1) = Cells(446, ActiveCell.Column + 1) + wert2_21
If Cells(446, ActiveCell.Column + 1).Comment Is Nothing Then
With Cells(446, ActiveCell.Column + 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(446, ActiveCell.Column + 1).Comment.Text
Cells(446, ActiveCell.Column + 1).Comment.Delete
With Cells(446, ActiveCell.Column + 1).AddComment
.Text vorhandener_Kommentar & wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 50 To 60
Cells(448, ActiveCell.Column) = Cells(448, ActiveCell.Column) + wert2_21
If Cells(448, ActiveCell.Column).Comment Is Nothing Then
With Cells(448, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(448, ActiveCell.Column).Comment.Text
Cells(448, ActiveCell.Column).Comment.Delete
With Cells(448, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 150 To 160
Cells(447, ActiveCell.Column) = Cells(447, ActiveCell.Column) - wert2_21
If Cells(447, ActiveCell.Column).Comment Is Nothing Then
With Cells(447, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(447, ActiveCell.Column).Comment.Text
Cells(447, ActiveCell.Column).Comment.Delete
With Cells(447, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -60 To -50
Cells(449, ActiveCell.Column + 1) = Cells(449, ActiveCell.Column + 1) + wert2_21
If Cells(449, ActiveCell.Column + 1).Comment Is Nothing Then
With Cells(449, ActiveCell.Column + 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(449, ActiveCell.Column + 1).Comment.Text
Cells(449, ActiveCell.Column + 1).Comment.Delete
With Cells(449, ActiveCell.Column + 1).AddComment
.Text vorhandener_Kommentar & wert2_21 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
End Select
End If
If akennz = 22 Then
Dim wert1_22 As Double
Dim wert2_22 As Double
wert1_22 = ActiveCell.Value
wert2_22 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_22 & " Stunde(n) FreiW-Mehrarbeit vor Schicht " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_22 & " Stunde(n) FreiW-Mehrarbeit vor Schicht " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
Dim numbere As Integer
numbere = ActiveCell
Select Case numbere
Case 10 To 20
Cells(443, ActiveCell.Column) = Cells(443, ActiveCell.Column) + wert2_22
If Cells(443, ActiveCell.Column).Comment Is Nothing Then
With Cells(443, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(443, ActiveCell.Column).Comment.Text
Cells(443, ActiveCell.Column).Comment.Delete
With Cells(443, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 110 To 120
Cells(442, ActiveCell.Column - 1) = Cells(442, ActiveCell.Column - 1) - wert2_22
If Cells(442, ActiveCell.Column - 1).Comment Is Nothing Then
With Cells(442, ActiveCell.Column - 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(442, ActiveCell.Column - 1).Comment.Text
Cells(442, ActiveCell.Column - 1).Comment.Delete
With Cells(442, ActiveCell.Column - 1).AddComment
.Text vorhandener_Kommentar & wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -20 To -10
Cells(441, ActiveCell.Column) = Cells(441, ActiveCell.Column) + wert2_22
If Cells(441, ActiveCell.Column).Comment Is Nothing Then
With Cells(441, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(441, ActiveCell.Column).Comment.Text
Cells(441, ActiveCell.Column).Comment.Delete
With Cells(441, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 30 To 40
Cells(446, ActiveCell.Column) = Cells(446, ActiveCell.Column) + wert2_22
If Cells(446, ActiveCell.Column).Comment Is Nothing Then
With Cells(446, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(446, ActiveCell.Column).Comment.Text
Cells(446, ActiveCell.Column).Comment.Delete
With Cells(446, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 130 To 140
Cells(445, ActiveCell.Column - 1) = Cells(445, ActiveCell.Column - 1) - wert2_22
If Cells(445, ActiveCell.Column - 1).Comment Is Nothing Then
With Cells(445, ActiveCell.Column - 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(445, ActiveCell.Column - 1).Comment.Text
Cells(445, ActiveCell.Column - 1).Comment.Delete
With Cells(445, ActiveCell.Column - 1).AddComment
.Text vorhandener_Kommentar & wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -40 To -30
Cells(444, ActiveCell.Column) = Cells(444, ActiveCell.Column) + wert2_22
If Cells(444, ActiveCell.Column).Comment Is Nothing Then
With Cells(444, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(444, ActiveCell.Column).Comment.Text
Cells(444, ActiveCell.Column).Comment.Delete
With Cells(444, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 50 To 60
Cells(449, ActiveCell.Column) = Cells(449, ActiveCell.Column) + wert2_22
If Cells(449, ActiveCell.Column).Comment Is Nothing Then
With Cells(449, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(449, ActiveCell.Column).Comment.Text
Cells(449, ActiveCell.Column).Comment.Delete
With Cells(449, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 150 To 160
Cells(448, ActiveCell.Column - 1) = Cells(448, ActiveCell.Column - 1) - wert2_22
If Cells(448, ActiveCell.Column - 1).Comment Is Nothing Then
With Cells(448, ActiveCell.Column - 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(448, ActiveCell.Column - 1).Comment.Text
Cells(448, ActiveCell.Column - 1).Comment.Delete
With Cells(448, ActiveCell.Column - 1).AddComment
.Text vorhandener_Kommentar & wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -20 To -10
Cells(447, ActiveCell.Column) = Cells(447, ActiveCell.Column) + wert2_22
If Cells(447, ActiveCell.Column).Comment Is Nothing Then
With Cells(447, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(447, ActiveCell.Column).Comment.Text
Cells(447, ActiveCell.Column).Comment.Delete
With Cells(447, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_22 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
End Select
End If
If akennz = 23 Then
Dim wert1_23 As Double
Dim wert2_23 As Double
wert1_23 = ActiveCell.Value
wert2_23 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_23 & " Stunde(n) FreiW-Mehrarbeit nach Schicht " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_23 & " Stunde(n) FreiW-Mehrarbeit nach Schicht " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
Dim number1 As Integer
number1 = ActiveCell
Select Case number1
Case 10 To 20
Cells(442, ActiveCell.Column) = Cells(442, ActiveCell.Column) + wert2_23
If Cells(442, ActiveCell.Column).Comment Is Nothing Then
With Cells(442, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(442, ActiveCell.Column).Comment.Text
Cells(442, ActiveCell.Column).Comment.Delete
With Cells(442, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 110 To 120
Cells(441, ActiveCell.Column) = Cells(441, ActiveCell.Column) - wert2_23
If Cells(441, ActiveCell.Column).Comment Is Nothing Then
With Cells(441, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(441, ActiveCell.Column).Comment.Text
Cells(441, ActiveCell.Column).Comment.Delete
With Cells(441, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -20 To -10
Cells(443, ActiveCell.Column + 1) = Cells(443, ActiveCell.Column + 1) + wert2_23
If Cells(443, ActiveCell.Column + 1).Comment Is Nothing Then
With Cells(443, ActiveCell.Column + 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(443, ActiveCell.Column + 1).Comment.Text
Cells(443, ActiveCell.Column + 1).Comment.Delete
With Cells(443, ActiveCell.Column + 1).AddComment
.Text vorhandener_Kommentar & wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 30 To 40
Cells(445, ActiveCell.Column) = Cells(445, ActiveCell.Column) + wert2_23
If Cells(445, ActiveCell.Column).Comment Is Nothing Then
With Cells(445, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(445, ActiveCell.Column).Comment.Text
Cells(445, ActiveCell.Column).Comment.Delete
With Cells(445, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 130 To 140
Cells(444, ActiveCell.Column) = Cells(444, ActiveCell.Column) - wert2_23
If Cells(444, ActiveCell.Column).Comment Is Nothing Then
With Cells(444, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(444, ActiveCell.Column).Comment.Text
Cells(444, ActiveCell.Column).Comment.Delete
With Cells(444, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -40 To -30
Cells(446, ActiveCell.Column + 1) = Cells(446, ActiveCell.Column + 1) + wert2_23
If Cells(446, ActiveCell.Column + 1).Comment Is Nothing Then
With Cells(446, ActiveCell.Column + 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(446, ActiveCell.Column + 1).Comment.Text
Cells(446, ActiveCell.Column + 1).Comment.Delete
With Cells(446, ActiveCell.Column + 1).AddComment
.Text vorhandener_Kommentar & wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 50 To 60
Cells(448, ActiveCell.Column) = Cells(448, ActiveCell.Column) + wert2_23
If Cells(448, ActiveCell.Column).Comment Is Nothing Then
With Cells(448, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(448, ActiveCell.Column).Comment.Text
Cells(448, ActiveCell.Column).Comment.Delete
With Cells(448, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 150 To 160
Cells(447, ActiveCell.Column) = Cells(447, ActiveCell.Column) - wert2_23
If Cells(447, ActiveCell.Column).Comment Is Nothing Then
With Cells(447, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(447, ActiveCell.Column).Comment.Text
Cells(447, ActiveCell.Column).Comment.Delete
With Cells(447, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -60 To -50
Cells(449, ActiveCell.Column + 1) = Cells(449, ActiveCell.Column + 1) + wert2_23
If Cells(449, ActiveCell.Column + 1).Comment Is Nothing Then
With Cells(449, ActiveCell.Column + 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(449, ActiveCell.Column + 1).Comment.Text
Cells(449, ActiveCell.Column + 1).Comment.Delete
With Cells(449, ActiveCell.Column + 1).AddComment
.Text vorhandener_Kommentar & wert2_23 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
End Select
End If
If akennz = 24 Then
Dim wert1_24 As Double
Dim wert2_24 As Double
wert1_24 = ActiveCell.Value
wert2_24 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_24 & " Stunde(n) FreiW-Mehrarbeit vor Schicht " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_24 & " Stunde(n) FreiW-Mehrarbeit vor Schicht " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
Dim numbere1 As Integer
numbere1 = ActiveCell
Select Case numbere1
Case 10 To 20
Cells(443, ActiveCell.Column) = Cells(443, ActiveCell.Column) + wert2_24
If Cells(443, ActiveCell.Column).Comment Is Nothing Then
With Cells(443, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(443, ActiveCell.Column).Comment.Text
Cells(443, ActiveCell.Column).Comment.Delete
With Cells(443, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 110 To 120
Cells(442, ActiveCell.Column - 1) = Cells(442, ActiveCell.Column - 1) - wert2_24
If Cells(442, ActiveCell.Column - 1).Comment Is Nothing Then
With Cells(442, ActiveCell.Column - 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(442, ActiveCell.Column - 1).Comment.Text
Cells(442, ActiveCell.Column - 1).Comment.Delete
With Cells(442, ActiveCell.Column - 1).AddComment
.Text vorhandener_Kommentar & wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -20 To -10
Cells(441, ActiveCell.Column) = Cells(441, ActiveCell.Column) + wert2_24
If Cells(441, ActiveCell.Column).Comment Is Nothing Then
With Cells(441, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(441, ActiveCell.Column).Comment.Text
Cells(441, ActiveCell.Column).Comment.Delete
With Cells(441, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 30 To 40
Cells(446, ActiveCell.Column) = Cells(446, ActiveCell.Column) + wert2_24
If Cells(446, ActiveCell.Column).Comment Is Nothing Then
With Cells(446, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(446, ActiveCell.Column).Comment.Text
Cells(446, ActiveCell.Column).Comment.Delete
With Cells(446, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 130 To 140
Cells(445, ActiveCell.Column - 1) = Cells(445, ActiveCell.Column - 1) - wert2_24
If Cells(445, ActiveCell.Column - 1).Comment Is Nothing Then
With Cells(445, ActiveCell.Column - 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(445, ActiveCell.Column - 1).Comment.Text
Cells(445, ActiveCell.Column - 1).Comment.Delete
With Cells(445, ActiveCell.Column - 1).AddComment
.Text vorhandener_Kommentar & wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -40 To -30
Cells(444, ActiveCell.Column) = Cells(444, ActiveCell.Column) + wert2_24
If Cells(444, ActiveCell.Column).Comment Is Nothing Then
With Cells(444, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(444, ActiveCell.Column).Comment.Text
Cells(444, ActiveCell.Column).Comment.Delete
With Cells(444, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 50 To 60
Cells(449, ActiveCell.Column) = Cells(449, ActiveCell.Column) + wert2_24
If Cells(449, ActiveCell.Column).Comment Is Nothing Then
With Cells(449, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(449, ActiveCell.Column).Comment.Text
Cells(449, ActiveCell.Column).Comment.Delete
With Cells(449, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 150 To 160
Cells(448, ActiveCell.Column - 1) = Cells(448, ActiveCell.Column - 1) - wert2_24
If Cells(448, ActiveCell.Column - 1).Comment Is Nothing Then
With Cells(448, ActiveCell.Column - 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(448, ActiveCell.Column - 1).Comment.Text
Cells(448, ActiveCell.Column - 1).Comment.Delete
With Cells(448, ActiveCell.Column - 1).AddComment
.Text vorhandener_Kommentar & wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -20 To -10
Cells(447, ActiveCell.Column) = Cells(447, ActiveCell.Column) + wert2_24
If Cells(447, ActiveCell.Column).Comment Is Nothing Then
With Cells(447, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(447, ActiveCell.Column).Comment.Text
Cells(447, ActiveCell.Column).Comment.Delete
With Cells(447, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_24 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
End Select
End If
If akennz = 25 Then
Dim wert1_25 As Double
Dim wert2_25 As Double
wert1_25 = ActiveCell.Value
wert2_25 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If AktZeile >= 20 And AktZeile <= 140 Then
MsgBox ("Fehler - TZ MA auswählen")
schließen = True
Else
schließen = False
End If
If schließen = True Then
ElseIf ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_25 & " Stunde(n) Kal-Mehrarbeit " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_25 & " Stunde(n) Kal-Mehrarbeit " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If schließen = True Then
ElseIf wert1_25 < 0 Then
ActiveCell.Value = wert1_25 - wert2_25
Else
ActiveCell.Value = wert1_25 + wert2_25
End If
End If
If akennz = 26 Then
Dim wert1_26 As Double
Dim wert2_26 As Double
wert1_26 = ActiveCell.Value
wert2_26 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_26 & " Stunde(n) FreiW-Mehrarbeit nach Schicht " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_26 & " Stunde(n) FreiW-Mehrarbeit nach Schicht " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
Dim number2 As Integer
number2 = ActiveCell
Select Case number2
Case 10 To 20
Cells(442, ActiveCell.Column) = Cells(442, ActiveCell.Column) + wert2_26
If Cells(442, ActiveCell.Column).Comment Is Nothing Then
With Cells(442, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(442, ActiveCell.Column).Comment.Text
Cells(442, ActiveCell.Column).Comment.Delete
With Cells(442, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 110 To 120
Cells(441, ActiveCell.Column) = Cells(441, ActiveCell.Column) - wert2_26
If Cells(441, ActiveCell.Column).Comment Is Nothing Then
With Cells(441, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(441, ActiveCell.Column).Comment.Text
Cells(441, ActiveCell.Column).Comment.Delete
With Cells(441, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -20 To -10
Cells(443, ActiveCell.Column + 1) = Cells(443, ActiveCell.Column + 1) + wert2_26
If Cells(443, ActiveCell.Column + 1).Comment Is Nothing Then
With Cells(443, ActiveCell.Column + 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(443, ActiveCell.Column + 1).Comment.Text
Cells(443, ActiveCell.Column + 1).Comment.Delete
With Cells(443, ActiveCell.Column + 1).AddComment
.Text vorhandener_Kommentar & wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 30 To 40
Cells(445, ActiveCell.Column) = Cells(445, ActiveCell.Column) + wert2_26
If Cells(445, ActiveCell.Column).Comment Is Nothing Then
With Cells(445, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(445, ActiveCell.Column).Comment.Text
Cells(445, ActiveCell.Column).Comment.Delete
With Cells(445, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 130 To 140
Cells(444, ActiveCell.Column) = Cells(444, ActiveCell.Column) - wert2_26
If Cells(444, ActiveCell.Column).Comment Is Nothing Then
With Cells(444, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(444, ActiveCell.Column).Comment.Text
Cells(444, ActiveCell.Column).Comment.Delete
With Cells(444, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -40 To -30
Cells(446, ActiveCell.Column + 1) = Cells(446, ActiveCell.Column + 1) + wert2_26
If Cells(446, ActiveCell.Column + 1).Comment Is Nothing Then
With Cells(446, ActiveCell.Column + 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(446, ActiveCell.Column + 1).Comment.Text
Cells(446, ActiveCell.Column + 1).Comment.Delete
With Cells(446, ActiveCell.Column + 1).AddComment
.Text vorhandener_Kommentar & wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 50 To 60
Cells(448, ActiveCell.Column) = Cells(448, ActiveCell.Column) + wert2_26
If Cells(448, ActiveCell.Column).Comment Is Nothing Then
With Cells(448, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(448, ActiveCell.Column).Comment.Text
Cells(448, ActiveCell.Column).Comment.Delete
With Cells(448, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 150 To 160
Cells(447, ActiveCell.Column) = Cells(447, ActiveCell.Column) - wert2_26
If Cells(447, ActiveCell.Column).Comment Is Nothing Then
With Cells(447, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(447, ActiveCell.Column).Comment.Text
Cells(447, ActiveCell.Column).Comment.Delete
With Cells(447, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -60 To -50
Cells(449, ActiveCell.Column + 1) = Cells(449, ActiveCell.Column + 1) + wert2_26
If Cells(449, ActiveCell.Column + 1).Comment Is Nothing Then
With Cells(449, ActiveCell.Column + 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(449, ActiveCell.Column + 1).Comment.Text
Cells(449, ActiveCell.Column + 1).Comment.Delete
With Cells(449, ActiveCell.Column + 1).AddComment
.Text vorhandener_Kommentar & wert2_26 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
End Select
End If
If akennz = 27 Then
Dim wert1_27 As Double
Dim wert2_27 As Double
wert1_27 = ActiveCell.Value
wert2_27 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_27 & " Stunde(n) FreiW-Mehrarbeit vor Schicht " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_27 & " Stunde(n) FreiW-Mehrarbeit vor Schicht " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
Dim numbere2 As Integer
numbere2 = ActiveCell
Select Case numbere2
Case 10 To 20
Cells(443, ActiveCell.Column) = Cells(443, ActiveCell.Column) + wert2_27
If Cells(443, ActiveCell.Column).Comment Is Nothing Then
With Cells(443, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(443, ActiveCell.Column).Comment.Text
Cells(443, ActiveCell.Column).Comment.Delete
With Cells(443, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 110 To 120
Cells(442, ActiveCell.Column - 1) = Cells(442, ActiveCell.Column - 1) - wert2_27
If Cells(442, ActiveCell.Column - 1).Comment Is Nothing Then
With Cells(442, ActiveCell.Column - 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(442, ActiveCell.Column - 1).Comment.Text
Cells(442, ActiveCell.Column - 1).Comment.Delete
With Cells(442, ActiveCell.Column - 1).AddComment
.Text vorhandener_Kommentar & wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -20 To -10
Cells(441, ActiveCell.Column) = Cells(441, ActiveCell.Column) + wert2_27
If Cells(441, ActiveCell.Column).Comment Is Nothing Then
With Cells(441, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(441, ActiveCell.Column).Comment.Text
Cells(441, ActiveCell.Column).Comment.Delete
With Cells(441, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 30 To 40
Cells(446, ActiveCell.Column) = Cells(446, ActiveCell.Column) + wert2_27
If Cells(446, ActiveCell.Column).Comment Is Nothing Then
With Cells(446, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(446, ActiveCell.Column).Comment.Text
Cells(446, ActiveCell.Column).Comment.Delete
With Cells(446, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 130 To 140
Cells(445, ActiveCell.Column - 1) = Cells(445, ActiveCell.Column - 1) - wert2_27
If Cells(445, ActiveCell.Column - 1).Comment Is Nothing Then
With Cells(445, ActiveCell.Column - 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(445, ActiveCell.Column - 1).Comment.Text
Cells(445, ActiveCell.Column - 1).Comment.Delete
With Cells(445, ActiveCell.Column - 1).AddComment
.Text vorhandener_Kommentar & wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -40 To -30
Cells(444, ActiveCell.Column) = Cells(444, ActiveCell.Column) + wert2_27
If Cells(444, ActiveCell.Column).Comment Is Nothing Then
With Cells(444, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(444, ActiveCell.Column).Comment.Text
Cells(444, ActiveCell.Column).Comment.Delete
With Cells(444, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 50 To 60
Cells(449, ActiveCell.Column) = Cells(449, ActiveCell.Column) + wert2_27
If Cells(449, ActiveCell.Column).Comment Is Nothing Then
With Cells(449, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(449, ActiveCell.Column).Comment.Text
Cells(449, ActiveCell.Column).Comment.Delete
With Cells(449, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case 150 To 160
Cells(448, ActiveCell.Column - 1) = Cells(448, ActiveCell.Column - 1) - wert2_27
If Cells(448, ActiveCell.Column - 1).Comment Is Nothing Then
With Cells(448, ActiveCell.Column - 1).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(448, ActiveCell.Column - 1).Comment.Text
Cells(448, ActiveCell.Column - 1).Comment.Delete
With Cells(448, ActiveCell.Column - 1).AddComment
.Text vorhandener_Kommentar & wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
Case -20 To -10
Cells(447, ActiveCell.Column) = Cells(447, ActiveCell.Column) + wert2_27
If Cells(447, ActiveCell.Column).Comment Is Nothing Then
With Cells(447, ActiveCell.Column).AddComment
.Shape.TextFrame.AutoSize = True
.Text wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
End With
Else
vorhandener_Kommentar = Cells(447, ActiveCell.Column).Comment.Text
Cells(447, ActiveCell.Column).Comment.Delete
With Cells(447, ActiveCell.Column).AddComment
.Text vorhandener_Kommentar & wert2_27 & " Stunde(n) Zusatzpower" & Chr(10) & Chr(10) & Kommentartext & Chr(10) & Chr(10)
.Shape.TextFrame.AutoSize = True
End With
End If
End Select
End If
If akennz = 28 Then
Dim wert1_28 As Double
Dim wert2_28 As Double
wert1_28 = ActiveCell.Value
wert2_28 = UserForm2.TextBox2.Value
Kommentartext = UserForm2.TextBox3.Value
If AktZeile >= 20 And AktZeile <= 140 Then
MsgBox ("Fehler - TZ MA auswählen")
schließen = True
Else
schließen = False
End If
If schließen = True Then
ElseIf ActiveSheet.Cells(AktZeile + 1, AktSpalte).Value = "" Then
Cells(AktZeile + 1, AktSpalte).Value = " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_28 & " Stunde(n) Ang-Mehrarbeit " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
Else
vorhandener_Kommentar = Cells(AktZeile + 1, AktSpalte).Value
Cells(AktZeile + 1, AktSpalte).Value = ""
Cells(AktZeile + 1, AktSpalte).Value = vorhandener_Kommentar & " | " & Format(Date, "DD.MM.") & " - " & Application.UserName & ": " & wert2_28 & " Stunde(n) Ang-Mehrarbeit " & Chr(34) & Kommentartext & Chr(34) & " " & "|" & " "
End If
If schließen = True Then
ElseIf wert1_28 < 0 Then
ActiveCell.Value = wert1_28 - wert2_28
Else
ActiveCell.Value = wert1_28 + wert2_28
End If
End If
Unload UserForm2
Exit Sub
FehlerFall:
MsgBox "Es ist ein Fehler bei Mitarbeiter " & Mitarbeiter & " aufgetreten!"
End Sub
Private Sub CommandButton2_Click()
Unload UserForm2
End Sub