Private Sub ComboBox1_Change()
Dim rngZiel As Range
Set rngZiel = Worksheets("Sheet1").Range("A3:D50") 'Bereich, in dem die Daten kopiert werden
Select Case ComboBox1.Value
Case "Function Groups"
rngZiel = Worksheets("Sheet2").Range("A2:D42").Value
Case "Folding Option"
rngZiel = Worksheets("Sheet2").Range("A43:D48").Value
Case "Feeder TZM"
rngZiel = Worksheets("Sheet2").Range("A49:D56").Value
Case "Wet Parts"
rngZiel = Worksheets("Sheet2").Range("A57:D71").Value
Case "Format Parts "
rngZiel = Worksheets("Sheet2").Range("A72:D76").Value
Case "Electrical Parts "
rngZiel = Worksheets("Sheet2").Range("A77:D79").Value
End Select
End Sub