Hallo Tom,
unabhängig von den Vorschlägen, die Du nicht verstehst - stelle Dir mal die Frage, warum Du die codeblöcke 5x drin hast? Schon ohne Programmierkenntnisse könnte man erkennen, dass bei 2 Auswahlfeldern nur 4 Kombinationen möglich sind - also ist mindestens eine Variante zu viel drin.
Ich habe hier mal die codeblöcke für B6 zusammengestellt. Wenn Du Dir die anschaust, siehst Du, dass die ersten 3 identisch sind. Wenn Du den code durchsiehst und alles raus nimmst, was identisch ist, hast Du schon was gewonnen.
Beim 4. und 5. ist die Bedingung der Checkboxen unterschiedlich, aber die Reaktion gleich.
Dann fehlt noch eine Kombination mit Checkbox1 = False und Checkbox2 = True.
Code:
If Not Intersect(Target, Range("B6")) Is Nothing Then
If Target >= 2013 And CheckBox1 = False And CheckBox2 = False Then
Worksheets("Verlauf 3Monate").Range("C10000").End(xlUp).Offset(1, 0) = Range("C3") & (" / ") & Range("A5") & (": ") & Range("A6") & (" kann ") & Range("B3") & (" ") & Range("A3")
Worksheets("Verlauf 3Monate").Range("a10000").End(xlUp).Offset(1, 0) = Range("B6")
Worksheets("Verlauf 3Monate").Range("b10000").End(xlUp).Offset(1, 0) = "1"
End If
End If
If Not Intersect(Target, Range("B6")) Is Nothing Then
If Target >= 2013 And CheckBox1 = False And CheckBox2 = False Then
Worksheets("Verlauf 3Monate").Range("C10000").End(xlUp).Offset(1, 0) = Range("C3") & (" / ") & Range("A5") & (": ") & Range("A6") & (" kann ") & Range("B3") & (" ") & Range("A3")
Worksheets("Verlauf 3Monate").Range("a10000").End(xlUp).Offset(1, 0) = Range("B6")
Worksheets("Verlauf 3Monate").Range("b10000").End(xlUp).Offset(1, 0) = "1"
End If
End If
If Not Intersect(Target, Range("B6")) Is Nothing Then
If Target >= 2013 And CheckBox1 = False And CheckBox2 = False Then
Worksheets("Verlauf 3Monate").Range("C10000").End(xlUp).Offset(1, 0) = Range("C3") & (" / ") & Range("A5") & (": ") & Range("A6") & (" kann ") & Range("B3") & (" ") & Range("A3")
Worksheets("Verlauf 3Monate").Range("a10000").End(xlUp).Offset(1, 0) = Range("B6")
Worksheets("Verlauf 3Monate").Range("b10000").End(xlUp).Offset(1, 0) = "1"
End If
End If
If Not Intersect(Target, Range("B6")) Is Nothing Then
If Target >= 2013 And CheckBox1 = True And CheckBox2 = False Then
Worksheets("Verlauf 1.Jahr").Range("C10000").End(xlUp).Offset(1, 0) = Range("C3") & (" / ") & Range("A5") & (": ") & Range("A6")
Worksheets("Verlauf 1.Jahr").Range("a10000").End(xlUp).Offset(1, 0) = Range("B6")
Worksheets("Verlauf 1.Jahr").Range("b10000").End(xlUp).Offset(1, 0) = "1"
End If
End If
If Not Intersect(Target, Range("B6")) Is Nothing Then
If Target >= 2013 And CheckBox1 = True And CheckBox2 = True Then
Worksheets("Verlauf 2.Jahr").Range("C10000").End(xlUp).Offset(1, 0) = Range("C3") & (" / ") & Range("A5") & (": ") & Range("A6")
Worksheets("Verlauf 2.Jahr").Range("a10000").End(xlUp).Offset(1, 0) = Range("B6")
Worksheets("Verlauf 2.Jahr").Range("b10000").End(xlUp).Offset(1, 0) = "1"
End If
End If
