Private Sub EinfügenI()
 
B = ActiveSheet.Name
zweiter = 0
R = 2
 
Dim d As String
Dim I_In As String
Dim I_In1 As String
Dim I_In2 As String
Dim I_In3 As String
Dim I_In4 As String
Dim I_In5 As String
Dim I_In6 As String
Dim I_In7 As String
Dim I_In8 As String
Dim I_In9 As String
 
 
Sheets("Anforderung").Unprotect
                                    'Variablen werden befühlt
I_In = Range("Abteilung!B5")       'Abteilung
I_In1 = Range("Abteilung!C5")      'Büro 1. Feld
I_In2 = Range("Abteilung!C6")
I_In3 = Range("Abteilung!C7")
I_In4 = Range("Abteilung!C8")
I_In5 = Range("Abteilung!C9")
I_In6 = Range("Abteilung!C10")
I_In7 = Range("Abteilung!C11")
I_In8 = Range("Abteilung!C12")
I_In9 = Range("Abteilung!C13")
 
Select Case ComboBox2.Value
 
     Case I_In1
                If CheckBox1 = True Then R = R + 2: zweiter = 1
                Call datenübertragen
                'Abteilung und Büro einfügen
                Range("B4").Select
                ActiveCell.FormulaR1C1 = I_In
                Range("B5").Select
                ActiveCell.FormulaR1C1 = ComboBox2.Value
 
                Call datumeinfügen
 
                UserForm1.Hide
End Select
End Sub