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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen